Timeout i ASPping

http://groups.google.com/groups?hl=en&lr=&ie=UTF8&oe=UTF8&threadm=3CF6782D.62BD302F%40hydro.com&rnum=2&prev=/groups%3Fq%3DASPPING%2Btimeout%26ie%3DUTF8%26oe%3DUTF8%26hl%3Den

//akj

Og hvilken del af den er det lige det er?
Hvilken stump kode?

Function IsConnectible(sHost,iPings,iTO)
' Works an "all" WSH versions
' sHost is a hostname or IP

' iPings is number of ping attempts
' iTO is timeout in milliseconds
' if values are set to "", then defaults below used

  If iPings = "" Then iPings = 2
  If iTO = "" Then iTO = 750

  Const OpenAsDefault    = -2
  Const FailIfNotExist  =  0
  Const ForReading      =  1

  Set oShell = CreateObject("WScript.Shell")
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  sTemp = oShell.ExpandEnvironmentStrings("%TEMP%")
  sTempFile = sTemp & "\runresult.tmp"

  oShell.Run "%comspec% /c ping -n " & iPings & " -w " & iTO _
    & " " & sHost & ">" & sTempFile, 0 , True

  Set fFile = oFSO.OpenTextFile(sTempFile, ForReading, _
                                      FailIfNotExist, OpenAsDefault)

  sResults = fFile.ReadAll
  fFile.Close
  oFSO.DeleteFile(sTempFile)

  Select Case InStr(sResults,"TTL=")
    Case 0 IsConnectible = False
    Case Else IsConnectible = True
  End Select
End Function