转载自：https://blog.51cto.com/luweikai/1904427
参考：http://www.51testing.com/html/85/87885-17546.html
https://www.cnblogs.com/wtao/archive/2011/09/16/2178760.html
获取CPU使用率脚本（vbs），另存为cpu.vbs：
1 On Error Resume Next 2 Set objProc = GetObject("winmgmts:\\.\root\cimv2:win32_processor='cpu0'") 3 Wscript.Echo "CPU 使用率: " & objProc.LoadPercentage & "%"
获取内存使用率脚本（vbs），另存为ram.vbs：
1 strComputer = "." 2 set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 3 set colOS = objWMI.InstancesOf("Win32_OperatingSystem") 4 for each objOS in colOS 5 strReturn = "内存总数: " & round(objOS.TotalVisibleMemorySize / 1024) & " MB" & vbCrLf &"内存可用数: " & round(objOS.FreePhysicalMemory / 1024) & " MB" & vbCrLf &"内存使用率 :" & Round(((objOS.TotalVisibleMemorySize-objOS.FreePhysicalMemory)/objOS.TotalVisibleMemorySize)*100) & "%" 6 Wscript.Echo strReturn 7 next
获取磁盘使用率脚本（vbs），另存为hard.vbs：
1 Set fsoobj = CreateObject("Scripting.FileSystemObject") 2 DriversInfo = GetDriversInfo 3 DriversInfo = Replace(DriversInfo, "|", vbCrLf) 4 sReturn ="硬盘信息：" & vbCrLf & DriversInfo 5 Wscript.Echo sReturn 6 Function GetDriversInfo() 7 8 GetDriversInfo = "" 9 Set drvObj = fsoobj.Drives 10 For Each D In drvObj 11 Err.Clear 12 If D.DriveLetter <> "A" Then 13 If D.isReady Then 14 GetDriversInfo = GetDriversInfo & "分区:" & D.DriveLetter & vbCrLf 15 GetDriversInfo = GetDriversInfo & "可用空间:" & cSize(D.FreeSpace) & vbCrLf 16 GetDriversInfo = GetDriversInfo & "总大小:" & cSize( D.TotalSize) & vbCrLf 17 GetDriversInfo = GetDriversInfo & "使用率 :" & (100*((D.TotalSize-D.FreeSpace)/D.TotalSize)) &"%" & vbCrLf 18 GetDriversInfo = GetDriversInfo & "|" 19 Else 20 End If 21 Else 22 End If 23 Next 24 End Function 25 26 Function cSize(tSize) 27 28 If tSize >= 1073741824 Then 29 cSize = Int((tSize / 1073741824) * 1000) / 1000 & " GB" 30 ElseIf tSize >= 1048576 Then 31 cSize = Int((tSize / 1048576) * 1000) / 1000 & " MB" 32 ElseIf tSize >= 1024 Then 33 cSize = Int((tSize / 1024) * 1000) / 1000 & " KB" 34 Else 35 cSize = tSize & "B" 36 End If 37 38 End Function
最后批处理执行以上脚本，另存为“获取CPU、内存和磁盘使用率.bat”
1 @echo off 2 echo "正在获取CPU、内存和磁盘使用率，请稍候..." 3 echo CPU信息：>info.txt 4 cscript //Nologo cpu.vbs >> info.txt 5 echo.>>info.txt 6 echo 内存信息：>>info.txt 7 cscript //Nologo ram.vbs >> info.txt 8 echo.>>info.txt 9 cscript //Nologo hard.vbs >> info.txt
执行结果如下：
1 CPU信息： 2 CPU 使用率: 22% 3 4 内存信息： 5 内存总数: 12132 MB 6 内存可用数: 7354 MB 7 内存使用率 :39% 8 9 硬盘信息： 10 分区:C 11 可用空间:64.541 GB 12 总大小:102.443 GB 13 使用率 :36.9974772881646% 14 15 分区:D 16 可用空间:134.282 GB 17 总大小:402.132 GB 18 使用率 :66.6073734064705% 19 20 分区:E 21 可用空间:47.56 GB 22 总大小:300.003 GB 23 使用率 :84.1468686136043% 24 25 分区:F 26 可用空间:48.774 GB 27 总大小:220.006 GB 28 使用率 :77.8305072014826%