CD and DVD rom ejecting code

[nadman]

Ok guys this is not exactly a joke but it is some thing I found on another site which is quite fun to try out.

Just copy the below code into a notepad file and save it as anyname.vbs eg- virus.vbs
and then double click on it.It will make your CD or DVD rom eject and close over and over again.

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

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

 

[BLACKLIST_MEMBER]

mage image dirve hitan ehema wenawa

 

[Pathumlk]

ela It works..

 

[magoo]

machan i thnk its better if u could also mention how to kill the program.thanx...

 

[Clerk_Kent]

Working machoo...ela

 

[pasanlaksiri]

Thats grate machan.

 

[sindukade1]

Working

 

[ywicky]

No thanx!

 

[nadman]

machan i thnk its better if u could also mention how to kill the program.thanx...

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

 

[vishankapraveen]

hmm....

 

[TΞΞNSTAR™]

gud 1 bro...

 

[vishankapraveen]

Working machoo...ela

kenatoooooooooooooooooo

 

[Shiwantha]

ela

 

[vishankapraveen]

 

[madhu4gr]

mage image dirve hitan ehema wenawa

he heeeeeeeee

 

[mimi1983]

Wow thats wired !!!!! Do you have more tricks like this...........Can fox more people he he ehhe

 

[senanayake39]

Woooow machan, i restarted ma Computer.............. Tnx... heheheee

 

[Kalindugayan]

passe welawaka balannan