vbscript测试CPU，内存，硬盘使用率

最新推荐文章于 2024-06-25 16:23:43 发布

nookia

最新推荐文章于 2024-06-25 16:23:43 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

文章标签： vbscript 测试 function each

本文链接：https://blog.youkuaiyun.com/nookia/article/details/2010505

这篇博客介绍了如何使用VBScript来测试和获取系统的CPU使用率、内存使用情况以及硬盘使用情况。通过创建对象并调用WMI（Windows Management Instrumentation）接口，可以获取到详细的系统资源信息，包括总物理内存、可用内存、物理内存百分比、硬盘驱动器的详细信息以及磁盘使用率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

三：硬盘

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著作

谢谢大家啊呵呵