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

原文章 ：http://blog.csdn.net/21aspnet/article/details/159124

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

[vb] view plaincopyprint?

1. '获得硬盘序列号  
2.        Dim cmicWmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")  
3.   
4.        Dim Uint32 As UInt32  
5.        For Each cmicWmiObj As ManagementObject In cmicWmi.Get  
6.            Uint32 = cmicWmiObj("signature")  
7.        Next  
8.        TextBox1.Text = Uint32.ToString  

[vb] view plaincopyprint?

1. '获得CPU序列号  
2.     Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor")  
3.   
4.     Dim Uint32 As String  
5.     For Each WmiObj As ManagementObject In Wmi.Get  
6.         Uint32 = WmiObj("ProcessorId")  
7.     Next  
8.     TextBox1.Text = Uint32  

[vb] view plaincopyprint?

1. '获得硬盘总容量  
2.        Dim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")  
3.   
4.        Dim Uint64 As UInt64  
5.        For Each WmiObj As ManagementObject In Wmi.Get  
6.            Uint64 = WmiObj("size")  
7.        Next  
8.        TextBox1.Text = Uint64.ToString