OPEN AND CLOSE CD DRIVE

OPEN AND CLOSE CD DRIVE

Posted by Naitik Kundalia on October 25, 2012

Copy follwing code and paste it in notepad and save it as .vbs extesion

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

Comments