WMI获取进程CPU占用率

Monitor 

% Process CPU Usage (specific process)
http://www.tek-tips.com/viewthread.cfm?qid=395765
 
for each Process in GetObject("winmgmts:{impersonationLevel=impersonate}//localhost").ExecQuery("Select PercentProcessorTime,IDProcess from Win32_PerfFormattedData_PerfProc_Process where IDProcess=4092")
   
   WScript.Echo("================================")
   For Each oProperty In Process.Properties_
        WScript.stdout.write vbtab & oProperty.Name & "="
        If IsArray(oProperty) Then
            For iCount = 0 To UBound(oProperty)
                WScript.stdout.write  oProperty.Value(iCount) & "," 
            Next
            WScript.StdOut.WriteLine 
        ElseIf IsNull(oProperty) Then
            WScript.stdout.writeline "Property not set"
        Else
            WScript.stdout.writeline oProperty.Value 
        End If 
    Next
    WScript.Echo(Process.PercentProcessorTime)
  WScript.quit  
next
====================================================================================
for each Process in GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
   WScript.echo Process.name & " " & CPUUSage(Process.Handle) & " %"   
Next

Function CPUUSage( ProcID )
 On Error Resume Next
    
 Set objService = GetObject("Winmgmts:{impersonationlevel=impersonate}!\Root\Cimv2")
    
 For Each objInstance1 in objService.ExecQuery("Select * from Win32_PerfRawData_PerfProc_Process where IDProcess = '" & ProcID & "'")
  N1 = objInstance1.PercentProcessorTime
  D1 = objInstance1.TimeStamp_Sys100NS
  Exit For
 Next
 'WScript.Sleep(2000)
 
 For Each perf_instance2 in objService.ExecQuery("Select * from Win32_PerfRawData_PerfProc_Process where IDProcess = '" & ProcID & "'")
  N2 = perf_instance2.PercentProcessorTime
  D2 = perf_instance2.TimeStamp_Sys100NS
  Exit For
 Next
 ' CounterType - PERF_100NSEC_TIMER_INV
 ' Formula - (1- ((N2 - N1) / (D2 - D1))) x 100
 Nd = (N2 - N1)
 Dd = (D2-D1)
 PercentProcessorTime = ( (Nd/Dd))  * 100
       
 CPUUSage = Round(PercentProcessorTime ,0)
End Function