Ping status 1

[Perilous1]

I am working with the Ping code provided by Strongm in this post:

Thread

I am wondering however if this code does a standard command-line ping that sends four separate packets. If so, is there a way to check the individual success/failure of each of those four packets.

I am having an issue where occasionally one packet in four fails and the code as it is considers that a failure to ping.

Any help with this would be greatly appreciated.

 

[strongm]

>considers that a failure to ping

Which it is.

However, if you want to emulate the command-line ping, just run it 4 times

 

[strongm]

I should also point out that Win32_PingStatus retrieves a bunch of additional information that may be of interest. The properties can be found here.

And whilst those properties are read only, some can be set in the WMI query in order glean more info. For example, say you were pinging by IP adddress but wanted to resolve that address to a name, you'd change the WMI query line in my original example to something like:

[blue]Set cPingResults = GetObject("winmgmts:{impersonationLevel=impersonate}//./root/cimv2").ExecQuery("SELECT * FROM Win32_PingStatus WHERE Address = '" + sTarget + "' AND ResolveAddressNames = TRUE")[/blue]

 

[dilettante]

Instead of using the WMI Service you can also do this with simple, reliable API calls. See an example at Clean Ping in VB6 Code.