VBScript监测指定进程的CPU占用率

IUnknown

1. ProcessName = "ttplayer.exe"
   
2. 
   
3. Set objSWbemService = GetObject("winmgmts:\\.\root\cimv2")
   
4. 
   
5. set colItems = objSWbemService.ExecQuery("select * from Win32_Processor")
   
6. for each objItem in colItems
   
7.     CpuNum = CpuNum + objItem.NumberOfLogicalProcessors
   
8. next
   
9. 
   
10. set colItems = objSWbemService.ExecQuery("select * from Win32_Process " _
    
11.     & " where Name = '" & ProcessName & "'")
    
12. for each objItem in colItems
    
13.     ProcessId = objItem.ProcessId
    
14.     exit for
    
15. next
    
16. 
    
17. set colItems = objSWbemService.ExecQuery( _
    
18.     "select * from Win32_PerfFormattedData_PerfProc_Process " _
    
19.     & " where IDProcess = " & ProcessId)
    
20. for each objItem in colItems
    
21.     'WScript.Echo objItem.Path_.RelPath
    
22.     set SWbemObject = objItem
    
23. next
    
24. 
    
25. SWbemObject.Refresh_
    
26. do
    
27.     SWbemObject.Refresh_
    
28.     WScript.StdOut.write vbCr & Time() & vbTab _
    
29.         & (SWbemObject.PercentProcessorTime / CpuNum) & "%" & vbTab
    
30.     WScript.Sleep 1000
    
31. loop

复制代码

一个程序可能有多个进程实例，这里只处理单进程的情况。要处理多个进程也很简单，有需要者请自行修改。