CD Drive or DVD Drive?

[GEOSoft]

Here's one from my Drives.au3 file that I just touched up a bit. It will return the "Real" type where DriveGetType will report them all as "CDROM". It will also report virtual CD/DVD drives.

Enjoy

$Drives = DriveGetDrive("CDROM")

For $I = 1 To Ubound($Drives) -1
    MsgBox(0, "Test", "Drive " & StringUpper($Drives[$I]) & " is a  " & _Drive_CDType($Drives[$I]))
Next

Func _Drive_CDType( $Drive)
If DriveGetType($Drive) <> "CDROM" Then Return SetError(1)
Local $oRtn = ""
$Drive = StringUpper($Drive)
$Obj_CD = ObjGet("winmgmts:\\.\root\cimv2")
$Items = $Obj_CD.ExecQuery("Select * from Win32_CDROMDrive WHERE Id = '" & $Drive & Chr(39))

For $Item in $Items
    $oRtn = StringMid($Item.DeviceID, StringInStr($Item.DeviceID, "_")+1)
    If StringInStr($oRtn, "Virtual") Then
      $oRtn = StringMid($oRtn, StringInStr($oRtn, "Virtual"))
      $oRtn = StringReplace($oRtn, "_", " ", 1)
      $oRtn = StringLeft($oRtn, 15)
      Else
      $oRtn = StringLeft($oRtn, StringInStr($oRtn, "_") -1)
   EndIf
Next
If $oRtn = "" Then Return SetError(1)
Return $oRtn
EndFunc

Edited March 10, 2008 by GEOSoft

[Richard Robertson]

You may want to remove the MsgBox that reports if there are items, if it would be used in a normal program.

[GEOSoft]

You may want to remove the MsgBox that reports if there are items, if it would be used in a normal program.

I forgot to remove that one. Thanks. Edited March 10, 2008 by GEOSoft