.NET Framework Scripts

Monitor NET Framework NETCLR Remoting Performance
Monitor NET Framework NETCLR Security Performance
Monitor NET Framework NETCLR Exceptions Performance
Monitor NET Framework NETCLR Interop Performance
Monitor NET Framework NETCLR JIT Performance
Monitor NET Framework NETCLR Locks and Threads Performance
Monitor NET Framework NETCLR Memory Performance

---

You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.

---

Monitor NET Framework NETCLR Remoting Performance

Uses cooked performance counters to monitor CLR remoting performance on a computer running .NET Frameworks 1.1.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objWMIService, _
    "Win32_PerfFormattedData_NETFRamework_NETCLRRemoting").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Remote calls per second: " & _
            objItem.RemoteCallsPerSec
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor NET Framework NETCLR Security Performance

Uses cooked performance counters to monitor CLR security performance on a computer running .NET Frameworks 1.1.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objWMIService, _
    "Win32_PerfFormattedData_NETFramework_NETCLRSecurity").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Total runtime checks: " & objItem.TotalRuntimeChecks
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor NET Framework NETCLR Exceptions Performance

Uses cooked performance counters to monitor CLR exceptions performance on a computer running .NET Frameworks 1.1.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objWMIService, " & _
    "Win32_PerfFormattedData_NETFramework_NETCLRExceptions").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Exceptions thrown: " & objItem.NumberOfExcepsThrown
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor NET Framework NETCLR Interop Performance

Uses cooked performance counters to monitor CLR interop performance on a computer running .NET Frameworks 1.1.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objWMIService, _
    "Win32_PerfFormattedData_NETFramework_NETCLRInterop").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Number of stubs: " & objItem.NumberOfStubs
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor NET Framework NETCLR JIT Performance

Uses cooked performance counters to monitor CLR JIT performance on a computer running .NET Frameworks 1.1.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum _
    (objWMIService, "Win32_PerfFormattedData_NETFramework_NETCLRJit").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Percent time in JIT: " & objItem.PercentTimeInJIT
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor NET Framework NETCLR Locks and Threads Performance

Uses cooked performance counters to monitor CLR locks and threads performance on a computer running .NET Frameworks 1.1.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objWMIService, _
    "Win32_PerfFormattedData_NETFramework_NETCLRLocksAndThreads").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Current queue length: " & objItem.CurrentQueueLength
        Wscript.Sleep 2000
        objRefresher.Refresh
    Next
Next
	

Monitor NET Framework NETCLR Memory Performance

Uses cooked performance counters to monitor CLR memory performance on a computer running .NET Frameworks 1.1.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
set objRefresher = CreateObject("WbemScripting.SWbemRefresher")
Set colItems = objRefresher.AddEnum(objWMIService, _
    "Win32_PerfFormattedData_NETFramework_NETCLRMemory").objectSet
objRefresher.Refresh

For i = 1 to 5
    For Each objItem in colItems
        Wscript.Echo "Total bytes committed: " & _
            objItem.NumberTotalCommittedBytes
    Wscript.Sleep 2000
    objRefresher.Refresh
    Next
Next