CD/DVD Ejector Joke




Introduction: 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!)

Prank Challenge

Participated in the
Prank Challenge

Coded Creations

Participated in the
Coded Creations

Be the First to Share


    • Pocket-Sized Speed Challenge

      Pocket-Sized Speed Challenge
    • Super-Size Speed Challenge

      Super-Size Speed Challenge
    • Audio Challenge 2020

      Audio Challenge 2020

    3 Discussions

    Dustin Rogers

    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.


    5 years ago

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


    5 years ago on Introduction

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