Eject CD drive in and out infinitely (Fun trick)

Enough of Computer Tricks here...
Hm... lets try some Pranks on the Novice and Rookies.. what say?
So... here comes my another Exclusive...!

Eject your drives in and out infinitely...

A simle VB Script will serve the purpose......!!!

Do the following:
** Go to Start >> Run
** Type Notepad and hit Enter
** Now in Notepad type:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

** Go to File >> Save As...
** Type Eject.vbs and click Save

How to use:
$ Just Double Click the saved file ! (Eject.vbs)

How To Stop:
$ First Way:
Restart the Computer... and this will stop the script
$ Second Way:
Open Task Manager and in processes search for wscript.exe and click End Process