You can try one of the following several methods
1. Several pings, one after another. If all of them return FALSE then consider this as NO RESPONSE Example.
Dim ret1, boolean
Ping "my_server", ret1
Wait 10
Dim ret2, boolean
Ping "my_server", ret2
Wait 10
Dim ret3, boolean
Ping "my_server", ret3
Dim ret, boolean
And ret1, ret2, ret
And ret, ret3, ret
IfThen ret, OK
// put the NO RESPONSE logic here OK: 2. Use command line ping utility and parse the output
Dim output, string
Dim ret, number RunConfig "WINDOW", "HIDE"
RunAndWait "ping -w 10000 my_server > c:\\ping.log", "", 0, ret
FileReadAll "c:\\ping.log", output
Pos output, "Request timed out", ret
IfThen ret, TIMEOUT
Exit TIMEOUT:
// put the NO RESPONSE logic here 3. Use the "undocumented" extended version of the Ping function that has timeout parameter Dim ret, number
Dim errors, string
// allocate error buffer
Space 2000, errors
// call the PingEx method
Call "24x7ping.dll", "PingEx", "SuS", True, "my_server", 10000, errors, ret
IfThen ret, OK
// put the NO RESPONSE logic here OK: Hope this helps. : Hi, : I'm having some problems when monitoring remote hosts by "PING".
: Sometimes the "Timeout" from my remote network becomes very high
: and
: the PING returns FALSE to 24x7, sending me false messages telling that
: that the host is down. : Is there any option where i can change the timeout value? thks. : Oziander
|
