Continually pop out your friend’s CD Drive

This is very harmless code which will POP-UP your friends CD-Drive automatically,when you push it back it will pop up again anda 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

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