If you just want to know if the pinged IP-address/WS-Name is alive, you can use this

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
No temp files, and no dependencies, besides the WS you execute this from must be Win2k+ or have wmicore installed.

-Erik