Argh, W3 Sockets og timeout

Er der nogle der kan få timeout i W3Sockets til at virke...

Har denne funktion:

function online(d,p)
  on error resume next
  dim host, port
  set socket = Server.CreateObject("Socket.TCP")
  socket.host =d & ":" & p
  socket.timeout = 2000 ' I millisekunder
  if socket.Open then
    online = "Offline"
  else
    online = "Online"
  end if
  socket.close()
end function

Men den er ligeglad med timeout, da det kan op til tyve sekunder før jeg får svar tilbage, selvom timeout er sat til 2 sekunder.

Og de gider ikke svare i dres forum