VBS如何实现监控单个进程的资源使用情况？

rwxyxy

如何实现Windows脚本监控指定进程的资源占用情况（CPU、内存、虚拟内存），可否告知用到什么对象及实现方法？

fastslz

1. If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then
   
2.    CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"Cscript.exe //NoLogo "&Chr(34)& Wscript.ScriptFullName &Chr(34))
   
3.    Wscript.Quit
   
4. End If
   
5. 
   
6. aExe = "notepad.exe"
   
7. Set Wmi = GetObject("Winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
   
8. 
   
9. Do
   
10. Set A = Wmi.Execquery("Select * From Win32_Process Where Name = '" & aExe & "'")
    
11. For Each B In A
    
12. Wscript.Echo "映像路径：" &vbtab& B.CommandLine
    
13. Wscript.Echo "内存使用：" &vbtab& FormatNumber(B.WorkingSetSize/1024,0) & " K"
    
14. Wscript.Echo "虚拟内存：" &vbtab& FormatNumber(B.PageFileUsage/1024,0)& " K"
    
15. Wscript.Echo
    
16. Next
    
17. Wscript.Sleep 1000
    
18. Loop

复制代码

CPU使用就不知道是哪个属性