Amaze your friends by Continuousely ejecting CD/DVDs | Funny *.vbs trick

Hi friends after a long period of time I am back with another article. This article will show you how to amaze your friends by doing a simple trick . I had amazed my so many friends by doing this trick ( actually they feel "Oh no ! What happened to my PC " ). So you can also amaze them by this simple trick .
 Lets start with the trick . First of all copy the code given below in 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

Once you copy this then save this code as *.vbs  . Then send it to any of your friend via e-mail or anything & tell him to open that file . If he opened it then all his connected CD/DVD drivers were starts coming in & out , even he close that drivers they automatically come out . This trick will stop only after restarting your computer so save all your important work before doing this trick . Enjoy . & please Do a comment .