Вы можете попробовать этот VBScript
Const CDROM = 4
Set objFS=CreateObject("Scripting.FileSystemObject")
Set shell = CreateObject("Shell.Application")
For Each drives in objFS.Drives
If drives.DriveType = CDROM Then
cd=drives.DriveLetter & ":\"
'Eject
End If
Next
Do
shell.Namespace(17).ParseName(cd).InvokeVerb("E&ject")
WScript.Sleep 1000 'in ms
Loop While 1=1
сохранить как eject.vbs
запустить как
c:\test> cscript //nologo eject.vbs