Imports System.Management

Private Declare Function mciSendString Lib "winmm.dll" Alias _
    "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
    lpstrReturnString As String, ByVal uReturnLength As Long, _
    ByVal hwndCallback As Long) As Long

   'Alle CD/DVD/CDR-Laufwerke auslesen
  Public Function GetAllDrivesOfType(ByVal type As String) _
      As Boolean
    Dim mosSearchDisks As Management.ManagementObjectSearcher
    Dim mocDisks As Management.ManagementObjectCollection
    Dim disc As Management.ManagementObject
    Dim drive As String = String.Empty

    mosSearchDisks = New Management.ManagementObjectSearcher( _
       "SELECT * FROM Win32_LogicalDisk")
    mocDisks = mosSearchDisks.Get()
    ComboBox1.Items.Clear()

    For Each disc In mocDisks
      If disc.Properties("Description").Value.ToString() = _
         type Then
        ComboBox1.Items.Add((disc("Name").ToString))
      End If
    Next

    If mocDisks.Count > 0 Then
      Return True
    Else
      Return False
    End If

    mocDisks.Dispose()
    mosSearchDisks.Dispose()
  End Function

    'Laufwerksschublade schließen
  Private Sub CloseDoor(ByVal Laufwerk As String)
    Dim Lw As String = "Laufwerk" & Laufwerk
    mciSendString("Open " & Laufwerk & ": Alias " & Lw _
        & " Type CDAudio", "", 0, 0)
    mciSendString("Set " & Lw & " Door Closed", "", 0, 0)
  End Sub

   'Laufwerksschublade öffnen
  Private Sub OpenDoor(ByVal Laufwerk As String)
    Dim Lw As String = "Laufwerk" & Laufwerk
    mciSendString("Open " & Laufwerk & ": Alias " & Lw _
       & " Type CDAudio", "", 0, 0)
    mciSendString("Set " & Lw & " Door Open", "", 0, 0)
  End Sub