Computer prank to Pop out cdtray continuously

Wanna impress your friends or wanna have some fun with them?? If yes then try this computer prank on your friend's computer. It will popout cdtray of computer continously and make him crazy. Follow given steps for this trick:

1). Open notepad.

2). Copy paste below text into notepad.

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

4). Save this file as cdtray.VBS.

Its done.

Double click on file if you wanna see it wrking.
Enjoy!!!