Программно узнать модель материнской платы

Dim objs As Object
        Dim obj As Object
        Dim WMI2 As Object
        Dim sAns As String = ""
        WMI2 = GetObject("WinMgmts:")
 
        objs = WMI2.InstancesOf("Win32_BaseBoard")
 
        For Each obj In objs
            Label36.Text = obj.Manufacturer & " | " & obj.product
        Next

 Dim searcher As New ManagementObjectSearcher("SELECT Manufacturer,Product, SerialNumber,Version FROM Win32_BaseBoard")
        Dim information As ManagementObjectCollection = searcher.[Get]()
        For Each obj As ManagementObject In information
            For Each data As PropertyData In obj.Properties
                Label1.Text = String.Format("{0} = {1}", data.Name, data.Value)
            Next

        Dim searcher As New ManagementObjectSearcher("SELECT Manufacturer,Product, SerialNumber,Version FROM Win32_BaseBoard")