contact@activexperts.com +31748507807

ActiveXperts.com » Administration » Scripts » WMI » vbscript sample

Win32_PerfRawData_Tcpip_ICMP vbscript sample code | ActiveXperts Network Monitor

The foundations for Manageability in Windows is 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. The Win32_PerfRawData_Tcpip_ICMP WMI class can be used in ActiveXperts Network Monitor to monitor your servers.

Description

The Win32_PerfRawData_Tcpip_ICMP raw data performance counter class represents raw data counters that measure the rates at which messages are sent and received by using ICMP protocols. It also includes counters that monitor ICMP protocol errors. This class is shown as the ICMP object in System Monitor. The WMI source of its data is the high-performance Performance Counter Provider. The original data source is the Tcpip performance library. The corresponding formatted data class is Win32_PerfFormattedData_Tcpip_ICMP. This class was added for Windows 2000.

Sample Code

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_Tcpip_ICMP",,48)
For Each objItem in colItems
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Frequency_Object: " & objItem.Frequency_Object
    Wscript.Echo "Frequency_PerfTime: " & objItem.Frequency_PerfTime
    Wscript.Echo "Frequency_Sys100NS: " & objItem.Frequency_Sys100NS
    Wscript.Echo "MessagesOutboundErrors: " & objItem.MessagesOutboundErrors
    Wscript.Echo "MessagesPersec: " & objItem.MessagesPersec
    Wscript.Echo "MessagesReceivedErrors: " & objItem.MessagesReceivedErrors
    Wscript.Echo "MessagesReceivedPersec: " & objItem.MessagesReceivedPersec
    Wscript.Echo "MessagesSentPersec: " & objItem.MessagesSentPersec
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "ReceivedAddressMask: " & objItem.ReceivedAddressMask
    Wscript.Echo "ReceivedAddressMaskReply: " & objItem.ReceivedAddressMaskReply
    Wscript.Echo "ReceivedDestUnreachable: " & objItem.ReceivedDestUnreachable
    Wscript.Echo "ReceivedEchoPersec: " & objItem.ReceivedEchoPersec
    Wscript.Echo "ReceivedEchoReplyPersec: " & objItem.ReceivedEchoReplyPersec
    Wscript.Echo "ReceivedParameterProblem: " & objItem.ReceivedParameterProblem
    Wscript.Echo "ReceivedRedirectPersec: " & objItem.ReceivedRedirectPersec
    Wscript.Echo "ReceivedSourceQuench: " & objItem.ReceivedSourceQuench
    Wscript.Echo "ReceivedTimeExceeded: " & objItem.ReceivedTimeExceeded
    Wscript.Echo "ReceivedTimestampPersec: " & objItem.ReceivedTimestampPersec
    Wscript.Echo "ReceivedTimestampReplyPersec: " & objItem.ReceivedTimestampReplyPersec
    Wscript.Echo "SentAddressMask: " & objItem.SentAddressMask
    Wscript.Echo "SentAddressMaskReply: " & objItem.SentAddressMaskReply
    Wscript.Echo "SentDestinationUnreachable: " & objItem.SentDestinationUnreachable
    Wscript.Echo "SentEchoPersec: " & objItem.SentEchoPersec
    Wscript.Echo "SentEchoReplyPersec: " & objItem.SentEchoReplyPersec
    Wscript.Echo "SentParameterProblem: " & objItem.SentParameterProblem
    Wscript.Echo "SentRedirectPersec: " & objItem.SentRedirectPersec
    Wscript.Echo "SentSourceQuench: " & objItem.SentSourceQuench
    Wscript.Echo "SentTimeExceeded: " & objItem.SentTimeExceeded
    Wscript.Echo "SentTimestampPersec: " & objItem.SentTimestampPersec
    Wscript.Echo "SentTimestampReplyPersec: " & objItem.SentTimestampReplyPersec
    Wscript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
    Wscript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
    Wscript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
Next
M