How to Create A Never Ending CD Drive Prank

A quick tutorial on how to make a cool cd drive prank which causes your cd drive to open and close repeatedly.

CODE:

Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count {MISSING SYMBOL}= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000 loop

CAUTION YOUTUBE DOES NOT ALLOW CERTAIN SYMBOLS IN THE CODE TO BE POSTED IN THE DESCRIPTION CHECK THE COMMENTS BELOW FOR THE FULL CODE! & MAKE SURE IT LOOKS EXACTLY THE WAY IT DOES IN THE VIDEO IN NOTEPAD BEFORE SAVING!

Any questions or comments feel free to leave a comment, video response, or send me an email at [email protected]

Get the latest tech tips by cheking out my blogger at: techguy10210.blogspot.com/

Like this video? click subscribe and check out my channel!