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

最新推荐文章于 2021-03-22 12:27:38 发布

wangxiaofei2006

最新推荐文章于 2021-03-22 12:27:38 发布

阅读量2.6k

点赞数

分类专栏： windows 常见问题文章标签：脚本 each video disk os

本文链接：https://blog.csdn.net/wangxiaofei2006/article/details/4242770

版权

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

摘要由CSDN通过智能技术生成

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