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
VBS 打开关闭光驱
最新推荐文章于 2022-12-14 11:27:03 发布