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