网页中调用Windows Media Player弹出光驱代码

网页中调用Windows Media Player弹出光驱代码  
今天小弟上网，朋友发来了一个网址
http://www.weirdtree.com/temp/oc/cdromeject.jpg
看上去是个JPG的图像文件
其实不是
大家可以试试，你会感到奇怪，但是并不是病毒
主要是在网页中调用Windows Media Player弹出了光驱
主要代码如下
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
用的是VBScript
如果你没安装wmplayer.exe就应该不行了
今天小小的发现，感觉还可以
就发出来了，大家别见笑  

我的光驱不听话啊，没有弹出啊？
是不是要打开光盘自动运行功能还是其他什么啊？

有一点不明白：
WMPlayer.OCX.7
这个是什么对象？window里还有多少对象啊？