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