sexta-feira, 27 de setembro de 2013

On 06:50 by papa in ,    No comments
trollando no trabalho
Data provided by Pastebin.com - Download Raw - See Original
  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

0 comentários:

Postar um comentário