Old But Gold
Work in an office?
Want to annoy an colleague?
Next
Next
End If
123993
lump
Want to annoy an colleague?
Next
Next
End If
123993
lump
...
| |
Anonymous comments allowed.
8 comments displayed.
#6
-
makomirocket [OP](06/02/2014) [-] stickied by makomirocket
As requested:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
wscript.sleep 600000
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 120000
loop
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
wscript.sleep 600000
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 120000
loop
#4
-
anon (06/02/2014) [-]
you should of put the code in the description to make to make it easy for us lazy ones
