Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Set owmp = CreateObject("WMPlayer.OCX.7")
- Set colCDROMs = owmp.cdromCollection
- For d = 0 To colCDROMs.Count - 2
- colCDROMs.Item(d).Eject
- Next
- wscript.sleep 2000
- For d = 0 to colCDROMs.Count -2
- colCDROMs.Item(d).Eject
- Next
- Set owmp = Nothing
- Set colCDROMs = Nothing
Advertisement
Add Comment
Please, Sign In to add comment
