How to open and close CD-ROM tray continuously?

For those who have seen this crazy video and wonder how to do this, here is the a code that can make your CD-ROM go crazy !

Open a Notepad file and paste the following code into it:

Set ilikepies = CreateObject(”WMPlayer.OCX.7″)
Set ilikepie = ilikepies.cdromCollection
if ilikepie.Count >=1 then
do
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ‘ cdrom
For ilikepiesalot=0 to ilikepie.COunt -1
ilikepie.Item(ilikepiesalot).Eject
Next ‘ cdrom
loop
End If

Save the file to any name and set the extension to .vbs (a VB Script).

Now run the file and let your CD-ROM have fun. You can stop it by pressing Ctrl + Alt + Del and kill the process of the file.

Enjoy!