主题：多个硬盘阵列时生成机器码的问题

此主题相关图片如下：qq图片2015011-1.jpg

用户注册时原来是用下面的代码生成机器码的，但多个硬盘时就显示上面的乱码了，
e.Form.Controls("TextBox1").Value = HardDiskId

 

两个问题：

1、这种情况要怎么生成机器码？

2、生成了机器码后激活时方式还是和一个硬盘的相同吧？

 

谢谢！

 试试，红色代码自己改改

 

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

谢谢，但不明白怎么改啊，我用上述代码直接在命令窗口中运行(只有一个硬盘)，会输出两次值，第一次是正确的硬盘号，第二次却显示一个空的窗口。不知道有几个硬盘的服务器上会怎么显示，有几个硬盘时是按disk1,disk2这样来区分的吗？

 取有值的，为空的不要理。