On Error Resume Next
strComputer = "."
Set wmi = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set items=wmi.ExecQuery("Select * from Win32_Processor",,48)
'枚举所有进程
Dim sum
sum=0
For Each i In items
sum=sum+i.LoadPercentage
Next
'对CPU使用率求和
MsgBox sum
vbs获取cpu使用率
最新推荐文章于 2024-06-25 16:23:43 发布