vbscript测试CPU，内存，硬盘使用率

运行方式： 拷贝到记事本，保存成VBS文件即可

一：测试CPU的使用率

On Error Resume Next

Set objProc  = GetObject("winmgmts://./root/cimv2:win32_processor='cpu0'")
msgbox "CPU Load Percentage: " & objProc.LoadPercentage & "%"

 

 

二：内存的使用率

strComputer = "."

set objWMIDateTime = CreateObject("WbemScripting.SWbemDateTime")

set objWMI = GetObject("winmgmts://" & strComputer & "/root/cimv2")
set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
for each objOS in colOS
 strReturn = "Total Physical Memory: " &  round(objOS.TotalVisibleMemorySize / 1024) & " MB" & vbCrLf &"Available Physical Memory: " & round(objOS.FreePhysicalMemory / 1024) & " MB" & vbCrLf &"Physical Memory Percentage :" & Round(((o