DoNet获取硬件ID(CpuID和硬盘ID)

'>>>>>>>>>>>>>> 获取CpuID示例 <<<<<<<<<<<<<<<<<<
'定义用于管理计算机信息的对象（System.Management必须引用）
Dim sm As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")
'定义用于具体获得计算机信息的对象
Dim mo As System.Management.ManagementObject
'用于获取CpuID的字符串
Dim CpuID As String
'获取Cpu编号信息
For Each mo In sm.Get
CpuID = mo.Item("ProcessorId").ToString.Trim
Exit For
Next mo
============================================
'硬件信息关键字
功能 Search字符串 属性名
获得CpuID Win32_Processor ProcessorId
获得第一块硬盘SN Win32_PhysicalMedia SerialNumber