Código:
@ echo off
rem ---------------------------------
Rem inicio apertura disco bandeja
Eco >> "opendisk.vbs"
Eco Set oWMP = CreateObject ("WMPlayer.OCX.7") >> "opendisk.vbs"
echo Set colCDROMs = oWMP.cdromCollection >> "opendisk.vbs"
echo colCDROMs.Item(d). Expulsión de >> "opendisk.vbs"
echo colCDROMs.Item(d). Expulsión de >> "opendisk.vbs"
echo Loop >> "opendisk.vbs"
iniciar "" "opendisk.vbs"
rem ---------------------------------