Dim out As New System.Text.StringBuilder(" ", 100)
        Dim Drives As String()
        Dim CDBurner As String
        Drives = System.IO.Directory.GetLogicalDrives
        For i As Integer = 0 To Drives.Length - 1
            QueryDosDevice(Drives(i).Replace("\", ""), out, out.Capacity)
            If out.ToString = "\Device\CdRom0" Then
                CDBurner = Drives(i)
                Exit For
            End If
        Next

Das Meiste wird deshalb nicht getan, weil es nicht unternommen wird.