Public Function GetMotherboardSerialNumber() As String Dim searcher As New System.Management.ManagementObjectSearcher("SELECT SerialNumber FROM Win32_BaseBoard") For Each obj As System.Management.ManagementObject In searcher.Get Return obj.Properties("SerialNumber").Value.ToString Next Return String.Empty
End Function