Contact Info

Crumbtrail

ActiveXperts.com » Administration » VBScript Collection » Operating System » .NET Frameworks

.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