Create A Funny Virus Using Notepad

This is a funny virus that will continuously eject CD/DVD drives.
Follow these steps:
Step 1: Copy the code below and paste it in notepad:

Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000 loop

Step 2: and then save it as cdrom.vbs or *.vbs Step 3: Double click to open this file and you will be impressed by this trick.
How to stop it:
Open task manager or use ctrl+alt+del
Click on process tab
Select wscript.exe
Click on end process.
Enjoy!