vbs获取cpu使用率

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