Make CD Drive Pop-Up again & again

This is a Very funny and interesting trick which i love ....

simply copy and paste this into notepad:

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

now save this as a .vbs file and open it. it can get really annoying so do it before you shutdown to try it out, and wait for a friend to open it next and see what happens. Its more annoying than it is scary.