1、bat調用vbs，將主機巡檢結果輸出到log文件
新建bat文件，并添加以下腳本：

@echo off cscript //Nologo check_host.vbs > check_host_info.log

2、在控制臺輸入以下命令，將主機巡檢結果輸出到控制臺

cscript //Nologo check_host.vbs

3、新建check_host.vbs文件，并添加以下腳本：

REM----------------硬盤信息-------------------------Wscript.Echo "<rcds>" Wscript.Echo "<rcd>" Set fsoobj = CreateObject("Scripting.FileSystemObject")DriversInfo = GetDriversInfoDriversInfo = Replace(DriversInfo, "|", vbCrLf)DriversInfoA = GetDriversInfoADriversInfoA = Replace(DriversInfoA, "|", vbCrLf)sReturn = "<filesystem_used>" & vbCrLf & DriversInfo &"</filesystem_used>"BReturn = "<filesystem_usedA>" & vbCrLf & DriversInfoA &"</filesystem_usedA>"Wscript.Echo sReturn Wscript.Echo BReturn REM----------------內存信息-------------------------strComputer = "." set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") set colOS = objWMI.InstancesOf("Win32_OperatingSystem") for each objOS in colOS strReturn = "<mem_used>" & Round(((objOS.TotalVisibleMemorySize-objOS.FreePhysicalMemory)/objOS.TotalVisibleMemorySize)*100) & "% </mem_used>" Wscript.Echo strReturn REM----------------cpu信息------------------------- Next On Error Resume Next Set objProc = GetObject("winmgmts:\\.\root\cimv2:win32_processor='cpu0'") Wscript.Echo "<cpu_used>" & objProc.LoadPercentage & "%</cpu_used>" Wscript.Echo "</rcd>" Wscript.Echo "</rcds>"Function GetDriversInfo()GetDriversInfo = ""Set drvObj = fsoobj.DrivesFor Each D In drvObjErr.ClearREM C盤If D.DriveLetter = "C" ThenIf D.isReady ThenGetDriversInfo = GetDriversInfo & CInt((100*((D.TotalSize-D.FreeSpace)/D.TotalSize))) &"%" & vbCrLfElseEnd IfElseEnd IfNextEnd FunctionFunction GetDriversInfoA()GetDriversInfoA = ""Set drvObj = fsoobj.DrivesFor Each A In drvObjErr.ClearREM B盤If A.DriveLetter = "B" ThenIf A.isReady ThenGetDriversInfoA = GetDriversInfoA & CInt((100*((A.TotalSize-A.FreeSpace)/A.TotalSize))) &"%" & vbCrLfElseEnd IfElseEnd IfNextEnd FunctionFunction cSize(tSize)If tSize >= 1073741824 ThencSize = Int((tSize / 1073741824) * 1000) / 1000 & " GB"ElseIf tSize >= 1048576 ThencSize = Int((tSize / 1048576) * 1000) / 1000 & " MB"ElseIf tSize >= 1024 ThencSize = Int((tSize / 1024) * 1000) / 1000 & " KB"ElsecSize = tSize & "B"End If End Function

4、運行結果
(1)、方法一：

(1)、方法二：

總結

以上是生活随笔為你收集整理的vbs脚本巡检windows主机的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。