-Enjoy-
Legolas
Witness ha scritto:
This code:
-----------------------------------------------------------------------
Function IsThere(dest)
IsThere=False
' Do one small, hidden ping
shell.Run "ping -l 1 -n 1 "+dest+" > ping-result",0,True
' Read result
Dim file
Set file=fileSystem.GetFile("ping-result").OpenAsTextStream
For i=1 To 4:line=file.ReadLine:Next
file.Close
' Delete file
Set file=fileSystem.GetFile("ping-result")
file.Delete
Set file=Nothing
If Left(line,5)="Reply" Then IsThere=True
End Function
-----------------------------------------------------------------------
--
Robert Bradley
I am not a mindreader, so I don't know everything.