Here is a simple program through which you could have fun with your friends computer.
Simply copy and paste below code in notepad and save it as "filename.vbs" with out quotes.
after saving this file just double click on filename.vbs , this program will simply open and close the cd/dvd tray continuously.

code starts from here:

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 100
loop