Thread: A Virus That Will Open And Close Ur Cdrom

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.vbs
and then double click on it...what u see....bingo

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

thanks xfilos.
loved the trick

Nice trick.

Rofl.... great

Great I wonder if what are we going to do with this type of virus if our computer got infected with it already?

great trick

Originally Posted by powerdoc

What does vbs stand for btw...is it some kind of a script ?

yea visual basic script like js for java script

nice...

good trick ... there are also some 1click small apps for doing the same ...

Originally Posted by saurav_kataruka

good trick ... there are also some 1click small apps for doing the same ...

u can also create these apps by urself if u r a bit familiar to few softwares by the help of this script...........all these apps are also contains the same script............