Win32_PerfRawData_Tcpip_ICMPv6 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_ICMPv6 WMI class can be used in ActiveXperts Network Monitor to monitor your servers.

---

Sample Code

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("\localhost")
For Each strComputer In arrComputers
   WScript.Echo
   WScript.Echo "=========================================="
   WScript.Echo "Computer: " & strComputer
   WScript.Echo "=========================================="

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_Tcpip_ICMPv6", "WQL", _
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

   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 "ReceivedDestUnreachable: " & objItem.ReceivedDestUnreachable
      WScript.Echo "ReceivedEchoPersec: " & objItem.ReceivedEchoPersec
      WScript.Echo "ReceivedEchoReplyPersec: " & objItem.ReceivedEchoReplyPersec
      WScript.Echo "ReceivedMembershipQuery: " & objItem.ReceivedMembershipQuery
      WScript.Echo "ReceivedMembershipReduction: " & objItem.ReceivedMembershipReduction
      WScript.Echo "ReceivedMembershipReport: " & objItem.ReceivedMembershipReport
      WScript.Echo "ReceivedNeighborAdvert: " & objItem.ReceivedNeighborAdvert
      WScript.Echo "ReceivedNeighborSolicit: " & objItem.ReceivedNeighborSolicit
      WScript.Echo "ReceivedPacketTooBig: " & objItem.ReceivedPacketTooBig
      WScript.Echo "ReceivedParameterProblem: " & objItem.ReceivedParameterProblem
      WScript.Echo "ReceivedRedirectPersec: " & objItem.ReceivedRedirectPersec
      WScript.Echo "ReceivedRouterAdvert: " & objItem.ReceivedRouterAdvert
      WScript.Echo "ReceivedRouterSolicit: " & objItem.ReceivedRouterSolicit
      WScript.Echo "ReceivedTimeExceeded: " & objItem.ReceivedTimeExceeded
      WScript.Echo "SentDestinationUnreachable: " & objItem.SentDestinationUnreachable
      WScript.Echo "SentEchoPersec: " & objItem.SentEchoPersec
      WScript.Echo "SentEchoReplyPersec: " & objItem.SentEchoReplyPersec
      WScript.Echo "SentMembershipQuery: " & objItem.SentMembershipQuery
      WScript.Echo "SentMembershipReduction: " & objItem.SentMembershipReduction
      WScript.Echo "SentMembershipReport: " & objItem.SentMembershipReport
      WScript.Echo "SentNeighborAdvert: " & objItem.SentNeighborAdvert
      WScript.Echo "SentNeighborSolicit: " & objItem.SentNeighborSolicit
      WScript.Echo "SentPacketTooBig: " & objItem.SentPacketTooBig
      WScript.Echo "SentParameterProblem: " & objItem.SentParameterProblem
      WScript.Echo "SentRedirectPersec: " & objItem.SentRedirectPersec
      WScript.Echo "SentRouterAdvert: " & objItem.SentRouterAdvert
      WScript.Echo "SentRouterSolicit: " & objItem.SentRouterSolicit
      WScript.Echo "SentTimeExceeded: " & objItem.SentTimeExceeded
      WScript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
      WScript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
      WScript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
      WScript.Echo
   Next
Next