CPU 使用率代码如下
On
Error
Resume
Next
Set
objProc = GetObject("winmgmts:\\.\root\cimv2:win32_processor='cpu0'"
)
Wscript.Echo "CPU 使用率: "
& objProc.LoadPercentage & "%"
硬盘 使用率代码如下
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
内存 使用率代码如下
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
如果想把结果保存在文本里只需要用批处理调用
echo off echo CPU信息:>info.xls cscript //Nologo cpu.vbs >> info.xls echo.>>info.xls echo 内存信息:>>info.txt cscript //Nologo ram.vbs >> info.txt echo.>>info.xls cscript //Nologo hard.vbs >> info.txt rem copy info.xls "date%" .xls