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(((objOS.TotalVisibleMemorySize-objOS.FreePhysicalMemory)/objOS.TotalVisibleMemorySize)*100) & "%"
Wscript.Echo strReturn

next

三：硬盘

Set fsoobj = CreateObject("Scripting.FileSystemObject")
DriversInfo = GetDriversInfo
DriversInfo = Replace(DriversInfo, "|", vbCrLf)
sReturn ="Driver info：" & vbCrLf & DriversInfo
MsgBox sReturn
Function GetDriversInfo()

GetDriversInfo = ""
Set drvObj = fsoobj.Drives
For Each D In drvObj
Err.Clear
If D.DriveLetter <> "A" Then
If D.isReady Then
GetDriversInfo = GetDriversInfo & "Driver:" & D.DriveLetter & vbCrLf
GetDriversInfo = GetDriversInfo & "Driver VOL:" & D.VolumeName & vbCrLf
GetDriversInfo = GetDriversInfo & "Driver SYS:" & D.FileSystem & vbCrLf
GetDriversInfo = GetDriversInfo & "Driver free size:" & cSize(D.FreeSpace) & vbCrLf
GetDriversInfo = GetDriversInfo & "Driver total size:" & cSize( D.TotalSize) & vbCrLf
GetDriversInfo = GetDriversInfo & "Driver used percentage :" & (100*((D.TotalSize-D.FreeSpace)/D.TotalSize)) &"%" & vbCrLf
GetDriversInfo = GetDriversInfo & "|"
Else
End If
Else
End If
Next
End Function

Function cSize(tSize)

If tSize >= 1073741824 Then
cSize = Int((tSize / 1073741824) * 1000) / 1000 & " GB"
ElseIf tSize >= 1048576 Then
cSize = Int((tSize / 1048576) * 1000) / 1000 & " MB"
ElseIf tSize >= 1024 Then
cSize = Int((tSize / 1024) * 1000) / 1000 & " KB"
Else
cSize = tSize & "B"
End If

End Function
转载请注明NOOKIA著作

谢谢大家啊 呵呵