只看到VB腳本，但常常出錯
因此想請教各位高手，有辦法用批處理實現嗎?
因此想請教各位高手，有辦法用批處理實現嗎?
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
批處理有辦法控制光碟機進退片嗎?
标题：批處理有辦法控制光碟機進退片嗎?
start mshta "javascript:new ActiveXObject('WMPlayer.OCX').cdromCollection.Item(0).Eject();window.close();"
多謝版主
請問有辦法收回去嗎?
它只能退出而已..
請問有辦法收回去嗎?
它只能退出而已..
再执行一次
還是收不回去...怎麼會這樣?
另外我的vbs也是常常出錯，可以再麻煩高手把vbs貼上來嗎?
我的代碼:
set oWMP = createObject("WMPlayer.OCX")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.count >= 1 then
for i = 0 to colCDROMs.count - 1
colCDROMs.Item(i).Eject
next
Msgbox "按「確定」將托盤收回!",64,"光碟機進退片"
for i = 0 to colCDROMs.count - 1
colCDROMs.Item(i).Eject
next
end if
另外我的vbs也是常常出錯，可以再麻煩高手把vbs貼上來嗎?
我的代碼:
set oWMP = createObject("WMPlayer.OCX")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.count >= 1 then
for i = 0 to colCDROMs.count - 1
colCDROMs.Item(i).Eject
next
Msgbox "按「確定」將托盤收回!",64,"光碟機進退片"
for i = 0 to colCDROMs.count - 1
colCDROMs.Item(i).Eject
next
end if
我执行你的这个就可以打开，点确定后关闭了。
多試幾次，肯定會報錯
用个小程序算了。效果一样
来源：https://www.cn-dos.net/forum/viewthread.php?tid=50954 · 打印时间 2026-08-12 12:06