vb.net 获取CPU序列号

Imports System.Management
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox(GetCpuid())
    End Sub
  Public Function GetCpuid() As String
        Dim mo As New ManagementObjectSearcher("SELECT * FROM Win32_Processor")
        Dim CpuId As String = ""
        For Each wb As ManagementObject In mo.Get
            CpuId = wb("ProcessorId")
        Next
        Return CpuId
    End Function