Contact Info

Crumbtrail

ActiveXperts.com » Administration » Scripts » WMI » VBScript

Win32-PingStatus - WMI VBScript sample

The foundations for Manageability in Windows 2019/2016/2012/2008 and Windows 10/7/XP are Windows Management Instrumentation (WMI; formerly WBEM) and WMI extensions for Windows Driver Model (WDM).

ActiveXperts Network Monitor provides the ability to build monitor check routines based on WMI. ActiveXperts has collected more than a hundred WMI samples. You can use these samples as a base for new check routines you can write yourself.

On this site, you can find many WMI samples.

The Win32_PingStatus WMI class can be used in ActiveXperts Network Monitor to monitor your servers.


Win32-PingStatus

Example(s)

  On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PingStatus",,48)
For Each objItem in colItems
    Wscript.Echo "Address: " & objItem.Address
    Wscript.Echo "BufferSize: " & objItem.BufferSize
    Wscript.Echo "NoFragmentation: " & objItem.NoFragmentation
    Wscript.Echo "PrimaryAddressResolutionStatus: " & objItem.PrimaryAddressResolutionStatus
    Wscript.Echo "ProtocolAddress: " & objItem.ProtocolAddress
    Wscript.Echo "ProtocolAddressResolved: " & objItem.ProtocolAddressResolved
    Wscript.Echo "RecordRoute: " & objItem.RecordRoute
    Wscript.Echo "ReplyInconsistency: " & objItem.ReplyInconsistency
    Wscript.Echo "ReplySize: " & objItem.ReplySize
    Wscript.Echo "ResolveAddressNames: " & objItem.ResolveAddressNames
    Wscript.Echo "ResponseTime: " & objItem.ResponseTime
    Wscript.Echo "ResponseTimeToLive: " & objItem.ResponseTimeToLive
    Wscript.Echo "RouteRecord: " & objItem.RouteRecord
    Wscript.Echo "RouteRecordResolved: " & objItem.RouteRecordResolved
    Wscript.Echo "SourceRoute: " & objItem.SourceRoute
    Wscript.Echo "SourceRouteType: " & objItem.SourceRouteType
    Wscript.Echo "StatusCode: " & objItem.StatusCode
    Wscript.Echo "Timeout: " & objItem.Timeout
    Wscript.Echo "TimeStampRecord: " & objItem.TimeStampRecord
    Wscript.Echo "TimeStampRecordAddress: " & objItem.TimeStampRecordAddress
    Wscript.Echo "TimeStampRecordAddressResolved: " & objItem.TimeStampRecordAddressResolved
    Wscript.Echo "TimestampRoute: " & objItem.TimestampRoute
    Wscript.Echo "TimeToLive: " & objItem.TimeToLive
    Wscript.Echo "TypeofService: " & objItem.TypeofService
Next