- On Error Resume Next
- strComputer = "."
- Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
- Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)
- For Each objItem in colItems
- WScript.Echo "LoadPercentage: " & objItem.LoadPercentage
- Next
来源: http://www.phpxs.com/code/1008797/