dos弹出关闭光驱命令
弹出命令
mshta "javascript:new ActiveXObject('WMPlayer.OCX').cdromCollection.Item(0).Eject();window.close();"
运行这么长命令既可
关闭命令,保存为"弹出.BVS"
Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdrom = wmp.cdromCollection
If cdrom.Count >= 1 then '
For z = 0 to cdrom.Count - 1
cdrom.Item(z).Eject
Next
For z = 0 to cdrom.Count - 1
cdrom.Item(z).Eject
Next
End If