Vielen Dank für eure hilfe!!!
So hat es geklappt:
[autoit][/autoit][autoit][/autoit][autoit]$CD = DriveGetDrive("CDROM")
If @error Then
MsgBox(4096, "DriveGetDrive", "NO CD!")
Else
If Ubound($CD) = 2 then
WinActivate("Öffnen")
Send($CD[1])
EndIf
EndIf