经验证:
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属性获得的值为一负数,经测试重装系统此参数保持不变,并且具有唯一性,此属性不能用于网页