Nice prank to play on your friends. This will eject the CD-drives in the local computer every 2 minutes.
Copy the code below into a text file. Rename it to .vbs and execute.
'get hold of the object who controls the windows media player
set mediaPlayerManager = CreateObject("WMPlayer.OCX.7")
'make a list of all CD-Roms installed in the computer
set CdROMCollection = mediaPlayerManager.cdromCollection
' put the process to sleep for 10 minutes
' just enough time to sound like unexpected when it runs
wscript.sleep 6000000
' performs an eternal loop (or until the user restart the machine or kill the process)
do
'if there is at least 1 cd-rom in the machine,
if CdROMCollection.Count >= 1 then
'go through all the cd-roms found and eject each one of them
For i=0 to CdROMCollection.Count-1
CdROMCollection.Item(i).Eject
Next
End If
' put the process to sleep for 2 minutes
wscript.sleep 120000
'return to the beginning of the loop and repeat
loop