Make 1000 folders in a few seconds - Virus

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