通过WMI获得硬盘和CPU的物理序列号

首先，引用System.Management；然后在代码中Imports System.Management

1. '获得硬盘序列号
3.         Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
5.         Dim Uint32 As UInt32
7.         For Each cmicWmiObj As ManagementObject In cmicWmi.Get
9.             Uint32 = cmicWmiObj("signature")
11.         Next
13.         TextBox1.Text = Uint32.ToString
15.         '获得CPU序列号
17.         Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")
19.         Dim Uint32 As String
21.         For Each WmiObj As ManagementObject In Wmi.Get
23.             Uint32 = WmiObj("ProcessorId")
25.         Next
27.         TextBox1.Text = Uint32
29.         '获得硬盘总容量
31.         Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
35.         Dim Uint64 As UInt64
37.         For Each WmiObj As ManagementObject In Wmi.Get
39.             Uint64 = WmiObj("size")
41.         Next
43.         TextBox1.Text = Uint64.ToString