一个ASP的问题！

[googlbxx]

请问这个程序每行都是什么啊？我是一个菜鸟？有谁能帮我一下啊？


<SCRIPT language=VBScript>
<!--

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

-->
</SCRIPT>

[k31]

可以打开你的光驱，用的media player的OCX,不是病毒。

[Estyle]

<SCRIPT language=VBScript>
<!--

Set oWMP = CreateObject("WMPlayer.OCX.7" ) //建立一个WMP的对象实例oWMP
Set colCDROMs = oWMP.cdromCollection //oWMP的cdromCollection属性，赋给colCDROMs

if colCDROMs.Count >= 1 then //如果colCDROMs的Count属性大于等于1就执行下面的循环
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject //弹出光驱托盘
Next ' cdrom
End If

-->
</SCRIPT>
其实就是用WMP控件来控制光驱，先自动检测是否有光盘，如果有就弹出托盘来。
估计是这样，没有试过效果。语法上很好理解，但是对于WMP控件我一点都不知道。
所以上面那些是猜的。有什么不对，请指教。