利用VisualBasic获取计算机硬件指纹的范例代码

最新推荐文章于 2025-05-24 08:26:59 发布

weixin_33868027

最新推荐文章于 2025-05-24 08:26:59 发布

阅读量276

点赞数 1

CC 4.0 BY-SA版权

文章标签：游戏

原文链接：http://www.cnblogs.com/ericsun/archive/2013/01/30/2882909.html

本文介绍了一段使用VBScript从Windows系统中获取多种硬件信息的脚本，包括硬盘、主板、CPU、BIOS序列号及网卡MAC地址。通过Win32类查询，实现了对系统硬件的全面检测。

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

MsgValue = ""
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
'获取硬盘序列号
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMedia", , 48)
For Each objItem In colItems
MsgValue = MsgValue & vbCrLf & "硬盘 = " & objItem.SerialNumber
Next
'获取主板序列号
Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard", , 48)
For Each objItem In colItems
MsgValue = MsgValue & vbCrLf & "主板 = " & objItem.SerialNumber
Next
'获取CPU ID
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)
For Each objItem In colItems
MsgValue = MsgValue & vbCrLf & "CPU = " & objItem.ProcessorId
Next
'获取BIOS序列号
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS", , 48)
For Each objItem In colItems
MsgValue = MsgValue & vbCrLf & "BIOS = " & objItem.SerialNumber
Next
'获取网卡MAC地址
Set colItems = objWMIService.ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE ((MACAddress Is Not NULL) AND (Manufacturer <> 'Microsoft'))", , 48)
For Each objItem In colItems
MsgValue = MsgValue & vbCrLf & "网卡 = " & objItem.MACAddress
Next
Wscript.Echo MsgValue