VBS 打開關閉光驅

Set Obj=CreateObject("WMPlayer.OCX.7")
Set CD=Obj.CDROMCollection
If CD.Count>=1 then			'' 光驅數量
For i=0 to CD.Count-1		'' 遍歷所有光驅, 並且打開
    CD.Item(i).eject
Next
For i=0 to CD.Count-1		'' 遍歷所有光驅, 並且關閉
    CD.Item(i).eject
Next
End If