Windows主机巡检vbs脚本

三朝看客

已于 2024-03-07 22:07:16 修改

阅读量1.6k

点赞数 25

CC 4.0 BY-SA版权

分类专栏：其他服务器运维篇文章标签： windows

于 2024-03-05 16:37:54 首次发布

dangcafe

本文链接：https://blog.csdn.net/xaiodang/article/details/136482922




' Windows主机巡检脚本



' 获取主机名称

Set objNetwork = CreateObject("WScript.Network")

strComputer = objNetwork.ComputerName



' 获取磁盘信息

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")



' 获取CPU信息

Set colProcessors = objWMIService.ExecQuery("Select * from Win32_Processor")



' 获取内存信息

Set colMemory = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory")



' 获取网络信息

Set colNetworkAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")



' 创建文件系统对象

Set objFSO = CreateObject("Scripting.FileSystemObject")



' 检查文件是否存在，如果存在则删除

strFilePath = "C:\logs\check.txt"

If objFSO.FileExists(strFilePath) Then

    objFSO.DeleteFile strFilePath

End If



' 创建文件

Set objFile = objFSO.CreateTextFile(strFilePath)



' 写入主机信息到文件

objFile.WriteLine "主机名称: " & strComputer & vbCrLf





Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")

Set colI