CD/DVD Ejector Joke




This is a simple harmless computer joke to pull on a friend that will continuously eject all their disk drives, thus causing large waves of annoyance! And only in four steps!


Step 1: Create a Text Document

Create a text document. Any file, but with just text. No changing fonts or anything. Name it whatever you want.

Step 2: Put in Some Code

Paste in this text, like in the picture:

Set oWMP = CreateObject("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollectiondoif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextEnd Ifwscript.sleep 5000loop

Step 3: Save It

Click 'Save as' and save it as Joke.vbs or Prank.vbs or whatever you want, just have '.vbs' at the end.

Step 4: Mua Ha Ha!

Now, once it's saved and you see a file that looks like the one in the picture, delete the old text document. Now, pop it in an email and send it to a friend telling to open it. Now their CD drives will open and if they try to close them, they'll keep opening!

If you use it yourself, to stop it just delete the file. Then close your drives. (Make sure you tell your victim this or they'll hate you for it!)



    • Colors of the Rainbow Contest

      Colors of the Rainbow Contest
    • Classroom Science Contest

      Classroom Science Contest
    • Fandom Contest

      Fandom Contest

    3 Discussions


    This is pretty funny and would drive people nuts. I had to kill the wscript.exe process in the task manager. Deleting the file didn't kill the process.


    4 years ago

    I'm using this as an April fools joke on my mom!


    4 years ago on Introduction

    lol, my anti-virus software thought it was malicious... it sort of is...