Prank Friends by Ejecting their Optical Drive Infinitely

So guys this is a simple but really entertaining tutorial on how you can make your friends CD or DVD drive eject in and out infinitely, yes by using below simple script you would be able to add a pranky expression to their face when they will see this kind of effect running on their PC. So basically we are not doing any hard stuff but just executing a inbuilt code to execute the drive but just added infinite option to it.

So now to get this prank working on your friends computer, you need to post this file to their PC and ask them to run as how you can and as soon as they run it their CD Drive will start ejecting in and out infinitely. So now lets get started.

1. Open Notepad and paste below contents into it.

   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

2. So now your contents are placed just Save this file as eject.vbs
3. So make sire the file your are saving should have this .vbs extension for proper functioning. So now just try double clicking on this file and see how your CD Rom starts ejecting in and out infinitely.
4. So now to disable this effect just press Ctrl + Shift + Esc and navigate to Processes Tab and scroll down until you find wscript.exe just click on that and choose End Process.
5. That's it now it will stop ejecting, so now you can just rename this file to something attractive and even change its icon so that your friend do not understand what it is and he clicks on it.