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