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使用率
猜你喜欢
转载自blog.csdn.net/cosmopolitanme/article/details/80703950
今日推荐
周排行