Make Your Cd Rom Tray Open And Close Repeatedly

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

Tweet