Month: April 2010

Eject CD drive Script

Open the notepad, Past the code below, and save the file as EjectCD.vbs


set oWMP = CreateObject("wmplayer.ocx.7")
set colCDROMS = OWMP.cdromCollection
if colCDROMS.count >= 1 then
for i = 0 to colCDROMS.Count – 1
next ‘ cdrom
end If


Double-Clicking the EjectCD.vbs or calling it from a batch should open your CD drives

Tags: ,

Powered by Qumana