Hiya, As a collegue needed such a tool, I've created this script which pings something(s), in a cool and efficient way. NEW: (22-juli-2010) BugFixed final version and tested it to comply with newest AutoIt version. (3.3.6.1) New version = 3.5.2 FINAL! (?) - Descriptions - Save destinations and descriptions - See InfoHeader below... - Tray options for non-native (standard) ping - More/better error displays - Start/Stop all button - Destination checking - New color for wrong IP - Tray text on
Without looking at your code you could speed up the ping timeout process for example:
#include <Constants.au3>
$sPingLocation = "autoitscript.com"
$aPing = _PingIt($sPingLocation)
If $aPing[2] Then
MsgBox(0, "On Line (" & $sPingLocation & ")", "IP: " & $aPing[0] & @LF & "roundtrip-time in milliseconds: " & $aPing[1])
Else
MsgBox(0, "Off Line (" & $sPingLocation & ")", "IP: " & $aPing[0])
EndIf
Func _PingIt($sLocation)
Local $sData = "", $line