You are here:

ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > WMI > Samples > Performance Counter (.NET)
ActiveXperts Network Monitor
Monitor servers, workstations, devices and applications in your network

Quicklinks

WMI Samples - Performance .NET Framework Counters

ActiveXperts Network Monitor is an advanced and easy tool for monitoring LAN and WAN networks, network servers, workstations and TCP/IP devices. It has a large set of built-in checks, and you can add new checks by writing scripts. You can use VBScript (Windows) or RSH (UNIX) for it. VBScript checks can use WMI and ADSI. WMI is an interface to a broad range of properties of a computer/OS/application. With ADSI, you can monitor Directory Services.

Use the samples below to get used to various WMI classes, and use these classes in your own, custom ActiveXperts Network Monitor check. Each sample below can also be copied to a new file and then run from the command prompt (CSCRIPT.EXE <file>.vbs).

Win32_PerfRawData_NETFramework_NETCLRExceptions
Win32_PerfRawData_NETFramework_NETCLRInterop
Win32_PerfRawData_NETFramework_NETCLRJit
Win32_PerfRawData_NETFramework_NETCLRLoading
Win32_PerfRawData_NETFramework_NETCLRLocksAndThreads
Win32_PerfRawData_NETFramework_NETCLRMemory
Win32_PerfRawData_NETFramework_NETCLRRemoting
Win32_PerfRawData_NETFramework_NETCLRSecurity

Win32_PerfRawData_NETFramework_NETCLRExceptions

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_NETFramework_NETCLRExceptions",,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 "Name: " & objItem.Name
    Wscript.Echo "NumberofExcepsThrown: " & objItem.NumberofExcepsThrown
    Wscript.Echo "NumberofExcepsThrownPersec: " & objItem.NumberofExcepsThrownPersec
    Wscript.Echo "NumberofFiltersPersec: " & objItem.NumberofFiltersPersec
    Wscript.Echo "NumberofFinallysPersec: " & objItem.NumberofFinallysPersec
    Wscript.Echo "ThrowToCatchDepthPersec: " & objItem.ThrowToCatchDepthPersec
    Wscript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
    Wscript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
    Wscript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
Next

Win32_PerfRawData_NETFramework_NETCLRInterop

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_NETFramework_NETCLRInterop",,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 "Name: " & objItem.Name
    Wscript.Echo "NumberofCCWs: " & objItem.NumberofCCWs
    Wscript.Echo "Numberofmarshalling: " & objItem.Numberofmarshalling
    Wscript.Echo "NumberofStubs: " & objItem.NumberofStubs
    Wscript.Echo "NumberofTLBexportsPersec: " & objItem.NumberofTLBexportsPersec
    Wscript.Echo "NumberofTLBimportsPersec: " & objItem.NumberofTLBimportsPersec
    Wscript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
    Wscript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
    Wscript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
Next

Win32_PerfRawData_NETFramework_NETCLRJit

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_NETFramework_NETCLRJit",,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 "ILBytesJittedPersec: " & objItem.ILBytesJittedPersec
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "NumberofILBytesJitted: " & objItem.NumberofILBytesJitted
    Wscript.Echo "NumberofMethodsJitted: " & objItem.NumberofMethodsJitted
    Wscript.Echo "PercentTimeinJit: " & objItem.PercentTimeinJit
    Wscript.Echo "PercentTimeinJit_Base: " & objItem.PercentTimeinJit_Base
    Wscript.Echo "StandardJitFailures: " & objItem.StandardJitFailures
    Wscript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
    Wscript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
    Wscript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
    Wscript.Echo "TotalNumberofILBytesJitted: " & objItem.TotalNumberofILBytesJitted
Next

Win32_PerfRawData_NETFramework_NETCLRLoading

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_NETFramework_NETCLRLoading",,48)
For Each objItem in colItems
    Wscript.Echo "AssemblySearchLength: " & objItem.AssemblySearchLength
    Wscript.Echo "BytesinLoaderHeap: " & objItem.BytesinLoaderHeap
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Currentappdomains: " & objItem.Currentappdomains
    Wscript.Echo "CurrentAssemblies: " & objItem.CurrentAssemblies
    Wscript.Echo "CurrentClassesLoaded: " & objItem.CurrentClassesLoaded
    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 "Name: " & objItem.Name
    Wscript.Echo "PercentTimeLoading: " & objItem.PercentTimeLoading
    Wscript.Echo "Rateofappdomains: " & objItem.Rateofappdomains
    Wscript.Echo "Rateofappdomainsunloaded: " & objItem.Rateofappdomainsunloaded
    Wscript.Echo "RateofAssemblies: " & objItem.RateofAssemblies
    Wscript.Echo "RateofClassesLoaded: " & objItem.RateofClassesLoaded
    Wscript.Echo "RateofLoadFailures: " & objItem.RateofLoadFailures
    Wscript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
    Wscript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
    Wscript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
    Wscript.Echo "TotalAppdomains: " & objItem.TotalAppdomains
    Wscript.Echo "Totalappdomainsunloaded: " & objItem.Totalappdomainsunloaded
    Wscript.Echo "TotalAssemblies: " & objItem.TotalAssemblies
    Wscript.Echo "TotalClassesLoaded: " & objItem.TotalClassesLoaded
    Wscript.Echo "TotalNumberofLoadFailures: " & objItem.TotalNumberofLoadFailures
Next

