通過WMI獲得硬碟Id和CPU的物理序號網卡的Mac地址

獲得硬碟序號Mac
Private Function GetMac() As String '擷取第一個mac的id
Dim MC As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim MOC As ManagementObjectCollection
MOC = MC.GetInstances()
Dim Mac As String
For Each WmiObj As ManagementObject In MOC
If WmiObj("IPEnabled") Then

If Mac <> "" Then
Mac = Mac + " @ "
End If
Mac = Mac + CStr(WmiObj("MACAddress"))
Exit For
End If

Next
If Mac = "" Then
Mac = "error"
End If

Return Mac
End Function

 

 

獲得硬碟序號

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；