关于wmi获取cpuid、硬盘id的准确性

经验证：

1、使用wmi获取的cpuid并不是唯一的，同一种型号的cpu通过wmi获取是一样的，而且不会因系统的重装而改变

2、因为Win32_DiskDrive的“PNPDeviceID”，可以获取所有的驱动器的型号及相关参数，不同硬盘参数唯一，而且不会因系统重装而改变（此属性不能用于iis中的网页文件，应采用下面的）

Private Sub Command1_Click()
Text1.Text = GetHdId
End Sub
Function GetHdId()
Dim Hdid
WQL = "SELECT * FROM Win32_DiskDrive"
Set objinst = GetObject("winmgmts:").ExecQuery(WQL)

For Each obj In objinst

    If IsNull(obj.DeviceID) Then
        Hdid = "no disk "
    Else
      If Hdid <> "" Then
        Hdid = Hdid + " 下一个："
    End If

    Hdid = Hdid + CStr(obj.PNPDeviceID)
    End If
   
Next
GetHdId = Hdid
End Function

 

3、Signature属性获得的值为一负数，经测试重装系统此参数保持不变，并且具有唯一性，此属性不能用于网页