17 lines
401 B
Plaintext
17 lines
401 B
Plaintext
on error resume next
|
|
set n = getobject ("winmgmts:root/cimv2")
|
|
|
|
For Index = 0 To 10000
|
|
|
|
set PingEnumeration = n.ExecQuery ("Select * from Win32_PingProtocolStatus where Address='stevm_12_12070'")
|
|
|
|
for each Ping in PingEnumeration
|
|
|
|
WScript.Echo Ping.StatusCode
|
|
if err <> 0 then
|
|
WScript.Echo "set",Hex(Err.Number), Err.Description, Err.Source
|
|
Err.Clear
|
|
End If
|
|
Next
|
|
Next
|