通过WMI获得硬盘和CPU的物理序列号（VB.net）

'获得硬盘序列号         Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")           Dim Uint32 As UInt32         For Each cmicWmiObj As ManagementObject In cmicWmi.Get             Uint32 = cmicWmiObj("signature")         Next         TextBox1.Text = Uint32.ToString             '获得CPU序列号         Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")           Dim Uint32 As String         For Each WmiObj As ManagementObject In Wmi.Get             Uint32 = WmiObj("ProcessorId")         Next         TextBox1.Text = Uint32         '获得硬盘总容量         Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")           Dim Uint64 As UInt64         For Each WmiObj As ManagementObject In Wmi.Get             Uint64 = WmiObj("size")         Next         TextBox1.Text = Uint64.ToString首先，引用System.Management；然后在代码中Imports System.Management；