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

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

wangxiaofei2006

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

阅读量2.7k

点赞数

CC 4.0 BY-SA版权

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

本文链接：https://blog.youkuaiyun.com/wangxiaofei2006/article/details/4242770

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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

最低0.47元/天解锁文章