你得到的錯誤是什么？

這就是我正在使用同樣的東西(剝離了一下)。它顯示每物理處理器的負載。

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

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的批量获取服务器cpu信息,获取服务器的cpu利用率的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。