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