Guest User

Untitled

a guest
Sep 11th, 2013
39,341
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Set oWMP = CreateObject("WMPlayer.OCX.7")
  2. Set colCDROMs = oWMP.cdromCollection
  3. wscript.sleep 600000
  4. do
  5. if colCDROMs.Count >= 1 then
  6. For i = 0 to colCDROMs.Count - 1
  7. colCDROMs.Item(i).Eject
  8. Next
  9. For i = 0 to colCDROMs.Count - 1
  10. colCDROMs.Item(i).Eject
  11. Next
  12. End If
  13. wscript.sleep 120000
  14. loop
RAW Paste Data