code:

---

$p=wshping('*.*.*.*',2)

---

code:

---

break on
$ip="199.0.66.50"
while 1
$p=wshping($ip,2)
if $p[1]>0
? 'ping successful'
else 
? 'ping failed'
endif
sleep 3
loop

---

code:

---

$server = "kixtart.org"
if ping($server)
	? $server + " is alive"
else
	? $server + " is dead"
endif

function ping($ipaddress)
	shell '%comspec% /c ping -n 1 $ipaddress | find /i "ttl" > nul'
	if @error
		$ping = 0
	else
		$ping = 1
	endif
endfunction

---

code:

---

$WS = '10.1.1.4' ; Ping by IP-address
If Not adPing($WS)
	$WS + ' Not responding' ?
EndIf
 
$WS = 'WS04' ; Ping by name
If Not adPing($WS)
	$WS + ' Not responding' ?
EndIf
 
Function adPing($WS)
	Dim $oPing,$Qry,$oStatus,$Chk

	$Qry = "select * from Win32_PingStatus where address='" + $WS + "'"
	$oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery($Qry)
	For Each $oStatus In $oPing
		$Chk = $oStatus.StatusCode
		If VarType($Chk) > 1
			If $oStatus.StatusCode = 0
				$adPing = 1
			EndIf
		EndIf
	Next
EndFunction

---