2024年6月2日发(作者：)

C#获取电脑硬件信息(CPU ID、主板ID、硬盘ID、BIOS编号)

C#获取电脑硬件信息（CPU ID、主板ID、硬盘ID、BIOS编号）

最近学习过程中，想到提取系统硬件信息做一些验证，故而对

网上提到的利用.NET ment类获取硬件信息做了进一

步的学习、验证。验证是分别在4台电脑，XP SP3系统中进行，特

将验证过程记录于此。

说明：

电脑1(联想品牌电脑)；

电脑2(HP品牌电脑)；

电脑4(兼容机)；

•获取CPU编号：

电脑3(联想品牌电脑)；

Dim mc As New ManagementClass("Win32_Processor")

Dim moc As ManagementObjectCollection = tances()

Dim strID As String = Nothing

For Each mo As ManagementObject In moc

strID = ties("ProcessorId").ng()

Exit For

Next

+= "CPU ID:" + strID

返回结果：

电脑1：CPU ID:BFEBFBFF00000F27

电脑2：CPU ID:BFEBFBFF00000F27

电脑3：CPU ID:BFEBFBFF00000F29

电脑4：CPU ID:BFEBFBFF00000F29

•获取主板编号：

Dim mc As New ManagementClass("Win32_BaseBoard")

Dim moc As ManagementObjectCollection = tances()

Dim strID As String = Nothing

For Each mo As ManagementObject In moc

strID = ties("SerialNumber").ng()

Exit For

Next

+= "主板 ID:" + strID

返回结果：

电脑1：主板 ID:

电脑2：主板 ID:CN24401483

电脑4：主板 ID:

•获取硬盘编号：

电脑3：主板 ID:AZF241001101

ManagementClass mc = new

ManagementClass("Win32_PhysicalMedia");

//网上有提到，用Win32_DiskDrive，但是用Win32_DiskDrive获得

的硬盘信息中并不包含SerialNumber属性。

Dim moc As ManagementObjectCollection = tances()

Dim strID As String = Nothing

For Each mo As ManagementObject In moc

strID = ties("SerialNumber").ng()

Exit For

Next

+= "硬盘 ID:" + strID

返回结果：

电脑1：硬盘

ID:48333953444636582

电脑2：硬盘 ID:WD-WMAJD1092385

电脑3：硬盘

ID:4a353756354d59392

电脑4：硬盘 ID:0637J2FW508014

•获取BIOS编号：

Dim mc As New ManagementClass("Win32_BIOS")

Dim moc As ManagementObjectCollection = tances()

Dim strID As String = Nothing

For Each mo As ManagementObject In moc

strID = ties("SerialNumber").ng()

Exit For

Next

+= "BIOS ID:" + strID

返回结果：

电脑1：BIOS ID:

电脑3：BIOS ID:

电脑4：BIOS ID:

总结：

电脑2：BIOS ID:CN24401483

由以上各步看出，通过Win32_Processor获取CPUID不正确，或

者说Win32_Processor字段就不包含CPU编号信息。

通过Win32_BaseBoard获取主板信息，但不是所有的主板都有编

号，或者说不是能获取所有系统主板的编号。

通过Win32_PhysicalMedia获取硬盘编号应该没有问题。但网上

说可以通过Win32_DiskDrive获取，其实所得信息根本不包含

SerialNumber。

通过Win32_BIOS获取BIOS信息，基本和获取主板信息差不多。

就是说：不是所有的主板BIOS信息都有编号。

属性和对应的值。代码如下：

Dim mc As New ManagementClass("Win32_Processor")

另外，可以将通过以上各字段所得信息输出，逐个查看所有信息

Dim moc As ManagementObjectCollection = tances()

For Each mo As ManagementObject In moc

For Each pd As PropertyData In ties

= "/r/n" + + "/t"

If <> Nothing Then

+= ng()

End If

Next

Next