VB怎么得到机器码啊！

怎么得到硬盘和CPU的物理ID

---

VB code:

Private Sub Command1_Click()
Dim strComputerName As String
Dim HardInfos As Object
Dim HardInfo As Object
Dim CPUInfos As Object
Dim CPUInfo As Object

Dim CPUS As Object
Dim myCpu As Object
strComputerName = Environ$("ComputerName")
Set HardInfos = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputerName & "\root\cimv2").ExecQuery("select * from Win32_DiskDrive")

'硬盘ID
For Each HardInfo In HardInfos
MsgBox HardInfo.signature
Next

Set HardInfo = Nothing
Set HardInfos = Nothing


Set CPUInfos = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputerName & "\root\cimv2").ExecQuery("SELECT * from Win32_Processor")

'CPUID
For Each CPUInfo In CPUInfos
MsgBox CPUInfo.ProcessorId
Next

Set CPUInfo = Nothing
Set CPUInfos = Nothing

End Sub



参考：http://http://msdn.microsoft.com/en-us/library/aa394373(VS.85).aspx

---

哈哈，不错，收藏了
参考的网址多了一个http://

---

汇编指令有个CPUID可取得CPU的序列号，是否这个东西啊。如果是，自己写个汇编指令段存入一个数组，然后使用CallWindowProc运行此指令数据取得数据。

---

帮