Funny CD drive prank

Today am gonna tell you another funny prank that You can play on ur Friends computer.Make him go crazy this christmas by popping out his cd drive tray infinite times.You can stop this cd popping whenever you want by killing the task wscript in task manager or just restart the system.Copy the below code save it with .vbs extension in notepad.Double click to see  fun on your friends face


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