问Vb.NET设备唯一标识符Win10

EN

 Private Function SystemSerialNumber() As String
    Dim value As String = ""
    Dim baseBoard As ManagementClass = New ManagementClass("Win32_BaseBoard")
    Dim board As ManagementObjectCollection = baseBoard.GetInstances()
    If board.Count > 0 Then
     value = board(0)("SerialNumber")
    If value.Length > 0 Then value = value.Substring(2)
    End If
    Return value
 End Function

Private Function SystemSerialNumber() As String
    Dim value As String
    Dim q As New SelectQuery("Win32_bios")
    Dim search As New ManagementObjectSearcher(q)
    Dim info As New ManagementObject
    For Each info In search.Get
        value = info("SerialNumber").ToString
        Return value
    Next
End Function

Private Function SystemSerialNumber() As String
    Dim value As String
    value = Windows.System.Profile.SystemIdentification.GetSystemIdForPublisher()
End Function

    Private Function NetworkAdapterMacAddress() As String
    Dim McAddress As String
    Dim netadapter As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
    Dim mo As ManagementObject
    Dim adapter As ManagementObjectCollection = netadapter.GetInstances()
    For Each mo In adapter
        If mo.Item("IPEnabled") = True Then
            McAddress = mo.Item("MacAddress").ToString()
            Return McAddress
        End If
    Next
End Function