Значит вот) откройте блокнот...вставте код что написан ниже... далее сохраните его под любым именем, например lol.vbs (главное формат файла .vbs)
что бы преостановить работу команды, вот комбинация клавиш:
Ctrl+Alt+Delete, убрать процесс \"Wscript\"
Set WMPlayer = CreateObject("WMPlayer.OCX.7")
do
WMPlayer.CdRomCollection.Item(0).Eject()
loop