Public Function GetMotherBoardSerialNumber() As String Dim strReturn As String = String.Empty Dim objList As Object, obj As Object Try objList = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_BaseBoard") For Each obj In objList strReturn = obj.SerialNumber Next Catch ex As Exception strReturn = String.Empty MsgBox(ex.Message) End Try Return strReturn End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)