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

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio

    Private Declare Function QueryDosDevice Lib "kernel32.dll" Alias _
      "QueryDosDeviceA" ( _
        ByVal lpDeviceName As String, _
        ByVal lpTargetPath As System.Text.StringBuilder, _
        ByVal ucchMax As Int32) As Int32
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button5.Click
        Dim out As New System.Text.StringBuilder(" ", 100)
        For Each di As System.IO.DriveInfo In System.IO.DriveInfo.GetDrives()
            If di.DriveType = IO.DriveType.CDRom Then
                QueryDosDevice(di.Name.Replace("\", ""), out, out.Capacity)
                Debug.WriteLine(out.ToString() + " mount on " + di.Name)
            End If
        Next
    End Sub

        Dim wmi As System.Management.ManagementObjectSearcher = _
                New System.Management.ManagementObjectSearcher("SELECT * FROM" & _
                "Win32_CDROMDrive")
        Dim value As Object = Nothing
        For Each moo As System.Management.ManagementObject In wmi.Get
            For Each pd As System.Management.PropertyData In moo.Properties()
                value = moo.Item(pd.Name)
                If Not value Is Nothing AndAlso _
                    (value.ToString().ToUpper.IndexOf("DEVICE") > -1 OrElse _
                    pd.Name.ToUpper.IndexOf("DEVICE") > -1) Then
                    Debug.WriteLine(pd.Name + ": " + value.ToString())
                End If
            Next
        Next

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

        Dim out As New System.Text.StringBuilder(" ", 100)
        Dim x As Integer
        x = QueryDosDevice("C:", out, out.Capacity)

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

Public Class MainClass
 
	Private Declare Function QueryDosDevice Lib "kernel32.dll" Alias _
  "QueryDosDeviceA" ( _
        ByVal lpDeviceName As String, _
        ByVal lpTargetPath As System.Text.StringBuilder, _
        ByVal ucchMax As Int32) As Int32
 
	Public Shared Sub Main()
		'// Debug.WriteLine (System.Environment.Version.ToString())
		Dim out As System.Text.StringBuilder 
        For Each d As String In New String() {"D:", "E:", "F:", "G:"}
        	 out = New System.Text.StringBuilder(" ", 100)
            If not QueryDosDevice(d, out, out.Capacity) = 0 Then 
            	Debug.WriteLine(out.ToString() + " mount on " + d)
            End If
        Next		
	End Sub
 
End Class

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.