Windows獲取CPU、內存和磁盤使用率腳本

獲取CPU使用率腳本（vbs），另存爲cpu.vbs：

On Error Resume Next
Set objProc  = GetObject("winmgmts:\\.\root\cimv2:win32_processor='cpu0'")
Wscript.Echo "CPU 使用率: " & objProc.LoadPercentage & "%"

獲取內存使用率腳本（vbs），另存爲ram.vbs：

strComputer = "."
set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
for each objOS in colOS
strReturn = "內存總數: " &  round(objOS.TotalVisibleMemorySize / 1024) & " MB" & vbCrLf &"內存可用數: " & round(objOS.FreePhysicalMemory / 1024) & " MB" & vbCrLf &"內存使用率 :" & Round(((objOS.TotalVisibleMemorySize-objOS.FreePhysicalMemory)/objOS.TotalVisibleMemorySize)*100) & "%"
Wscript.Echo strReturn
next

獲取磁盤使用率腳本（vbs），另存爲hard.vbs：

Set fsoobj = CreateObject("Scripting.FileSystemObject")
 DriversInfo = GetDriversInfo
 DriversInfo = Replace(DriversInfo, "|", vbCrLf)
 sReturn ="硬盤信息：" & vbCrLf & DriversInfo
 Wscript.Echo 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 & "分區:" & D.DriveLetter & vbCrLf
               GetDriversInfo = GetDriversInfo & "可用空間:" & cSize(D.FreeSpace) & vbCrLf
               GetDriversInfo = GetDriversInfo & "總大小:" & cSize( D.TotalSize) & vbCrLf
               GetDriversInfo = GetDriversInfo & "使用率 :" & (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

最後批處理執行以上腳本，另存爲「獲取CPU、內存和磁盤使用率.bat」

@echo off
echo "正在獲取CPU、內存和磁盤使用率，請稍候..."
echo CPU信息：>info.txt
cscript //Nologo cpu.vbs >> info.txt
echo.>>info.txt
echo 內存信息：>>info.txt
cscript //Nologo ram.vbs >> info.txt
echo.>>info.txt
cscript //Nologo hard.vbs >> info.txt

執行結果以下：

CPU信息：
CPU 使用率: 22%

內存信息：
內存總數: 12132 MB
內存可用數: 7354 MB
內存使用率 :39%

硬盤信息：
分區:C
可用空間:64.541 GB
總大小:102.443 GB
使用率 :36.9974772881646%

分區:D
可用空間:134.282 GB
總大小:402.132 GB
使用率 :66.6073734064705%

分區:E
可用空間:47.56 GB
總大小:300.003 GB
使用率 :84.1468686136043%

分區:F
可用空間:48.774 GB
總大小:220.006 GB
使用率 :77.8305072014826%

轉自：http://www.fendou.info/vbs-get-cpu-harddisk-ram-rate/