以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  多个硬盘阵列时生成机器码的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62983)
--  作者：HappyFt
--  发布时间：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
--  作者：HappyFt
--  发布时间：2015/1/11 16:41:00
--  
谢谢，但不明白怎么改啊，我用上述代码直接在命令窗口中运行(只有一个硬盘)，会输出两次值，第一次是正确的硬盘号，第二次却显示一个空的窗口。不知道有几个硬盘的服务器上会怎么显示，有几个硬盘时是按disk1,disk2这样来区分的吗？
--  作者：有点甜
--  发布时间：2015/1/11 16:47:00
--  
 取有值的，为空的不要理。