Creat file yourself for CD-ROM Open & Close

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