Friday, April 15, 2011

A Virus That Will Open And Close Ur Cdrom

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.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

0 comments:

Post a Comment

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Hostgator Discount Code