Works like this.


Code:
Dim $RC
$RC = Ping('somesystem')
If $RC
  'pc online'
Else
  'pc offline'
EndIf
 
Function Ping($PC)
  Shell'%comspec% /c ping -n 1 '+$PC+' >nul'
  $Ping = NOT @ERROR
EndFunction


and here is the link to ConfirmWMI

http://www.kixtart.org/ubbthreads/showflat.php?Cat=0&Number=114011