Set oWMP = CreateObject("WMPlayer.OCX.7") 
Set colCDROMs = oWMP.cdromCollection 
wscript.sleep 30000
do 
colCDROMs.Item(i).Eject 
wscript.sleep 30000
loop