Como trollar um colega de 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