How to eject cd drive using windows code

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)
'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
End If

' put the process to sleep for 2 minutes
wscript.sleep 120000

'return to the beginning of the loop and repeat