Loading
Scriptbox
 VBScript Links 
 About VBscript 
 JavaScript Links 
 About JavaScript 
 Powershell Links 
 PSCRIPT the Script Launcher 
 PowerShell Shortcut Keys 
 About Powershell 
     VBScript
    JavaScript
    Powershell
Disclaimer
Contact
Latest 10 Scripts
Script search
  :: { Category } :: 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ
         

Search Options:  Monitor  Processor  Performance  

 Content of Monitor Processor Performance.vbs
MD5 Hash: C35A978160335191FD088F0172E88F02
' Description: Uses cooked performance counters to monitor processor activity.


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

For i = 1 to 5
For Each objItem in colItems
Wscript.Echo "C1 Transitions Per Second: " & _
objItem.C1TransitionsPersec
Wscript.Echo "C2 Transitions Per Second: " & _
objItem.C2TransitionsPersec
Wscript.Echo "C3 Transitions Per Second: " & _
objItem.C3TransitionsPersec
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "DPC Rate: " & objItem.DPCRate
Wscript.Echo "DPCs Queued Per Second: " & objItem.DPCsQueuedPersec
Wscript.Echo "Interrupts Per Second: " & objItem.InterruptsPersec
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Percent C1 Time: " & objItem.PercentC1Time
Wscript.Echo "Percent C2 Time: " & objItem.PercentC2Time
Wscript.Echo "Percent C3 Time: " & objItem.PercentC3Time
Wscript.Echo "Percent DPC Time: " & objItem.PercentDPCTime
Wscript.Echo "Percent Idle Time: " & objItem.PercentIdleTime
Wscript.Echo "Percent Interrupt Time: " & objItem.PercentInterruptTime
Wscript.Echo "Percent Privileged Time: " & _
objItem.PercentPrivilegedTime
Wscript.Echo "Percent Processor Time: " & objItem.PercentProcessorTime
Wscript.Echo "Percent User Time: " & objItem.PercentUserTime
Wscript.Sleep 2000
objRefresher.Refresh
Next
Next

   © 2008 - 2013 Boris Toll      :: Scripts available: 6.481 ::      :: scriptbox.toll.at ::      :: powered by www.toll.at ::
  Google Entries:n/a
  Yahoo Backlinks:n/a
  Live Backlinks:n/a
  del.icio.us Bookmarks:n/a
  Technorati Links:n/a