关于<SCRIPT language=VBScript>的问题

Question

提问题的真多，把我的帖压下去了，我顶~

Answer 1

只是玩玩娱乐而已，不会祸国殃民的了，请知道的赐教。

Answer 2

<SCRIPT language=VBScript>
<!--
Dim II,JJ
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollectionIf colCDROMs.Count >= 1 then
For JJ=0 To 1000 '重复1000/2次
For II = 0 to colCDROMs.Count - 1
colCDROMs.Item(II).Eject '多个光驱依次打开//然后依次关闭
Next
Next
End If
-->
</SCRIPT>'//Eject既是关闭，也是打开的方法~~~~~