How To: Pull a computer prank that will make a disc drive open and close randomly

Computer pranks are some of the most insidious because computer are so expensive, necessary, and misunderstood by the general public. This video will show you how to take advantage of all of that by writing a quick script that will cause a computer's disc drive to open and close apparently of it's own free will. Great for messing with friends and coworkers at the office.

From the Creator:

This is a cool video showing you how to make the CD drive constantly open and close. To make the drive open more frequently reduce the number after the sleep in the script

WARNING!!! youtube does not allow the arrow pointing to the right icon

On this line in the script replace the * with the character above the . button

if colCDROMs.Count *= 1 then

This is the script remember to replace the * with the icon above the . icon

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count *= 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