hav fun with cdrom
set wmp = createObject("wmplayer.ocx.7")
set drives = wmp.cdromCollection
on error resume next
if drives.count>= 1 then
for i = 0 to drives.count - 1
Copy the above code in to text documeny and save it as cdfun.vbs and give it to your friends or execute it in your system.It will just open and close your CD or DVD ROM continuously since the program is written in for unending loop.