cdrom virus

Make virus to open and close cdrom repeatidly

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