[已解决]怎么获取电脑硬件信息

JooiooL2012

获取硬盘序列号和主板序列号怎么写代码，两者绑定

最佳答案

月排行榜 / 总排行榜

hoogle

2013-6-28 18:43

1. Sub 硬盘序列号()
   
2. Dim drive$
   
3. drive = "c:"
   
4. MsgBox UCase(Replace(drive, ":", "")) + " 盘的序列号是" + Format(CreateObject("Scripting.FileSystemObject").GetDrive(drive).SerialNumber)
   
5. End Sub

复制代码

1. Sub 主板()
   
2. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
   
3. Set colItems = objWMIService.ExecQuery("Select SerialNumber From Win32_BIOS")
   
4. For Each objItem In colItems
   
5. msgbox "主板序列号是"&objItem.SerialNumber
   
6. Exit For
   
7. Next
   
8. end sub

复制代码

跳转到最佳答案楼层

hoogle

1. Sub 硬盘序列号()
   
2. Dim drive$
   
3. drive = "c:"
   
4. MsgBox UCase(Replace(drive, ":", "")) + " 盘的序列号是" + Format(CreateObject("Scripting.FileSystemObject").GetDrive(drive).SerialNumber)
   
5. End Sub

复制代码

1. Sub 主板()
   
2. Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
   
3. Set colItems = objWMIService.ExecQuery("Select SerialNumber From Win32_BIOS")
   
4. For Each objItem In colItems
   
5. msgbox "主板序列号是"&objItem.SerialNumber
   
6. Exit For
   
7. Next
   
8. end sub

复制代码

hwc2ycy

后面的查询就是sql了来自: Android客户端