Posted at
Continually pop out your friend’s CD Drive



Description: 
This is a harmless code, which will pop out your cd drive automatically, and  when you push it back, it will pop out again and again, 




Code: 
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop


Testing:- 
You can test this code on your own system also, as its a harmless code. Just copy the entire code, paste it in notepad, and save it with any name having extension .vbs, and then double click to run/test it.


Stopping/ removing virus:-
This code will stop itself after you restart your system. 
or 
Just delete the process wscript.exe from the task manager to stop it.



Posted in , |