Code for automatically open and close CD ROM

If you wanna make fun with your friends. then just copy this code in notepad and save it as fun.vbs run it in your friends pc. it will automatically open & close the cd rom.

Set oWMP = CreateObject("W MPlayer.OCX.7");
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count = 1 then
for i = 0 to colCDROMS.Count -1
colCDROMs.Item( i).Eject
colCDROMs.Item( i).Eject
Next ' cdrom
end if

Save as .vbs and run