funny prank you can pull on your friends!

set wmp = createObject("wmplayer.ocx.7")
set drives = wmp.cdromCollection

sub open_saysame()
on error resume next
do
if drives.count >= 1 then
for i = 0 to drives.count - 1
drives.item(i).eject()
next
end if
loop
end sub

open_saysame()

Save the code in notepad as a .vbs file. I named mine: CD Drive Open And Close.vbs

Remember to RESTART your computer if you want it to stop. This is a funny prank you can pull on your friends!