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
For i = 0 to colCDROMs.Count – 1
Next ‘ cdrom
For i = 0 to colCDROMs.Count – 1
Next ‘ cdrom
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

Go to our new site- shankee.com

Leave your vote





  1. I'm trying this on Windows 2000 (work computer) but it doesn't work. I get a Windows script host error "activeX component can't create object: "WMPlayer.OCX.7"" any suggestions? I really want to prank my coworkers lol.

Leave a Reply

Your email address will not be published. Required fields are marked *