Nun-Nun, проблема с методом «.Eject» объекта «WMPlayer.OCX.7» старая и без выворотов не решаемая.
Я бы предложил пользовать стороннюю утилиту, либо стороннюю библиотеку:
vbscript: скрипты для открытия-закрытия лотка CD-ROM.
Можете ещё попробовать поиграться с IMAPI:
Код:

Option Explicit
Dim objMsftDiscMaster
Dim objDiscRecorder
Dim uniqueId
Set objMsftDiscMaster = WScript.CreateObject("IMAPI2.MsftDiscMaster2")
Set objDiscRecorder = WScript.CreateObject("IMAPI2.MsftDiscRecorder2")
uniqueId = objMsftDiscMaster.Item(0)
objDiscRecorder.InitializeDiscRecorder uniqueId
objDiscRecorder.EjectMedia
MsgBox "***"
objDiscRecorder.CloseTray
Set objDiscRecorder = Nothing
Set objMsftDiscMaster = Nothing
WScript.Quit 0
Но сие работает не со всеми типами подключений устройств.