To revenge your friend try following Trick. This trick let open and close your CD-ROM...
Just Paste the following code in Notepad.
'code start from here
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
'code end from here
Now save it as Fun.vbs and double click it to activate it.
If you want to close this just open Task Manager and end the process wscript.exe
Have fun
Note:
read N apply The Code carefully..
aimeR Inc.