Windows获取CPU、内存和磁盘使用率脚本

2022-04-08 17:02:00 阅读：287 来源： 互联网

标签：tSize GetDriversInfo Windows vbs GB 使用率 CPU 内存

转载自：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%

标签：tSize,GetDriversInfo,Windows,vbs,GB,使用率,CPU,内存
来源： https://www.cnblogs.com/zhncnblogs/p/16118170.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

Windows获取CPU、内存和磁盘使用率脚本