khud File bana kar Apne Cd Rom Ko Open And Close Karen..!!

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