VB.NET 获取主板和CPU序列号

一、获取主板序列号

以下函数获取一个 WMI 对象，然后获取表示系统主板的WMI_BaseBoard对象的集合。它循环通过他们获取主板序列号。

Private Function SystemSerialNumber() As String
   ' Get the Windows Management Instrumentation object.
   Dim wmi As Object = GetObject("WinMgmts:")

   ' Get the "base boards" (mother boards).
   Dim serial_numbers As String = ""
   Dim mother_boards As Object = _
       wmi.InstancesOf("Win32_BaseBoard")
   For Each board As Object In mother_boards
       serial_numbers &= ", " & board.SerialNumber
   Next board
   
   If serial_numbers.Length > 0 Then serial_numbers = _
       serial_numbers.Substring(2)
   Return serial_numbers
End Function

二、获取CPU序列号

下面的代码获取一个 WMI 对象并选择Win32_Processor对象。它循环通过他们获取他们的CPU ID。

Private Function CpuId() As String
   Dim computer As String = "."
   Dim wmi As Object = GetObject("winmgmts:" & _
       "{impersonationLevel=impersonate}!\\" & _
       computer & "\root\cimv2")
   Dim processors As Object = wmi.ExecQuery("Select * from " & _
       "Win32_Processor")

   Dim cpu_ids As String = ""
   For Each cpu As Object In processors
       cpu_ids = cpu_ids & ", " & cpu.ProcessorId
   Next cpu
   If cpu_ids.Length > 0 Then cpu_ids = _
       cpu_ids.Substring(2)

   Return cpu_ids
End Function