- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 多个硬盘阵列时生成机器码的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=62983)
-- 发布时间：2015/1/11 16:01:00
-- 多个硬盘阵列时生成机器码的问题
此主题相关图片如下：qq图片2015011-1.jpg
用户注册时原来是用下面的代码生成机器码的，但多个硬盘时就显示上面的乱码了，
e.Form.Controls("TextBox1").Value = HardDiskId
两个问题：
1、这种情况要怎么生成机器码？
2、生成了机器码后激活时方式还是和一个硬盘的相同吧？
谢谢！
-- 发布时间：2015/1/11 16:14:00
--
试试，红色代码自己改改
Dim Device,objWMIService,USBDevices As object
objWMIService = GetObject("winmgmts:\\\\.\\root\\cimv2")
USBDevices = objWMIService.execquery("S elect * From Win32_PhysicalMedia")
For Each Device In USBDevices
If Device.SerialNumber.Tostring.Trim() > "" Then
msgbox(Device.SerialNumber.Tostring.Trim)
End If
Next
-- 发布时间：2015/1/11 16:41:00
--
谢谢，但不明白怎么改啊，我用上述代码直接在命令窗口中运行(只有一个硬盘)，会输出两次值，第一次是正确的硬盘号，第二次却显示一个空的窗口。不知道有几个硬盘的服务器上会怎么显示，有几个硬盘时是按disk1,disk2这样来区分的吗？
-- 发布时间：2015/1/11 16:47:00
--
取有值的，为空的不要理。