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

Comments

author
Dustin Rogers made it! (author)2015-04-03

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.

author
cartyhead made it! (author)2015-04-01

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

author
nancyjohns made it! (author)2015-03-31

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

About This Instructable

1,772views

45favorites

More by The_Ara:CD/DVD ejector jokeRemote control robot
Add instructable to: