you can add contextmenus "eject" and "close" drive to all drives using vbscript. Here are the files. Don't forget to adjust everything for your system (paths etc.). This will work for real optical drives as well as virtual ones (only the virtual cdrom tray won't REALLY open, lol, but the currently loaded image will be unmounted)

-----------------

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Drive\shell\Auswerfen]
@=""

[HKEY_CLASSES_ROOT\Drive\shell\Auswerfen\Command]
@="\"C:\\Windows\\System32\\wscript.exe\" \"C:\\Program Files\\Util\\CD_Auswerfen.vbs\" %1"

-----------------

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Drive\shell\Laufwerk schließen]
@=""

[HKEY_CLASSES_ROOT\Drive\shell\Laufwerk schließen\Command]
@="\"C:\\Windows\\System32\\wscript.exe\" \"C:\\Program Files\\Util\\CD_Schliessen.vbs\" %1"


----------------

Set objArgs = WScript.Arguments
driveletter = objArgs.Item(0) ' G:\
driveletter2 = Replace(driveletter, "\", "") ' G: -> for WMI
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set oCD = oWMP.cdromCollection.getByDriveSpecifier(drivelett er)
oCD.Eject

Set oCD = nothing
Set oWMP = nothing


-----------------

Set objArgs = WScript.Arguments
driveletter = objArgs.Item(0) ' G:\
driveletter2 = Replace(driveletter, "\", "") ' G: -> for WMI
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set oCD = oWMP.cdromCollection.getByDriveSpecifier(drivelett er)
oCD.Eject
oCD.Eject

Set oCD = nothing
Set oWMP = nothing