在VBScript中可以确定每个进程的CPU使用情况吗？

Question

我正在寻找使用VBScript文件监视在窗口2003服务器上运行的进程。我已经看到了PercentProcessorTime，但这并没有真正捕获使用情况。无论如何要确定一个百分比的使用情况吗？

Answer 1

看起来可以将WMI与perfmon计数器结合使用。请参阅this article。

下面是相关代码：

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