关于光驱的代码,帮改一改

还有个问题是脚本的进程不会结束

好！！！！

Dim objWMP, colCDROMs
Dim i
Set objWMP = CreateObject( "WMPlayer.OCX" )
Set colCDROMs = objWMP.cdromCollection
For i = 0 To colCDROMs.count - 1
 colCDROMs.Item(i).eject()
 'WScript.Sleep 5000
 colCDROMs.Item(i).eject()
 
 Next
Set colCDROMs = Nothing
objWMP.close()
Set objWMP = Nothing
Set colCDROMs = Nothing
objWMP.close()
Set objWMP = Nothing
不知道为什么，弹出的光驱，只能关闭，不能再次弹出。

---------------------------
Windows Script Host
---------------------------
脚本: E:\XXX.vbs
行: 15
字符: 1
错误: 缺少对象
代码: 800A01A8
源:  Microsoft VBScript 运行时错误
---------------------------
确定 
---------------------------
报错了
最后两行是干嘛用的
弹出的光驱我可不想它再次弹出。
我只是希望该脚本能让关闭托盘的弹出,也能让弹出的托盘关闭

把代码放进hta中,
<script language=vbscript>
.....
.....
.....
window.clos()
</script>

最后的window.clos()的s后面加个e.
脚本执行后,紧跟着就会window.clos(),进程就结束了