一个收集电脑信息的脚本（vbs）

VBS脚本收集电脑信息

最新推荐文章于 2024-05-16 11:31:44 发布

原创

最新推荐文章于 2024-05-16 11:31:44 发布 · 2.7k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#脚本 #each #video #disk #os

这个VBScript脚本用于收集电脑的详细信息，包括计算机名、硬盘、CPU、内存、操作系统、声卡、网络适配器MAC地址、CD-ROM驱动器、显卡等，并将这些信息写入指定网络路径的文本文件。

On Error Resume Next
temp=0
set wshshell=wscript.createobject("wscript.shell")
wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,True
wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,True
wshshell.run ("%comspec% /c net start winmgmt"),0
Set WshNetwork = WScript.Createobject("WScript.Network")
computername=WshNetwork.ComputerName

set fso=createobject("scripting.filesystemobject")
tempfilter="//192.169.0.6/hard_info/"& computername &".txt"
set tempfile=fso.createtextfile(tempfilter)

strComputer = "."
Set objWMIService = Getobject("winmgmts://" & strComputer & "/root/cimv2")

set board =objwmiservice.execQuery("select * from win32_baseboard")
for each item in board
board2= item.Product
next

'CPU

set cpu =objwmiservice.execQuery("select * from win32_processor")
for each item in cpu
cpu2= item.Name

next</