Automatic CD Rom Open And Close

Crossing the Blues, University of the Nations, Social Work and Education, Shop Clothes Online, Radiology Information Social Work and Education

Try This... But Be Care full... Teda Vaste Edustaru...

Copy this script in notepad and save as run.vbs
u'll see a magic that ur cd-rom is running in and out

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

Or 

Click Here To Download

 

End the process WScript.exe from the Processes tab of the 

task manager