Pop CD-Rom continously.......

Guys this is a simple trick to irritate your friends by popping his CD-Rom every time he closes it.
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
enjoy!!!!!!!