vbs脚本巡检windows主机

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主机相关推荐

C#调用vbs脚本实现Windows版Siri
最近新加入,把自己一些有意思的小东西分享给大家,我是一个学生,代码写得少,哪里不规范,希望大家见谅. 这事我封装好的一个类,可以直接实例化对象之后,调用"对象.Talk()"方法, ...
显示域用户登录的ip或计算机名,如何在使用PowerShell脚本或者VBS脚本，查看域内正在登录的域用户名、主机名和主机IP地址...
域管理员希望能通过PowerShell或者VBS脚本,查看当前域内正在登录的账号名称.客户端主机名称和客户端主机IP地址.以前看过论坛中的一个帖子是说通过VBS脚本来查看,但是只能看到主机名和登录账号 ...
那些年，我写过的设置Windows系统变量的vbs脚本
下面是我之前整理过的三段vbs代码,他们的主要都是用于快速设置Windows系统变量的.这些代码,在使用的过程中,都做了很多修改,已经记不清最初从哪里学来的了. 第一段: Set WshShell=C ...
windows下vbs脚本隐藏控制台
每次想写python代码时,都需要打开IDE进行编写,并且需要创建许多小文件.如果使用jupyter就能够直接书写.但是jupyter需要手动通过控制台打开,这不够方便.通过把jupyter note ...
java+磁盘io监控_磁盘IO利用率监控VBS脚本(windows)
'程序名称: btlwchk_DiskIO.vbs '版权信息: Copyright (c) 2011 guangzhou bluetech technology Incorpo ...
windows下运行vbs脚本
windows下运行vbs脚本 vbs基础教程简单的代码(此代码来自脚本之家,如果侵犯了您的权利请与本人联系) REM 输入并回显你的名字 '使用InputBox和Msgbox函数 '(上面及本行可 ...
计算机计划任务不执行,在Windows 8中作为计划任务调用时，VBS脚本无法运行
我创建了一个VBS脚本,即使在没有管理员权限的ID上,也可以在Windows 8 Home计算机上手动运行时完美运行.无论我用什么用户凭据通过计算机启动时的计划任务运行它,同样的脚本都会反复失败.我已 ...
Windows vbs脚本获取系统信息
Windows vbs脚本获取系统信息运行的进程硬盘序列号获取制造商获取型号获取生产日期获取主板信息获取SN号获取系统类型及安装日期获取CPU信息获取内存信息获取显卡信息获取声 ...
怎么在服务器上注册vbs组件,Windows下查看PC服务器硬件序列号的vbs脚本
IBM服务器会在表面上写着服务器的型号和序列号. 但是很难判别字母O和数字0,重启服务器的时候可以F1进入BIOS中查看硬件信息看到. 但是不在服务器身边的时候是无法直接查看了. IBM服务器可以安装 ...
VBS脚本常用经典代码收集
在网上查找资料的时候发现好多经典的vbs代码,收集起来也为了以后学习. VBS脚本用途很多: 1. 计算 2. 处理文件和文件夹 3. 管理Windows 4. 处理Word, Excel, Powe ...

vbs脚本巡检windows主机

vbs脚本巡检windows主机相关推荐

最新文章

热门文章