Получить номер материнской платы и номер диска, который находится в дисководе в данный момент

Dim Computer As String 
Dim WMI As Variant 
Dim Items As Variant 
Dim Item As Variant 
 
Computer = "." 
Set WMI = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2") 
    Set Items = objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard", , 48) 
    For Each Item In Items 
        Debug.Print  Item.SerialNumber 
        Exit For 
    Next

Dim Computer As String 
Dim WMI As Variant 
Dim Items As Variant 
Dim Item As Variant 
 
Computer = "." 
Set WMI = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2") 
Set Items = WMI.ExecQuery("Select * from Win32_BIOS") 
 
For Each Item In Items 
Debug.Print Item.SerialNumber 
Next

objWMIService

Public Class Form1
    Dim Computer As String
    Dim WMI As Object
    Dim Items As Object
    Dim Item As Object
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Computer = "."
        WMI = GetObject("winmgmts:\\" & Computer & "\root\CIMV2")
        Items = objWMIService.ExecQuery("SELECT * FROM Win32_Service", , 48)
        For Each objItem In Items
            Debug.Print("ServiceName: " & objItem.Name & vbNewLine & "State: " & objItem.State)
            Exit For
        Next
 
    End Sub
 
 
 
End Class

Dim Computer As String
Dim WMI As Object
Dim Items As Object
Dim Item As Object
Computer = "."
WMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")
Items = WMI.ExecQuery("SELECT * FROM Win32_BaseBoard", , 48)
For Each Item In Items
 MsgBox ("ServiceName: " & Item.Name & vbNewLine & "State: " & Item.SerialNumber)
 Exit For
Next