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