Win32_PerfRawData_NETFramework_NETCLRLocksAndThreads

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_NETFramework_NETCLRLocksAndThreads",,48)
For Each objItem in colItems
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "ContentionRatePersec: " & objItem.ContentionRatePersec
    Wscript.Echo "CurrentQueueLength: " & objItem.CurrentQueueLength
    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 "Name: " & objItem.Name
    Wscript.Echo "NumberofcurrentlogicalThreads: " & objItem.NumberofcurrentlogicalThreads
    Wscript.Echo "NumberofcurrentphysicalThreads: " & objItem.NumberofcurrentphysicalThreads
    Wscript.Echo "Numberofcurrentrecognizedthreads: " & objItem.Numberofcurrentrecognizedthreads
    Wscript.Echo "Numberoftotalrecognizedthreads: " & objItem.Numberoftotalrecognizedthreads
    Wscript.Echo "QueueLengthPeak: " & objItem.QueueLengthPeak
    Wscript.Echo "QueueLengthPersec: " & objItem.QueueLengthPersec
    Wscript.Echo "rateofrecognizedthreadsPersec: " & objItem.rateofrecognizedthreadsPersec
    Wscript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
    Wscript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
    Wscript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
    Wscript.Echo "TotalNumberofContentions: " & objItem.TotalNumberofContentions
Next

Win32_PerfRawData_NETFramework_NETCLRMemory

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_NETFramework_NETCLRMemory",,48)
For Each objItem in colItems
    Wscript.Echo "AllocatedBytesPersec: " & objItem.AllocatedBytesPersec
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "FinalizationSurvivors: " & objItem.FinalizationSurvivors
    Wscript.Echo "Frequency_Object: " & objItem.Frequency_Object
    Wscript.Echo "Frequency_PerfTime: " & objItem.Frequency_PerfTime
    Wscript.Echo "Frequency_Sys100NS: " & objItem.Frequency_Sys100NS
    Wscript.Echo "Gen0heapsize: " & objItem.Gen0heapsize
    Wscript.Echo "Gen0PromotedBytesPerSec: " & objItem.Gen0PromotedBytesPerSec
    Wscript.Echo "Gen1heapsize: " & objItem.Gen1heapsize
    Wscript.Echo "Gen1PromotedBytesPerSec: " & objItem.Gen1PromotedBytesPerSec
    Wscript.Echo "Gen2heapsize: " & objItem.Gen2heapsize
    Wscript.Echo "LargeObjectHeapsize: " & objItem.LargeObjectHeapsize
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "NumberBytesinallHeaps: " & objItem.NumberBytesinallHeaps
    Wscript.Echo "NumberGCHandles: " & objItem.NumberGCHandles
    Wscript.Echo "NumberGen0Collections: " & objItem.NumberGen0Collections
    Wscript.Echo "NumberGen1Collections: " & objItem.NumberGen1Collections
    Wscript.Echo "NumberGen2Collections: " & objItem.NumberGen2Collections
    Wscript.Echo "NumberInducedGC: " & objItem.NumberInducedGC
    Wscript.Echo "NumberofPinnedObjects: " & objItem.NumberofPinnedObjects
    Wscript.Echo "NumberofSinkBlocksinuse: " & objItem.NumberofSinkBlocksinuse
    Wscript.Echo "NumberTotalcommittedBytes: " & objItem.NumberTotalcommittedBytes
    Wscript.Echo "NumberTotalreservedBytes: " & objItem.NumberTotalreservedBytes
    Wscript.Echo "PercentTimeinGC: " & objItem.PercentTimeinGC
    Wscript.Echo "PercentTimeinGC_Base: " & objItem.PercentTimeinGC_Base
    Wscript.Echo "PromotedFinalizationMemoryfromGen0: " & objItem.PromotedFinalizationMemoryfromGen0
    Wscript.Echo "PromotedFinalizationMemoryfromGen1: " & objItem.PromotedFinalizationMemoryfromGen1
    Wscript.Echo "PromotedMemoryfromGen0: " & objItem.PromotedMemoryfromGen0
    Wscript.Echo "PromotedMemoryfromGen1: " & objItem.PromotedMemoryfromGen1
    Wscript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
    Wscript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
    Wscript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
Next

Win32_PerfRawData_NETFramework_NETCLRRemoting

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_NETFramework_NETCLRRemoting",,48)
For Each objItem in colItems
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Channels: " & objItem.Channels
    Wscript.Echo "ContextBoundClassesLoaded: " & objItem.ContextBoundClassesLoaded
    Wscript.Echo "ContextBoundObjectsAllocPersec: " & objItem.ContextBoundObjectsAllocPersec
    Wscript.Echo "ContextProxies: " & objItem.ContextProxies
    Wscript.Echo "Contexts: " & objItem.Contexts
    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 "Name: " & objItem.Name
    Wscript.Echo "RemoteCallsPersec: " & objItem.RemoteCallsPersec
    Wscript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
    Wscript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
    Wscript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
    Wscript.Echo "TotalRemoteCalls: " & objItem.TotalRemoteCalls
Next

Win32_PerfRawData_NETFramework_NETCLRSecurity

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PerfRawData_NETFramework_NETCLRSecurity",,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 "Name: " & objItem.Name
    Wscript.Echo "NumberLinkTimeChecks: " & objItem.NumberLinkTimeChecks
    Wscript.Echo "PercentTimeinRTchecks: " & objItem.PercentTimeinRTchecks
    Wscript.Echo "PercentTimeinRTchecks_Base: " & objItem.PercentTimeinRTchecks_Base
    Wscript.Echo "PercentTimeSigAuthenticating: " & objItem.PercentTimeSigAuthenticating
    Wscript.Echo "StackWalkDepth: " & objItem.StackWalkDepth
    Wscript.Echo "Timestamp_Object: " & objItem.Timestamp_Object
    Wscript.Echo "Timestamp_PerfTime: " & objItem.Timestamp_PerfTime
    Wscript.Echo "Timestamp_Sys100NS: " & objItem.Timestamp_Sys100NS
    Wscript.Echo "TotalRuntimeChecks: " & objItem.TotalRuntimeChecks
Next