你得到的错误是什么？
这就是我正在使用同样的东西(剥离了一下)。它显示每物理处理器的负载。
strComputer = "."
Dim arrProcessors : ReDim arrProcessors(2,0)
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colCPUSystems = objWMIService.ExecQuery("Select AddressWidth,DataWidth,NumberOfCores,Name,MaxClockSpeed,LoadPercentage from Win32_Processor")
proc = 0
For Each objProc in colCPUSystems
arrProcessors(0,proc) = objProc.NumberOfCores
arrProcessors(1,proc) = objProc.MaxClockSpeed
arrProcessors(2,proc) = objProc.LoadPercentage
proc = proc + 1
ReDim Preserve arrProcessors(2,proc)
strOSBits = objProc.AddressWidth
strHWBits = objProc.DataWidth
strProcessorCores = objProc.NumberOfCores
strProcessor = objProc.Name
strProcessorSpeed = objProc.MaxClockSpeed
Next
For proc = 0 To UBound(arrProcessors,2)-1
intLoad = arrProcessors(2,proc)
intFree = 100-intLoad
strProcessorInfo = strProcessorInfo & "Processor " & proc+1 _
& ": " & arrProcessors(0,proc) & " Cores : Load " & intLoad & "%" & vbCrLf
Next
WScript.Echo strProcessorInfo
)
