strComputer = “www.eddiejackson.net”
Set cPingResults = _
GetObject(“winmgmts://./root/cimv2”).ExecQuery(“SELECT * ” & _
“FROM Win32_PingStatus WHERE Address = ‘” & strComputer & “‘”)
For Each oPingResult In cPingResults
If oPingResult.StatusCode = 0 Then
WScript.Echo strComputer & ” Responds from ”
WScript.Echo oPingResult.ProtocolAddress
WScript.Echo “Response time ” & oPingResult.ResponseTime
WScript.Echo “Source routes ” & oPingResult.SourceRoute
Else
WScript.Echo strComputer & ” Doesn’t respond”
End If
Next
