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

作者：iwebsms
 '获得硬盘序列号<o:p></o:p>

        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")<o:p></o:p>

 <o:p></o:p>

        Dim Uint32 As UInt32<o:p></o:p>

        For Each cmicWmiObj As ManagementObject In cmicWmi.Get<o:p></o:p>

            Uint32 = cmicWmiObj("signature")<o:p></o:p>

        Next<o:p></o:p>

        TextBox1.Text = Uint32.ToString<o:p></o:p>

 <o:p></o:p>

 <o:p></o:p>

        '获得CPU序列号<o:p></o:p>

        Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")<o:p></o:p>

 <o:p></o:p>

        Dim Uint32 As String<o:p></o:p>

        For Each WmiObj As ManagementObject In Wmi.Get<o:p></o:p>

            Uint32 = WmiObj("ProcessorId")<o:p></o:p>

        Next<o:p></o:p>

        TextBox1.Text = Uint32

        '获得硬盘总容量<o:p></o:p>

        Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")<o:p></o:p>

 <o:p></o:p>

        Dim Uint64 As UInt64<o:p></o:p>

        For Each WmiObj As ManagementObject In Wmi.Get<o:p></o:p>

            Uint64 = WmiObj("size")<o:p></o:p>

        Next<o:p></o:p>

        TextBox1.Text = Uint64.ToString

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