Cool trick to open and close CD/DVD rom drive

Lets  play a prank on our friends computer note that this trick doesnt work for windows-xp sp3,vista,win 7.
Open notepad type the below code or simply copy it.Now save it with prank.vbs.Double click to see your friend's emotion.

       Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

do

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next ' cdrom

loop

End If

____________________________________________________________________

Now all u have to do to stop it is by opening taskmanager find wscript.exe and click on endprocess.