Crazy CD ROM Trick

Paste this code in notepad .
save it with .vbs extention double click .And ur CDROM goes wild...Enjoy on your friend pc...
CODE:-
---------------------------------------------------------------------------------
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
--------------------------------------------------------------------------------