Thanks for all the replies, here's what I ended up doing..

Code:


 $FileSystemObject = CreateObject("Scripting.FileSystemObject") 

? "@CRLFSearching for CD drive..."
 $Drives = GetObject("winmgmts:").ExecQuery("select Name,DriveType from Win32_LogicalDisk where DriveType = 5")
 
 If @Error <> 0
   
   ? "Unable to determine the CD drive letter."
   ? "Please enter the drive letter of the CD Drive."
   ? "Enter the drive letter in this format: D:@CRLF"
   Gets $CDRom
   
 Else
   
   For Each $Drive In $Drives
     $Count = 1 + $Count
     $CDROM = "$CDROM " + $Drive.Name
   Next
   
   $CDROM = Right($CDROM,Len($CDROM) - 1 )
   If $Count > 1
     $Drv = "drives"
   Else
     $Drv = "drive"
   EndIf
   ? " Found CDRom drive $CDROM."
 EndIf