Dim $Status
$Status = Ping('some_computer')
If $Status
  ; pc appears to be online
  ; run other code
EndIf
 
Function Ping($PC)
  Shell'%comspec% /c ping -n 1 '+$PC+' >nul'
  $Ping = NOT @error
EndFunction