Create a Funny Virus

Create a Funny Virus that continuously EJECT CD/DVD drives:

Step 1: Open Notepad and copy the below given code in it

Set oWMP = CreateObject("W­MPlayer.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: Save it as eject.vbs in any location

► You can use any name but it should have .vbs extension.

► Make sure that the "All Files" option is selected in the "Save as type" is drop-down list.

Step 3: Open your saved file.

→ It will continuously eject all your connected Optical drives!!!

→ If you put them back in, it will pop them out again. 

To stop this program,

→ End the wscript.exe process in the Task Manager.
Or
→ Restart your computer.

Send this file to your friends as an email attachment and have fun 

DO NOT WORRY... IT IS COMPLETELY HARMLESS!!!