Creat file yourself for CD-ROM Open & Close

Posted in Saturday, March 10, 2012
by Unknown
0 comments





The first code we are going to look at is one that makes the cd tray open and close repeatedly until shutdown, or


(you press ctrl + alt + delete and go to processes, and end wscript.exe (this code is vbs so save in note pad as whateveryouwant.vbs) 

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