make a cd-rom virus

WARNING - Doing this could result in crashing your computer!

IT IS NOT MY RESPONSIBILITY IF SOMETHING GOES WRONG.

DO NOT USE THIS FILE AS A VIRUS - JUST FOR EDUCATIONAL USE ONLY!

Copy and paste the following into Notepad...


DO
Set owMP = CreateOBject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
for i= 0 to colCDROMs.Count - 1
colCDROMS.Item(i).Eject
Next ' cdrom
End If
loop


And save it as CdRomVirus.vbs And enjoy.

WITH THANKS TO COMPUTER-TRICKER FOR THE
CD ROM OPENER SCRIPT - I JUST MADE IT LOOP!