运行方式: 拷贝到记事本,保存成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