VBS prank: Continoually Pop Out the CD drive

This VBS Prank Will 100% Irritate your Friends cause it's make CD Drive 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

Save the above code in Notepad file As "Anything.vbs" (Without Quotes ) but make sure While saving this file select Save as type "All files" and extension must be .vbs.

Note: To Stop Scrip End process  "wscript.exe" from Task Manager.

For More Tricks Stay Connected With us.
Enjoyed this Trick? Share with your friends on Social media. You can use the below sharing buttons to do it immensely faster. It just takes a second! ☺