PoshCode Archive  Hex Artifact Content

Artifact 910af2f8eb95c0106c736c3e3dd8bd06d254ad97d86f3271065f857bc936cb36:

  • File Start-ScriptThreading.ps1 — part of check-in [d150872079] at 2018-06-10 14:00:42 on branch trunk — Ever wanted to start some threads on a block of code but hated the headache of creating, watching, and collecting job data? This is my attempt to put a bandaid on that issue. (user: Kenneth W Hightower JR size: 8708)

0000: 23 20 65 6e 63 6f 64 69 6e 67 3a 20 61 73 63 69  # encoding: asci
0010: 69 0d 0a 23 20 61 70 69 3a 20 70 6f 77 65 72 73  i..# api: powers
0020: 68 65 6c 6c 0d 0a 23 20 74 69 74 6c 65 3a 20 53  hell..# title: S
0030: 74 61 72 74 2d 53 63 72 69 70 74 54 68 72 65 61  tart-ScriptThrea
0040: 64 69 6e 67 0d 0a 23 20 64 65 73 63 72 69 70 74  ding..# descript
0050: 69 6f 6e 3a 20 45 76 65 72 20 77 61 6e 74 65 64  ion: Ever wanted
0060: 20 74 6f 20 73 74 61 72 74 20 73 6f 6d 65 20 74   to start some t
0070: 68 72 65 61 64 73 20 6f 6e 20 61 20 62 6c 6f 63  hreads on a bloc
0080: 6b 20 6f 66 20 63 6f 64 65 20 62 75 74 20 68 61  k of code but ha
0090: 74 65 64 20 74 68 65 20 68 65 61 64 61 63 68 65  ted the headache
00a0: 20 6f 66 20 63 72 65 61 74 69 6e 67 2c 20 77 61   of creating, wa
00b0: 74 63 68 69 6e 67 2c 20 61 6e 64 20 63 6f 6c 6c  tching, and coll
00c0: 65 63 74 69 6e 67 20 6a 6f 62 20 64 61 74 61 3f  ecting job data?
00d0: 20 54 68 69 73 20 69 73 20 6d 79 20 61 74 74 65   This is my atte
00e0: 6d 70 74 20 74 6f 20 70 75 74 20 61 20 62 61 6e  mpt to put a ban
00f0: 64 61 69 64 20 6f 6e 20 74 68 61 74 20 69 73 73  daid on that iss
0100: 75 65 2e 0d 0a 23 20 76 65 72 73 69 6f 6e 3a 20  ue...# version: 
0110: 30 2e 31 0d 0a 23 20 74 79 70 65 3a 20 66 75 6e  0.1..# type: fun
0120: 63 74 69 6f 6e 0d 0a 23 20 61 75 74 68 6f 72 3a  ction..# author:
0130: 20 4b 65 6e 6e 65 74 68 20 57 20 48 69 67 68 74   Kenneth W Hight
0140: 6f 77 65 72 20 4a 52 0d 0a 23 20 6c 69 63 65 6e  ower JR..# licen
0150: 73 65 3a 20 43 43 30 0d 0a 23 20 66 75 6e 63 74  se: CC0..# funct
0160: 69 6f 6e 3a 20 53 74 61 72 74 2d 53 63 72 69 70  ion: Start-Scrip
0170: 74 54 68 72 65 61 64 69 6e 67 0d 0a 23 20 78 2d  tThreading..# x-
0180: 70 6f 73 68 63 6f 64 65 2d 69 64 3a 20 35 37 35  poshcode-id: 575
0190: 35 0d 0a 23 20 78 2d 61 72 63 68 69 76 65 64 3a  5..# x-archived:
01a0: 20 32 30 31 35 2d 30 33 2d 32 33 54 31 39 3a 32   2015-03-23T19:2
01b0: 32 3a 35 39 0d 0a 23 20 78 2d 70 75 62 6c 69 73  2:59..# x-publis
01c0: 68 65 64 3a 20 32 30 31 35 2d 30 32 2d 32 35 54  hed: 2015-02-25T
01d0: 31 38 3a 30 37 3a 30 30 0d 0a 23 0d 0a 23 20 54  18:07:00..#..# T
01e0: 68 65 72 65 20 61 72 65 20 73 6f 6d 65 20 61 73  here are some as
01f0: 73 75 6d 70 74 69 6f 6e 73 20 6d 61 64 65 20 69  sumptions made i
0200: 6e 20 74 68 69 73 20 66 75 6e 63 74 69 6f 6e 2c  n this function,
0210: 20 73 75 63 68 20 61 73 20 61 73 73 75 6d 69 6e   such as assumin
0220: 67 20 79 6f 75 20 61 72 65 20 74 68 72 65 61 64  g you are thread
0230: 69 6e 67 20 74 6f 20 74 61 6c 6b 20 74 6f 20 61  ing to talk to a
0240: 20 62 75 6e 63 68 20 6f 66 20 63 6f 6d 70 75 74   bunch of comput
0250: 65 72 73 2e 20 41 6c 73 6f 20 61 73 73 75 6d 69  ers. Also assumi
0260: 6e 67 20 79 6f 75 20 6f 6e 6c 79 20 68 61 76 65  ng you only have
0270: 20 6f 6e 65 20 70 61 72 61 6d 65 74 65 72 20 74   one parameter t
0280: 6f 20 70 61 73 73 20 69 6e 74 6f 20 79 6f 75 72  o pass into your
0290: 20 63 75 73 74 6f 6d 20 73 63 72 69 70 74 62 6c   custom scriptbl
02a0: 6f 63 6b 2c 20 61 73 20 77 65 6c 6c 20 61 73 20  ock, as well as 
02b0: 61 73 73 75 6d 69 6e 67 20 74 68 61 74 20 74 68  assuming that th
02c0: 65 20 63 6f 6d 70 75 74 65 72 20 69 73 20 61 20  e computer is a 
02d0: 70 61 72 61 6d 65 74 65 72 20 66 6f 72 20 79 6f  parameter for yo
02e0: 75 72 20 73 63 72 69 70 74 62 6c 6f 63 6b 2e 0d  ur scriptblock..
02f0: 0a 23 20 49 20 68 6f 70 65 20 79 6f 75 20 65 6e  .# I hope you en
0300: 6a 6f 79 20 74 68 69 73 20 6e 75 67 67 65 74 20  joy this nugget 
0310: 61 73 20 49 20 72 65 74 75 72 6e 20 74 6f 20 6d  as I return to m
0320: 79 20 72 65 74 69 72 65 6d 65 6e 74 20 6f 6e 20  y retirement on 
0330: 47 61 6c 6c 69 66 72 65 79 e2 80 a6 0d 0a 23 0d  Gallifrey.....#.
0340: 0a 66 75 6e 63 74 69 6f 6e 20 53 74 61 72 74 2d  .function Start-
0350: 53 63 72 69 70 74 54 68 72 65 61 64 69 6e 67 7b  ScriptThreading{
0360: 0d 0a 3c 23 20 20 20 0d 0a 2e 53 59 4e 4f 50 53  ..<#   ...SYNOPS
0370: 49 53 0d 0a 20 20 20 0d 0a 20 20 20 20 52 75 6e  IS..   ..    Run
0380: 73 20 61 20 73 63 72 69 70 74 62 6c 6f 63 6b 20  s a scriptblock 
0390: 61 67 61 69 6e 73 74 20 6d 75 6c 74 69 70 6c 65  against multiple
03a0: 20 63 6f 6d 70 75 74 65 72 73 20 73 69 6d 75 6c   computers simul
03b0: 74 61 6e 65 6f 75 73 6c 79 20 0d 0a 0d 0a 2e 44  taneously .....D
03c0: 45 53 43 52 49 50 54 49 4f 4e 0d 0a 20 0d 0a 20  ESCRIPTION.. .. 
03d0: 20 20 20 54 68 65 20 54 68 72 65 61 64 65 64 46     The ThreadedF
03e0: 75 6e 63 74 69 6f 6e 20 66 75 6e 63 74 69 6f 6e  unction function
03f0: 20 74 61 6b 65 73 20 61 6e 20 61 72 72 61 79 20   takes an array 
0400: 28 75 73 75 61 6c 6c 79 20 61 20 6c 69 73 74 20  (usually a list 
0410: 6f 66 20 63 6f 6d 70 75 74 65 72 73 29 20 61 6e  of computers) an
0420: 64 20 61 20 73 63 72 69 70 74 62 6c 6f 63 6b 2e  d a scriptblock.
0430: 20 54 68 65 20 73 63 72 69 70 74 62 6c 6f 63 6b   The scriptblock
0440: 20 77 69 6c 6c 20 62 65 20 72 75 6e 20 61 67 61   will be run aga
0450: 69 6e 73 74 0d 0a 20 20 20 20 65 61 63 68 20 69  inst..    each i
0460: 74 65 6d 20 69 6e 20 74 68 65 20 61 72 72 61 79  tem in the array
0470: 20 65 78 70 65 63 74 69 6e 67 20 65 61 63 68 20   expecting each 
0480: 69 74 65 6d 20 6f 66 20 74 68 65 20 61 72 72 61  item of the arra
0490: 79 20 74 6f 20 61 6c 73 6f 20 62 65 20 61 20 70  y to also be a p
04a0: 61 72 61 6d 65 74 65 72 20 65 78 70 65 63 74 65  arameter expecte
04b0: 64 20 69 6e 20 74 68 65 20 73 63 72 69 70 74 62  d in the scriptb
04c0: 6c 6f 63 6b 2e 20 0d 0a 0d 0a 2e 50 41 52 41 4d  lock. .....PARAM
04d0: 45 54 45 52 20 61 72 43 6f 6d 70 75 74 65 72 73  ETER arComputers
04e0: 0d 0a 20 0d 0a 20 20 20 20 4c 69 73 74 20 6f 66  .. ..    List of
04f0: 20 63 6f 6d 70 75 74 65 72 73 20 74 6f 20 72 75   computers to ru
0500: 6e 20 73 63 72 69 70 74 62 6c 6f 63 6b 20 61 67  n scriptblock ag
0510: 61 69 6e 73 74 2e 20 0d 0a 0d 0a 2e 50 41 52 41  ainst. .....PARA
0520: 4d 45 54 45 52 20 53 63 72 69 70 74 42 6c 6f 63  METER ScriptBloc
0530: 6b 0d 0a 20 0d 0a 20 20 20 20 42 6c 6f 63 6b 20  k.. ..    Block 
0540: 6f 66 20 73 63 72 69 70 74 20 74 6f 20 72 75 6e  of script to run
0550: 20 61 67 61 69 6e 73 74 20 6c 69 73 74 20 66 72   against list fr
0560: 6f 6d 20 70 61 72 61 6d 65 74 65 72 20 2d 43 6f  om parameter -Co
0570: 6d 70 75 74 65 72 73 20 20 20 0d 0a 0d 0a 2e 50  mputers   .....P
0580: 41 52 41 4d 45 54 45 52 20 6d 61 78 54 68 72 65  ARAMETER maxThre
0590: 61 64 73 0d 0a 20 0d 0a 20 20 20 20 4d 61 78 69  ads.. ..    Maxi
05a0: 6d 75 6d 20 6e 75 6d 62 65 72 20 6f 66 20 74 68  mum number of th
05b0: 72 65 61 64 73 20 74 6f 20 72 75 6e 20 61 74 20  reads to run at 
05c0: 61 20 74 69 6d 65 20 20 0d 0a 0d 0a 2e 50 41 52  a time  .....PAR
05d0: 41 4d 45 54 45 52 20 53 6c 65 65 70 54 69 6d 65  AMETER SleepTime
05e0: 72 0d 0a 20 0d 0a 20 20 20 20 54 69 6d 65 20 74  r.. ..    Time t
05f0: 6f 20 77 61 69 74 20 62 65 74 77 65 65 6e 20 6c  o wait between l
0600: 6f 6f 70 73 2e 20 54 68 69 73 20 69 73 20 61 20  oops. This is a 
0610: 73 70 61 63 69 6e 67 20 74 69 6d 65 72 20 74 6f  spacing timer to
0620: 20 70 72 65 76 65 6e 74 20 74 68 65 20 6d 61 69   prevent the mai
0630: 6e 20 6c 6f 6f 70 20 66 72 6f 6d 20 68 6f 67 67  n loop from hogg
0640: 69 6e 67 20 63 70 75 20 74 69 6d 65 2e 20 0d 0a  ing cpu time. ..
0650: 20 20 20 20 41 20 73 6d 61 6c 6c 65 72 20 6e 75      A smaller nu
0660: 6d 62 65 72 20 6d 61 79 20 63 72 65 61 74 65 20  mber may create 
0670: 61 6e 64 20 63 68 65 63 6b 20 66 6f 72 20 6a 6f  and check for jo
0680: 62 73 20 66 61 73 74 65 72 2e 0d 0a 20 20 20 20  bs faster...    
0690: 41 20 6c 61 72 67 65 20 6e 75 6d 62 65 72 20 77  A large number w
06a0: 69 6c 6c 20 61 6c 6c 6f 77 20 74 68 65 20 73 65  ill allow the se
06b0: 70 61 72 61 74 65 20 74 68 72 65 61 64 73 20 6d  parate threads m
06c0: 6f 72 65 20 63 70 75 20 74 69 6d 65 2e 20 20 0d  ore cpu time.  .
06d0: 0a 20 20 20 20 41 6e 79 20 6c 6f 6e 67 65 72 20  .    Any longer 
06e0: 74 68 61 6e 20 31 30 30 30 20 6d 69 6c 6c 69 73  than 1000 millis
06f0: 65 63 6f 6e 64 73 20 6d 61 79 20 72 65 6e 64 65  econds may rende
0700: 72 20 74 68 65 20 70 72 6f 67 72 65 73 73 20 69  r the progress i
0710: 6e 64 69 63 61 74 6f 72 20 69 6e 63 6f 72 65 63  ndicator incorec
0720: 74 6c 79 2e 0d 0a 20 20 20 20 28 64 65 66 61 75  tly...    (defau
0730: 6c 74 20 69 73 20 35 30 30 20 6d 69 6c 6c 69 73  lt is 500 millis
0740: 65 63 6f 6e 64 73 29 20 20 20 0d 0a 0d 0a 2e 50  econds)   .....P
0750: 41 52 41 4d 45 54 45 52 20 4d 61 78 57 61 69 74  ARAMETER MaxWait
0760: 41 74 45 6e 64 0d 0a 0d 0a 20 20 20 20 53 65 74  AtEnd....    Set
0770: 73 20 61 20 74 69 6d 65 6f 75 74 20 66 6f 72 20  s a timeout for 
0780: 74 68 72 65 61 64 73 20 62 65 66 6f 72 65 20 6b  threads before k
0790: 69 6c 6c 69 6e 67 20 6a 6f 62 73 2e 20 54 68 69  illing jobs. Thi
07a0: 73 20 74 69 6d 65 72 20 69 73 20 73 74 61 72 74  s timer is start
07b0: 65 64 20 61 66 74 65 72 20 74 68 65 20 6c 61 73  ed after the las
07c0: 74 20 74 68 72 65 61 64 20 69 73 20 63 72 65 61  t thread is crea
07d0: 74 65 64 2e 0d 0a 20 20 20 20 28 64 65 66 61 75  ted...    (defau
07e0: 6c 74 20 69 73 20 31 38 30 20 73 65 63 6f 6e 64  lt is 180 second
07f0: 73 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20  s)              
0800: 0d 0a 0d 0a 2e 4e 4f 54 45 53 0d 0a 20 20 20 0d  .....NOTES..   .
0810: 0a 20 20 20 20 4e 61 6d 65 3a 20 54 68 72 65 61  .    Name: Threa
0820: 64 65 64 53 63 72 69 70 74 0d 0a 20 20 20 20 41  dedScript..    A
0830: 75 74 68 6f 72 3a 20 4b 65 6e 6e 65 74 68 20 57  uthor: Kenneth W
0840: 20 48 69 67 68 74 6f 77 65 72 20 4a 52 0d 0a 20   Hightower JR.. 
0850: 20 20 20 44 61 74 65 43 72 65 61 74 65 64 3a 20     DateCreated: 
0860: 31 31 46 65 62 32 30 31 35 0d 0a 20 20 20 20 44  11Feb2015..    D
0870: 61 74 65 4d 6f 64 69 66 69 65 64 3a 20 31 37 46  ateModified: 17F
0880: 65 62 32 30 31 35 0d 0a 0d 0a 0d 0a 20 20 20 20  eb2015......    
0890: 0d 0a 20 20 20 20 54 6f 20 6c 6f 61 64 20 74 68  ..    To load th
08a0: 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 6e 74 6f  is function into
08b0: 20 74 68 65 20 63 75 72 72 65 6e 74 20 73 68 65   the current she
08c0: 6c 6c 20 66 6f 72 20 75 73 65 2c 20 6f 72 20 74  ll for use, or t
08d0: 6f 20 75 73 65 20 74 68 69 73 20 66 69 6c 65 20  o use this file 
08e0: 73 65 70 65 72 61 74 65 20 66 72 6f 6d 20 79 6f  seperate from yo
08f0: 75 72 20 6d 61 69 6e 20 73 63 72 69 70 74 2c 0d  ur main script,.
0900: 0a 20 0d 0a 20 20 20 20 64 6f 74 2d 73 6f 75 72  . ..    dot-sour
0910: 63 65 20 61 73 20 66 6f 6c 6c 6f 77 73 20 27 2e  ce as follows '.
0920: 20 2e 5c 54 68 72 65 61 64 65 64 46 75 6e 63 74   .\ThreadedFunct
0930: 69 6f 6e 2e 70 73 31 27 20 20 20 20 0d 0a 0d 0a  ion.ps1'    ....
0940: 2e 45 58 41 4d 50 4c 45 0d 0a 20 20 20 0d 0a 20  .EXAMPLE..   .. 
0950: 20 20 20 54 68 72 65 61 64 65 64 53 63 72 69 70     ThreadedScrip
0960: 74 20 2d 43 6f 6d 70 75 74 65 72 73 20 27 73 65  t -Computers 'se
0970: 72 76 65 72 30 31 27 2c 20 27 73 65 72 76 65 72  rver01', 'server
0980: 30 32 27 20 2d 53 63 72 69 70 74 42 6c 6f 63 6b  02' -ScriptBlock
0990: 20 7b 70 69 6e 67 20 24 43 6f 6d 70 75 74 65 72   {ping $Computer
09a0: 7d 0d 0a 0d 0a 20 20 20 20 54 68 65 20 63 6f 6d  }....    The com
09b0: 6d 61 6e 64 20 27 70 69 6e 67 27 20 69 73 20 74  mand 'ping' is t
09c0: 68 72 65 61 64 65 64 20 61 6e 64 20 72 61 6e 20  hreaded and ran 
09d0: 61 67 61 69 6e 73 74 20 62 6f 74 68 20 73 65 72  against both ser
09e0: 76 65 72 30 31 20 61 6e 64 20 73 65 72 76 65 72  ver01 and server
09f0: 30 32 2e 20 44 65 63 6c 61 72 69 6e 67 20 24 43  02. Declaring $C
0a00: 6f 6d 70 75 74 65 72 20 69 73 20 72 65 71 75 69  omputer is requi
0a10: 72 65 64 20 61 73 20 69 73 2e 0d 0a 0d 0a 2e 45  red as is......E
0a20: 58 41 4d 50 4c 45 0d 0a 20 20 20 0d 0a 20 20 20  XAMPLE..   ..   
0a30: 20 27 73 65 72 76 65 72 30 31 27 2c 20 27 73 65   'server01', 'se
0a40: 72 76 65 72 30 32 27 20 7c 20 54 68 72 65 61 64  rver02' | Thread
0a50: 65 64 53 63 72 69 70 74 20 2d 53 63 72 69 70 74  edScript -Script
0a60: 42 6c 6f 63 6b 20 7b 47 65 74 2d 57 4d 49 4f 62  Block {Get-WMIOb
0a70: 6a 65 63 74 20 77 69 6e 33 32 5f 63 6f 6d 70 75  ject win32_compu
0a80: 74 65 72 73 79 73 74 65 6d 20 2d 43 6f 6d 70 75  tersystem -Compu
0a90: 74 65 72 4e 61 6d 65 20 24 43 6f 6d 70 75 74 65  terName $Compute
0aa0: 72 7d 0d 0a 20 0d 0a 20 20 20 20 50 69 70 65 73  r}.. ..    Pipes
0ab0: 20 74 68 65 20 61 72 72 61 79 20 61 73 20 43 6f   the array as Co
0ac0: 6d 70 75 74 65 72 73 20 61 6e 64 20 67 65 74 73  mputers and gets
0ad0: 20 74 68 65 20 57 69 6e 33 32 5f 43 6f 6d 70 75   the Win32_Compu
0ae0: 74 65 72 53 79 73 74 65 6d 20 57 4d 49 20 6f 62  terSystem WMI ob
0af0: 6a 65 63 74 20 66 72 6f 6d 20 73 65 72 76 65 72  ject from server
0b00: 30 31 20 61 6e 64 20 73 65 72 76 65 72 30 32 20  01 and server02 
0b10: 73 69 6d 75 6c 74 61 6e 65 6f 75 73 6c 79 2e 20  simultaneously. 
0b20: 20 20 0d 0a 0d 0a 2e 49 4e 50 55 54 53 0d 0a 0d    .....INPUTS...
0b30: 0a 20 20 20 20 53 79 73 74 65 6d 2e 53 74 72 69  .    System.Stri
0b40: 6e 67 2e 20 46 75 6e 63 74 69 6f 6e 20 77 69 6c  ng. Function wil
0b50: 6c 20 61 63 63 65 70 74 20 61 6e 20 61 72 72 61  l accept an arra
0b60: 79 20 6f 66 20 73 74 72 69 6e 67 73 20 61 6e 64  y of strings and
0b70: 20 61 73 73 75 6d 65 20 65 61 63 68 20 61 73 20   assume each as 
0b80: 61 20 70 61 72 61 6d 65 74 65 72 20 66 6f 72 20  a parameter for 
0b90: 74 68 65 20 70 72 6f 76 69 64 65 64 20 73 63 72  the provided scr
0ba0: 69 70 74 62 6c 6f 63 6b 2e 0d 0a 0d 0a 2e 4f 55  iptblock......OU
0bb0: 54 50 55 54 53 0d 0a 0d 0a 20 20 20 20 53 79 73  TPUTS....    Sys
0bc0: 74 65 6d 2e 4f 62 6a 65 63 74 2e 20 41 6c 6c 20  tem.Object. All 
0bd0: 72 65 74 75 72 6e 65 64 20 64 61 74 61 20 66 72  returned data fr
0be0: 6f 6d 20 65 61 63 68 20 69 74 65 72 61 74 69 6f  om each iteratio
0bf0: 6e 20 74 68 61 74 20 74 68 65 20 73 63 72 69 70  n that the scrip
0c00: 74 62 6c 6f 63 6b 20 6d 61 79 20 63 72 65 61 74  tblock may creat
0c10: 65 20 69 73 20 72 65 74 75 72 6e 65 64 20 61 73  e is returned as
0c20: 20 61 20 73 69 6e 67 6c 65 20 61 72 72 61 79 2e   a single array.
0c30: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 0d 0a 0d  ..           ...
0c40: 0a 23 3e 20 20 0d 0a 20 20 20 20 70 61 72 61 6d  .#>  ..    param
0c50: 28 0d 0a 20 20 20 20 20 20 20 20 5b 70 61 72 61  (..        [para
0c60: 6d 65 74 65 72 28 4d 61 6e 64 61 74 6f 72 79 3d  meter(Mandatory=
0c70: 24 74 72 75 65 2c 56 61 6c 75 65 46 72 6f 6d 50  $true,ValueFromP
0c80: 69 70 65 6c 69 6e 65 3d 24 74 72 75 65 29 5d 0d  ipeline=$true)].
0c90: 0a 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67  .        [string
0ca0: 5b 5d 5d 24 61 72 43 6f 6d 70 75 74 65 72 73 2c  []]$arComputers,
0cb0: 0d 0a 20 20 20 20 20 20 20 20 5b 70 61 72 61 6d  ..        [param
0cc0: 65 74 65 72 28 4d 61 6e 64 61 74 6f 72 79 3d 24  eter(Mandatory=$
0cd0: 74 72 75 65 2c 56 61 6c 75 65 46 72 6f 6d 50 69  true,ValueFromPi
0ce0: 70 65 6c 69 6e 65 3d 24 66 61 6c 73 65 29 5d 0d  peline=$false)].
0cf0: 0a 20 20 20 20 20 20 20 20 5b 73 63 72 69 70 74  .        [script
0d00: 62 6c 6f 63 6b 5d 24 53 63 72 69 70 74 42 6c 6f  block]$ScriptBlo
0d10: 63 6b 2c 0d 0a 20 20 20 20 20 20 20 20 5b 70 61  ck,..        [pa
0d20: 72 61 6d 65 74 65 72 28 4d 61 6e 64 61 74 6f 72  rameter(Mandator
0d30: 79 3d 24 66 61 6c 73 65 29 5d 0d 0a 20 20 20 20  y=$false)]..    
0d40: 20 20 20 20 5b 69 6e 74 5d 24 6d 61 78 54 68 72      [int]$maxThr
0d50: 65 61 64 73 20 3d 20 33 30 2c 0d 0a 20 20 20 20  eads = 30,..    
0d60: 20 20 20 20 5b 70 61 72 61 6d 65 74 65 72 28 4d      [parameter(M
0d70: 61 6e 64 61 74 6f 72 79 3d 24 66 61 6c 73 65 29  andatory=$false)
0d80: 5d 0d 0a 20 20 20 20 20 20 20 20 5b 69 6e 74 5d  ]..        [int]
0d90: 24 53 6c 65 65 70 54 69 6d 65 72 20 3d 20 35 30  $SleepTimer = 50
0da0: 30 2c 0d 0a 20 20 20 20 20 20 20 20 5b 70 61 72  0,..        [par
0db0: 61 6d 65 74 65 72 28 4d 61 6e 64 61 74 6f 72 79  ameter(Mandatory
0dc0: 3d 24 66 61 6c 73 65 29 5d 0d 0a 20 20 20 20 20  =$false)]..     
0dd0: 20 20 20 5b 69 6e 74 5d 24 4d 61 78 57 61 69 74     [int]$MaxWait
0de0: 41 74 45 6e 64 20 3d 20 31 38 30 0d 0a 20 20 20  AtEnd = 180..   
0df0: 20 29 0d 0a 20 20 20 20 42 45 47 49 4e 7b 0d 0a   )..    BEGIN{..
0e00: 20 20 20 20 20 20 20 20 57 72 69 74 65 2d 56 65          Write-Ve
0e10: 72 62 6f 73 65 20 22 49 6e 69 74 69 61 6c 69 7a  rbose "Initializ
0e20: 69 6e 67 2e 2e 2e 22 0d 0a 20 20 20 20 20 20 20  ing..."..       
0e30: 20 24 72 65 74 75 72 6e 20 3d 20 40 28 29 0d 0a   $return = @()..
0e40: 20 20 20 20 20 20 20 20 24 53 74 61 72 74 54 69          $StartTi
0e50: 6d 65 3d 20 47 65 74 2d 44 61 74 65 0d 0a 20 20  me= Get-Date..  
0e60: 20 20 0d 0a 20 20 20 20 20 20 20 20 23 43 72 65    ..        #Cre
0e70: 61 74 65 20 77 6f 72 6b 69 6e 67 20 73 63 72 69  ate working scri
0e80: 70 74 62 6c 6f 63 6b 0d 0a 20 20 20 20 20 20 20  ptblock..       
0e90: 20 24 53 63 72 69 70 74 20 3d 20 5b 53 63 72 69   $Script = [Scri
0ea0: 70 74 42 6c 6f 63 6b 5d 3a 3a 43 72 65 61 74 65  ptBlock]::Create
0eb0: 28 20 40 22 0d 0a 70 61 72 61 6d 28 60 24 43 6f  ( @"..param(`$Co
0ec0: 6d 70 75 74 65 72 29 0d 0a 26 7b 20 24 53 63 72  mputer)..&{ $Scr
0ed0: 69 70 74 42 6c 6f 63 6b 20 7d 20 40 50 53 42 6f  iptBlock } @PSBo
0ee0: 75 6e 64 50 61 72 61 6d 65 74 65 72 73 0d 0a 22  undParameters.."
0ef0: 40 20 29 0d 0a 20 20 20 20 24 43 6f 6d 70 75 74  @ )..    $Comput
0f00: 65 72 73 20 3d 20 40 28 29 0d 0a 20 20 20 20 7d  ers = @()..    }
0f10: 0d 0a 20 20 20 20 50 52 4f 43 45 53 53 7b 0d 0a  ..    PROCESS{..
0f20: 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 66 6f      ..        fo
0f30: 72 65 61 63 68 28 24 43 6f 6d 70 75 74 65 72 20  reach($Computer 
0f40: 69 6e 20 24 61 72 43 6f 6d 70 75 74 65 72 73 29  in $arComputers)
0f50: 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 24  {..            $
0f60: 43 6f 6d 70 75 74 65 72 73 20 2b 3d 20 24 43 6f  Computers += $Co
0f70: 6d 70 75 74 65 72 20 23 59 65 73 2c 20 74 68 69  mputer #Yes, thi
0f80: 73 20 77 69 6c 6c 20 66 6c 61 74 74 65 6e 20 6d  s will flatten m
0f90: 75 6c 74 69 2d 64 69 6d 65 6e 74 69 6f 6e 61 6c  ulti-dimentional
0fa0: 20 61 72 72 61 79 73 2e 2e 2e 20 0d 0a 20 20 20   arrays... ..   
0fb0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d 20 0d 0a       }..    } ..
0fc0: 23 77 68 65 6e 20 79 6f 75 20 70 69 70 65 6c 69  #when you pipeli
0fd0: 6e 65 20 74 6f 20 74 68 69 73 20 66 75 6e 63 74  ne to this funct
0fe0: 69 6f 6e 20 74 68 65 20 62 65 67 69 6e 20 73 65  ion the begin se
0ff0: 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c 65 64 20  ction is called 
1000: 6f 6e 63 65 2c 20 74 68 65 6e 20 66 6f 72 20 65  once, then for e
1010: 61 63 68 20 69 74 65 6d 20 69 6e 20 74 68 65 20  ach item in the 
1020: 70 69 70 65 6c 69 6e 65 20 74 68 65 20 65 6e 74  pipeline the ent
1030: 69 72 65 20 70 72 6f 63 65 73 73 20 62 6c 6f 63  ire process bloc
1040: 6b 20 69 73 20 63 61 6c 6c 65 64 2e 0d 0a 23 49  k is called...#I
1050: 6e 20 6f 72 64 65 72 20 74 6f 20 63 6f 6c 6c 65  n order to colle
1060: 63 74 20 61 6c 6c 20 69 74 65 6d 73 20 69 6e 20  ct all items in 
1070: 74 68 65 20 70 69 70 65 6c 69 6e 65 20 73 6f 20  the pipeline so 
1080: 74 68 61 74 20 65 76 65 72 79 74 68 69 6e 67 20  that everything 
1090: 70 61 73 73 65 64 20 69 6e 20 63 61 6e 20 62 65  passed in can be
10a0: 20 74 68 72 65 61 64 65 64 20 73 69 6d 75 6c 74   threaded simult
10b0: 61 6e 65 6f 75 73 6c 79 20 61 73 20 69 6e 74 65  aneously as inte
10c0: 6e 64 65 64 20 77 65 20 68 61 6e 64 6c 65 20 74  nded we handle t
10d0: 68 65 20 74 68 72 65 61 64 69 6e 67 20 61 74 20  he threading at 
10e0: 74 68 65 20 65 6e 64 2e 0d 0a 23 4f 74 68 65 72  the end...#Other
10f0: 77 69 73 65 20 65 61 63 68 20 69 74 65 6d 20 77  wise each item w
1100: 69 6c 6c 20 67 65 74 20 74 68 72 65 61 64 65 64  ill get threaded
1110: 20 61 6e 64 20 63 6f 6c 6c 65 63 74 65 64 20 62   and collected b
1120: 65 66 6f 72 65 20 74 68 65 20 6e 65 78 74 20 69  efore the next i
1130: 74 65 6d 20 69 73 20 74 68 72 65 61 64 65 64 2e  tem is threaded.
1140: 0d 0a 20 20 20 20 45 4e 44 7b 0d 0a 20 20 20 20  ..    END{..    
1150: 20 20 20 20 23 53 74 61 72 74 20 4d 61 6b 69 6e      #Start Makin
1160: 67 20 4a 6f 62 73 0d 0a 20 20 20 20 20 20 20 20  g Jobs..        
1170: 57 72 69 74 65 2d 56 65 72 62 6f 73 65 20 22 63  Write-Verbose "c
1180: 72 65 61 74 69 6e 67 20 74 68 72 65 61 64 73 2e  reating threads.
1190: 2e 2e 22 0d 0a 20 20 20 20 20 20 20 20 46 6f 72  .."..        For
11a0: 65 61 63 68 28 24 43 6f 6d 70 75 74 65 72 20 69  each($Computer i
11b0: 6e 20 24 43 6f 6d 70 75 74 65 72 73 29 7b 0d 0a  n $Computers){..
11c0: 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20          ..      
11d0: 20 20 20 20 20 20 23 43 68 65 63 6b 20 66 6f 72        #Check for
11e0: 20 72 75 6e 6e 69 6e 67 20 74 68 72 65 61 64 73   running threads
11f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 77 68  ..            wh
1200: 69 6c 65 20 28 24 28 47 65 74 2d 4a 6f 62 20 2d  ile ($(Get-Job -
1210: 53 74 61 74 65 20 52 75 6e 6e 69 6e 67 20 7c 20  State Running | 
1220: 6d 65 61 73 75 72 65 2d 6f 62 6a 65 63 74 29 2e  measure-object).
1230: 63 6f 75 6e 74 20 2d 67 65 20 24 6d 61 78 54 68  count -ge $maxTh
1240: 72 65 61 64 73 29 7b 0d 0a 20 20 20 20 09 09 20  reads){..    .. 
1250: 20 20 20 77 72 69 74 65 2d 68 6f 73 74 20 22 24     write-host "$
1260: 28 28 47 65 74 2d 4a 6f 62 20 2d 53 74 61 74 65  ((Get-Job -State
1270: 20 52 75 6e 6e 69 6e 67 20 7c 20 6d 65 61 73 75   Running | measu
1280: 72 65 2d 6f 62 6a 65 63 74 29 2e 63 6f 75 6e 74  re-object).count
1290: 29 20 74 68 72 65 61 64 73 20 72 75 6e 6e 69 6e  ) threads runnin
12a0: 67 2c 20 70 6c 65 61 73 65 20 77 61 69 74 2e 2e  g, please wait..
12b0: 2e 22 0d 0a 20 20 20 20 09 09 20 20 20 20 73 74  ."..    ..    st
12c0: 61 72 74 2d 73 6c 65 65 70 20 2d 73 20 33 0d 0a  art-sleep -s 3..
12d0: 20 20 20 20 09 20 20 20 20 7d 20 23 20 45 6e 64      .    } # End
12e0: 20 77 68 69 6c 65 20 28 24 28 47 65 74 2d 4a 6f   while ($(Get-Jo
12f0: 62 20 2d 53 74 61 74 65 20 52 75 6e 6e 69 6e 67  b -State Running
1300: 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20  ..        ..    
1310: 20 20 20 20 20 20 20 20 57 72 69 74 65 2d 56 65          Write-Ve
1320: 72 62 6f 73 65 20 22 73 74 61 72 74 69 6e 67 20  rbose "starting 
1330: 24 28 24 43 6f 6d 70 75 74 65 72 29 22 0d 0a 20  $($Computer)".. 
1340: 20 20 20 20 20 20 20 20 20 20 20 53 74 61 72 74             Start
1350: 2d 4a 6f 62 20 2d 6e 61 6d 65 20 24 43 6f 6d 70  -Job -name $Comp
1360: 75 74 65 72 20 2d 73 63 72 69 70 74 62 6c 6f 63  uter -scriptbloc
1370: 6b 20 24 53 63 72 69 70 74 20 2d 41 72 67 75 6d  k $Script -Argum
1380: 65 6e 74 4c 69 73 74 20 24 43 6f 6d 70 75 74 65  entList $Compute
1390: 72 0d 0a 20 20 20 20 20 20 20 20 0d 0a 20 20 20  r..        ..   
13a0: 20 20 20 20 20 20 20 20 20 23 50 72 65 74 74 79           #Pretty
13b0: 20 70 72 6f 67 72 65 73 73 20 69 6e 64 69 63 61   progress indica
13c0: 74 6f 72 0d 0a 20 20 20 20 20 20 20 20 20 20 20  tor..           
13d0: 20 24 43 6f 6d 70 75 74 65 72 73 53 74 69 6c 6c   $ComputersStill
13e0: 52 75 6e 6e 69 6e 67 20 3d 20 22 22 0d 0a 20 20  Running = ""..  
13f0: 20 20 20 20 20 20 20 20 20 20 46 6f 72 45 61 63            ForEac
1400: 68 20 28 24 53 79 73 74 65 6d 20 20 69 6e 20 24  h ($System  in $
1410: 28 47 65 74 2d 4a 6f 62 20 2d 73 74 61 74 65 20  (Get-Job -state 
1420: 72 75 6e 6e 69 6e 67 29 29 7b 0d 0a 20 20 20 20  running)){..    
1430: 20 20 20 20 20 20 20 20 20 20 20 20 24 43 6f 6d              $Com
1440: 70 75 74 65 72 73 53 74 69 6c 6c 52 75 6e 6e 69  putersStillRunni
1450: 6e 67 20 2b 3d 20 22 2c 20 24 28 24 53 79 73 74  ng += ", $($Syst
1460: 65 6d 2e 6e 61 6d 65 29 22 0d 0a 20 20 20 20 20  em.name)"..     
1470: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
1480: 20 20 20 20 20 20 24 43 6f 6d 70 75 74 65 72 73        $Computers
1490: 53 74 69 6c 6c 52 75 6e 6e 69 6e 67 20 3d 20 24  StillRunning = $
14a0: 43 6f 6d 70 75 74 65 72 73 53 74 69 6c 6c 52 75  ComputersStillRu
14b0: 6e 6e 69 6e 67 2e 54 72 69 6d 53 74 61 72 74 28  nning.TrimStart(
14c0: 22 2c 20 22 29 0d 0a 20 20 20 20 20 20 20 20 20  ", ")..         
14d0: 20 20 20 57 72 69 74 65 2d 50 72 6f 67 72 65 73     Write-Progres
14e0: 73 20 20 2d 41 63 74 69 76 69 74 79 20 22 43 72  s  -Activity "Cr
14f0: 65 61 74 69 6e 67 20 4a 6f 62 73 22 20 60 0d 0a  eating Jobs" `..
1500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1510: 20 20 20 20 20 20 20 20 20 20 20 20 2d 53 74 61              -Sta
1520: 74 75 73 20 22 24 28 24 28 47 65 74 2d 4a 6f 62  tus "$($(Get-Job
1530: 20 2d 53 74 61 74 65 20 52 75 6e 6e 69 6e 67 29   -State Running)
1540: 2e 63 6f 75 6e 74 29 20 74 68 72 65 61 64 73 20  .count) threads 
1550: 72 75 6e 6e 69 6e 67 2e 2e 2e 22 20 60 0d 0a 20  running..." `.. 
1560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1570: 20 20 20 20 20 20 20 20 20 20 20 2d 43 75 72 72             -Curr
1580: 65 6e 74 4f 70 65 72 61 74 69 6f 6e 20 22 24 43  entOperation "$C
1590: 6f 6d 70 75 74 65 72 73 53 74 69 6c 6c 52 75 6e  omputersStillRun
15a0: 6e 69 6e 67 22 20 60 0d 0a 20 20 20 20 20 20 20  ning" `..       
15b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
15c0: 20 20 20 20 20 2d 50 65 72 63 65 6e 74 43 6f 6d       -PercentCom
15d0: 70 6c 65 74 65 20 28 24 28 47 65 74 2d 4a 6f 62  plete ($(Get-Job
15e0: 20 2d 53 74 61 74 65 20 43 6f 6d 70 6c 65 74 65   -State Complete
15f0: 64 29 2e 63 6f 75 6e 74 20 2f 20 24 28 47 65 74  d).count / $(Get
1600: 2d 4a 6f 62 29 2e 63 6f 75 6e 74 20 2a 20 31 30  -Job).count * 10
1610: 30 29 0d 0a 0d 0a 20 20 20 20 20 20 20 20 20 20  0)....          
1620: 20 20 23 43 68 65 63 6b 20 66 6f 72 20 63 6f 6d    #Check for com
1630: 70 6c 65 74 65 64 20 4a 6f 62 73 2e 20 44 65 70  pleted Jobs. Dep
1640: 65 6e 64 69 6e 67 20 6f 6e 20 6e 75 6d 62 65 72  ending on number
1650: 20 6f 66 20 6a 6f 62 73 2c 20 77 65 20 6d 69 67   of jobs, we mig
1660: 68 74 20 61 73 20 77 65 6c 6c 20 63 6f 6c 6c 65  ht as well colle
1670: 63 74 20 64 61 74 61 20 61 73 20 77 65 20 67 6f  ct data as we go
1680: 2e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 46  ...            F
1690: 6f 72 45 61 63 68 28 24 4a 6f 62 20 69 6e 20 24  orEach($Job in $
16a0: 28 47 65 74 2d 4a 6f 62 20 2d 53 74 61 74 65 20  (Get-Job -State 
16b0: 43 6f 6d 70 6c 65 74 65 64 29 29 7b 0d 0a 20 20  Completed)){..  
16c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 66                If
16d0: 28 24 4a 6f 62 2e 48 61 73 4d 6f 72 65 44 61 74  ($Job.HasMoreDat
16e0: 61 20 2d 65 71 20 22 54 72 75 65 22 29 7b 0d 0a  a -eq "True"){..
16f0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1700: 20 20 20 20 57 72 69 74 65 2d 56 65 72 62 6f 73      Write-Verbos
1710: 65 20 22 4a 6f 62 20 24 28 24 4a 6f 62 2e 49 64  e "Job $($Job.Id
1720: 29 20 66 69 6e 69 73 68 65 64 20 65 61 72 6c 79  ) finished early
1730: 22 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  "..             
1740: 20 20 20 20 20 20 20 24 44 61 74 61 20 3d 20 52         $Data = R
1750: 65 63 65 69 76 65 2d 4a 6f 62 20 24 4a 6f 62 0d  eceive-Job $Job.
1760: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1770: 20 20 20 20 20 24 52 65 74 75 72 6e 2b 3d 24 44       $Return+=$D
1780: 61 74 61 0d 0a 20 20 20 20 20 20 20 20 20 20 20  ata..           
1790: 20 20 20 20 20 7d 23 65 6e 64 20 69 66 28 24 6a       }#end if($j
17a0: 6f 62 2e 68 61 73 6d 6f 72 65 64 61 74 61 0d 0a  ob.hasmoredata..
17b0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 23 65 6e              }#en
17c0: 64 20 66 6f 72 65 61 63 68 28 24 4a 6f 62 0d 0a  d foreach($Job..
17d0: 20 20 20 20 20 20 20 20 7d 23 65 6e 64 20 24 63          }#end $c
17e0: 6f 6d 70 75 74 65 72 73 20 7c 20 66 6f 72 65 61  omputers | forea
17f0: 63 68 0d 0a 20 20 20 20 0d 0a 20 20 20 20 20 20  ch..    ..      
1800: 20 20 23 44 6f 6e 65 20 63 72 65 61 74 69 6e 67    #Done creating
1810: 20 6a 6f 62 73 2e 0d 0a 20 20 20 20 20 20 20 20   jobs...        
1820: 57 72 69 74 65 2d 56 65 72 62 6f 73 65 20 22 57  Write-Verbose "W
1830: 61 69 74 69 6e 67 20 66 6f 72 20 66 69 6e 61 6c  aiting for final
1840: 20 74 68 72 65 61 64 73 2e 2e 2e 22 0d 0a 20 20   threads..."..  
1850: 20 20 20 20 20 20 24 43 6f 6d 70 6c 65 74 65 20        $Complete 
1860: 3d 20 47 65 74 2d 64 61 74 65 0d 0a 0d 0a 20 20  = Get-date....  
1870: 20 20 20 20 20 20 23 57 61 69 74 20 66 6f 72 20        #Wait for 
1880: 74 68 65 20 6c 61 73 74 20 63 72 65 61 74 65 64  the last created
1890: 20 6a 6f 62 73 20 74 6f 20 66 69 6e 69 73 68 0d   jobs to finish.
18a0: 0a 20 20 20 20 20 20 20 20 23 46 6f 6c 6c 6f 77  .        #Follow
18b0: 69 6e 67 20 6c 6f 6f 70 20 67 65 74 73 20 73 6b  ing loop gets sk
18c0: 69 70 70 65 64 20 69 66 20 70 69 70 65 6c 69 6e  ipped if pipelin
18d0: 65 20 69 73 20 75 73 65 64 20 74 6f 20 70 61 73  e is used to pas
18e0: 73 20 24 43 6f 6d 70 75 74 65 72 73 0d 0a 20 20  s $Computers..  
18f0: 20 20 20 20 20 20 57 68 69 6c 65 20 28 24 28 47        While ($(G
1900: 65 74 2d 4a 6f 62 20 2d 53 74 61 74 65 20 52 75  et-Job -State Ru
1910: 6e 6e 69 6e 67 20 7c 20 6d 65 61 73 75 72 65 2d  nning | measure-
1920: 6f 62 6a 65 63 74 29 2e 63 6f 75 6e 74 20 2d 67  object).count -g
1930: 74 20 30 29 7b 0d 0a 20 20 20 20 20 20 20 20 0d  t 0){..        .
1940: 0a 20 20 20 20 20 20 20 20 20 20 20 20 23 72 61  .            #ra
1950: 6e 64 6f 6d 20 69 6e 66 6f 72 6d 61 74 69 6f 6e  ndom information
1960: 20 66 6f 72 20 70 72 6f 67 72 65 73 73 20 73 63   for progress sc
1970: 72 65 65 6e 0d 0a 20 20 20 20 20 20 20 20 20 20  reen..          
1980: 20 20 24 43 6f 6d 70 75 74 65 72 73 53 74 69 6c    $ComputersStil
1990: 6c 52 75 6e 6e 69 6e 67 20 3d 20 22 22 0d 0a 20  lRunning = "".. 
19a0: 20 20 20 20 20 20 20 20 20 20 20 24 54 69 6d 65             $Time
19b0: 44 69 66 66 20 3d 20 4e 65 77 2d 54 69 6d 65 53  Diff = New-TimeS
19c0: 70 61 6e 20 24 53 74 61 72 74 54 69 6d 65 20 24  pan $StartTime $
19d0: 28 47 65 74 2d 44 61 74 65 29 0d 0a 20 20 20 20  (Get-Date)..    
19e0: 20 20 20 20 20 20 20 20 5b 73 74 72 69 6e 67 5d          [string]
19f0: 24 73 74 72 54 69 6d 69 6e 67 53 74 61 74 75 73  $strTimingStatus
1a00: 20 3d 20 22 7b 30 7d 20 6d 69 6e 75 74 65 73 2c   = "{0} minutes,
1a10: 20 7b 31 7d 20 73 65 63 6f 6e 64 73 20 73 6f 20   {1} seconds so 
1a20: 66 61 72 22 20 2d 66 20 24 54 69 6d 65 44 69 66  far" -f $TimeDif
1a30: 66 2e 4d 69 6e 75 74 65 73 2c 20 24 54 69 6d 65  f.Minutes, $Time
1a40: 44 69 66 66 2e 53 65 63 6f 6e 64 73 0d 0a 20 20  Diff.Seconds..  
1a50: 20 20 20 20 20 20 20 20 20 20 46 6f 72 45 61 63            ForEac
1a60: 68 20 28 24 53 79 73 74 65 6d 20 20 69 6e 20 24  h ($System  in $
1a70: 28 47 65 74 2d 4a 6f 62 20 2d 73 74 61 74 65 20  (Get-Job -state 
1a80: 72 75 6e 6e 69 6e 67 29 29 7b 0d 0a 20 20 20 20  running)){..    
1a90: 20 20 20 20 20 20 20 20 20 20 20 20 24 43 6f 6d              $Com
1aa0: 70 75 74 65 72 73 53 74 69 6c 6c 52 75 6e 6e 69  putersStillRunni
1ab0: 6e 67 20 2b 3d 20 22 2c 20 24 28 24 53 79 73 74  ng += ", $($Syst
1ac0: 65 6d 2e 6e 61 6d 65 29 22 0d 0a 20 20 20 20 20  em.name)"..     
1ad0: 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20         }..      
1ae0: 20 20 20 20 20 20 24 43 6f 6d 70 75 74 65 72 73        $Computers
1af0: 53 74 69 6c 6c 52 75 6e 6e 69 6e 67 20 3d 20 24  StillRunning = $
1b00: 43 6f 6d 70 75 74 65 72 73 53 74 69 6c 6c 52 75  ComputersStillRu
1b10: 6e 6e 69 6e 67 2e 54 72 69 6d 53 74 61 72 74 28  nning.TrimStart(
1b20: 22 2c 20 22 29 0d 0a 20 20 20 20 20 20 20 20 20  ", ")..         
1b30: 20 20 20 57 72 69 74 65 2d 50 72 6f 67 72 65 73     Write-Progres
1b40: 73 20 20 2d 41 63 74 69 76 69 74 79 20 22 57 61  s  -Activity "Wa
1b50: 69 74 69 6e 67 20 66 6f 72 20 63 6f 6d 70 6c 65  iting for comple
1b60: 74 69 6f 6e 2e 2e 2e 22 20 60 0d 0a 20 20 20 20  tion..." `..    
1b70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1b80: 20 20 20 20 20 20 20 20 2d 53 74 61 74 75 73 20          -Status 
1b90: 22 24 28 24 28 47 65 74 2d 4a 6f 62 20 2d 53 74  "$($(Get-Job -St
1ba0: 61 74 65 20 52 75 6e 6e 69 6e 67 29 2e 63 6f 75  ate Running).cou
1bb0: 6e 74 29 20 74 68 72 65 61 64 73 20 72 65 6d 61  nt) threads rema
1bc0: 69 6e 69 6e 67 3a 20 24 73 74 72 54 69 6d 69 6e  ining: $strTimin
1bd0: 67 53 74 61 74 75 73 22 20 60 0d 0a 20 20 20 20  gStatus" `..    
1be0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1bf0: 20 20 20 20 20 20 20 20 2d 43 75 72 72 65 6e 74          -Current
1c00: 4f 70 65 72 61 74 69 6f 6e 20 22 24 43 6f 6d 70  Operation "$Comp
1c10: 75 74 65 72 73 53 74 69 6c 6c 52 75 6e 6e 69 6e  utersStillRunnin
1c20: 67 22 20 60 0d 0a 20 20 20 20 20 20 20 20 20 20  g" `..          
1c30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1c40: 20 20 2d 50 65 72 63 65 6e 74 43 6f 6d 70 6c 65    -PercentComple
1c50: 74 65 20 28 24 28 47 65 74 2d 4a 6f 62 20 2d 53  te ($(Get-Job -S
1c60: 74 61 74 65 20 43 6f 6d 70 6c 65 74 65 64 29 2e  tate Completed).
1c70: 63 6f 75 6e 74 20 2f 20 24 28 47 65 74 2d 4a 6f  count / $(Get-Jo
1c80: 62 29 2e 63 6f 75 6e 74 20 2a 20 31 30 30 29 0d  b).count * 100).
1c90: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23  ...            #
1ca0: 43 6f 6c 6c 65 63 74 69 6e 67 20 6a 6f 62 73 20  Collecting jobs 
1cb0: 61 73 20 77 65 20 77 61 69 74 0d 0a 20 20 20 20  as we wait..    
1cc0: 20 20 20 20 20 20 20 20 46 6f 72 45 61 63 68 28          ForEach(
1cd0: 24 4a 6f 62 20 69 6e 20 24 28 47 65 74 2d 4a 6f  $Job in $(Get-Jo
1ce0: 62 20 2d 53 74 61 74 65 20 43 6f 6d 70 6c 65 74  b -State Complet
1cf0: 65 64 29 29 7b 0d 0a 20 20 20 20 20 20 20 20 20  ed)){..         
1d00: 20 20 20 20 20 20 20 49 66 28 24 4a 6f 62 2e 48         If($Job.H
1d10: 61 73 4d 6f 72 65 44 61 74 61 20 2d 65 71 20 22  asMoreData -eq "
1d20: 54 72 75 65 22 29 7b 0d 0a 20 20 20 20 20 20 20  True"){..       
1d30: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 72 69               Wri
1d40: 74 65 2d 56 65 72 62 6f 73 65 20 22 4a 6f 62 20  te-Verbose "Job 
1d50: 24 28 24 4a 6f 62 2e 49 64 29 20 6a 75 73 74 20  $($Job.Id) just 
1d60: 63 6f 6d 70 6c 65 74 65 64 22 0d 0a 20 20 20 20  completed"..    
1d70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1d80: 24 44 61 74 61 20 3d 20 52 65 63 65 69 76 65 2d  $Data = Receive-
1d90: 4a 6f 62 20 24 4a 6f 62 0d 0a 20 20 20 20 20 20  Job $Job..      
1da0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 24 72                $r
1db0: 65 74 75 72 6e 2b 3d 24 44 61 74 61 0d 0a 20 20  eturn+=$Data..  
1dc0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7d 23                }#
1dd0: 65 6e 64 20 69 66 28 24 6a 6f 62 2e 68 61 73 6d  end if($job.hasm
1de0: 6f 72 65 64 61 74 61 0d 0a 20 20 20 20 20 20 20  oredata..       
1df0: 20 20 20 20 20 7d 23 65 6e 64 20 66 6f 72 65 61       }#end forea
1e00: 63 68 28 24 4a 6f 62 0d 0a 0d 0a 20 20 20 20 20  ch($Job....     
1e10: 20 20 20 20 20 20 20 23 44 6f 6e 65 20 77 61 69         #Done wai
1e20: 74 69 6e 67 2e 20 54 68 72 65 61 64 73 20 6d 6f  ting. Threads mo
1e30: 73 74 20 6c 69 6b 65 6c 79 20 68 75 6e 67 20 75  st likely hung u
1e40: 70 20 6f 6e 20 73 6f 6d 65 74 68 69 6e 67 2c 20  p on something, 
1e50: 74 68 72 6f 77 20 74 68 65 6d 20 61 77 61 79 2e  throw them away.
1e60: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 49 66  ..            If
1e70: 20 28 24 28 4e 65 77 2d 54 69 6d 65 53 70 61 6e   ($(New-TimeSpan
1e80: 20 24 43 6f 6d 70 6c 65 74 65 20 24 28 47 65 74   $Complete $(Get
1e90: 2d 44 61 74 65 29 29 2e 74 6f 74 61 6c 73 65 63  -Date)).totalsec
1ea0: 6f 6e 64 73 20 2d 67 65 20 24 4d 61 78 57 61 69  onds -ge $MaxWai
1eb0: 74 41 74 45 6e 64 29 7b 0d 0a 20 20 20 20 20 20  tAtEnd){..      
1ec0: 20 20 09 20 20 20 20 57 72 69 74 65 2d 56 65 72    .    Write-Ver
1ed0: 62 6f 73 65 20 22 4b 69 6c 6c 69 6e 67 20 61 6c  bose "Killing al
1ee0: 6c 20 6a 6f 62 73 20 73 74 69 6c 6c 20 72 75 6e  l jobs still run
1ef0: 6e 69 6e 67 2c 20 74 69 72 65 64 20 6f 66 20 77  ning, tired of w
1f00: 61 69 74 69 6e 67 2e 2e 2e 22 0d 0a 20 20 20 20  aiting..."..    
1f10: 20 20 20 20 09 20 20 20 20 47 65 74 2d 4a 6f 62      .    Get-Job
1f20: 20 2d 53 74 61 74 65 20 52 75 6e 6e 69 6e 67 20   -State Running 
1f30: 7c 20 52 65 6d 6f 76 65 2d 4a 6f 62 20 2d 46 6f  | Remove-Job -Fo
1f40: 72 63 65 0d 0a 20 20 20 20 09 20 20 20 20 7d 0d  rce..    .    }.
1f50: 0a 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 23  ...            #
1f60: 4c 65 74 73 20 6e 6f 74 20 62 6f 67 20 74 68 65  Lets not bog the
1f70: 20 43 50 55 20 77 69 74 68 20 6c 69 67 68 74 6e   CPU with lightn
1f80: 69 6e 67 20 73 70 65 65 64 20 6c 6f 6f 70 69 6e  ing speed loopin
1f90: 67 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 53  g..            S
1fa0: 74 61 72 74 2d 53 6c 65 65 70 20 2d 4d 69 6c 6c  tart-Sleep -Mill
1fb0: 69 73 65 63 6f 6e 64 73 20 24 53 6c 65 65 70 54  iseconds $SleepT
1fc0: 69 6d 65 72 0d 0a 20 20 20 20 20 20 20 20 7d 0d  imer..        }.
1fd0: 0a 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 23  .    ..        #
1fe0: 46 69 6e 61 6c 20 63 6c 65 61 6e 69 6e 67 2c 20  Final cleaning, 
1ff0: 6a 75 73 74 20 69 6e 20 63 61 73 65 2e 2e 2e 2e  just in case....
2000: 0d 0a 20 20 20 20 20 20 20 20 46 6f 72 45 61 63  ..        ForEac
2010: 68 28 24 4a 6f 62 20 69 6e 20 24 28 47 65 74 2d  h($Job in $(Get-
2020: 4a 6f 62 20 2d 53 74 61 74 65 20 43 6f 6d 70 6c  Job -State Compl
2030: 65 74 65 64 29 29 7b 0d 0a 20 20 20 20 20 20 20  eted)){..       
2040: 20 20 20 20 20 49 66 28 24 4a 6f 62 2e 48 61 73       If($Job.Has
2050: 4d 6f 72 65 44 61 74 61 20 2d 65 71 20 22 54 72  MoreData -eq "Tr
2060: 75 65 22 29 7b 0d 0a 20 20 20 20 20 20 20 20 20  ue"){..         
2070: 20 20 20 20 20 20 20 57 72 69 74 65 2d 56 65 72         Write-Ver
2080: 62 6f 73 65 20 22 4a 6f 62 20 24 28 24 4a 6f 62  bose "Job $($Job
2090: 2e 49 64 29 20 63 6f 6d 70 6c 65 74 65 64 20 6c  .Id) completed l
20a0: 61 74 65 22 0d 0a 20 20 20 20 20 20 20 20 20 20  ate"..          
20b0: 20 20 20 20 20 20 24 44 61 74 61 20 3d 20 52 65        $Data = Re
20c0: 63 65 69 76 65 2d 4a 6f 62 20 24 4a 6f 62 0d 0a  ceive-Job $Job..
20d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
20e0: 24 72 65 74 75 72 6e 2b 3d 24 44 61 74 61 0d 0a  $return+=$Data..
20f0: 20 20 20 20 20 20 20 20 20 20 20 20 7d 23 65 6e              }#en
2100: 64 20 69 66 28 24 6a 6f 62 2e 68 61 73 6d 6f 72  d if($job.hasmor
2110: 65 64 61 74 61 0d 0a 20 20 20 20 20 20 20 20 7d  edata..        }
2120: 23 65 6e 64 20 66 6f 72 65 61 63 68 28 24 4a 6f  #end foreach($Jo
2130: 62 0d 0a 0d 0a 20 20 20 20 20 20 20 20 57 72 69  b....        Wri
2140: 74 65 2d 56 65 72 62 6f 73 65 20 22 43 6c 65 61  te-Verbose "Clea
2150: 6e 69 6e 67 20 75 70 20 74 68 72 65 61 64 73 22  ning up threads"
2160: 0d 0a 20 20 20 20 20 20 20 20 47 65 74 2d 4a 6f  ..        Get-Jo
2170: 62 20 7c 20 52 65 6d 6f 76 65 2d 4a 6f 62 20 2d  b | Remove-Job -
2180: 46 6f 72 63 65 20 7c 20 4f 75 74 2d 4e 75 6c 6c  Force | Out-Null
2190: 0d 0a 0d 0a 20 20 20 20 20 20 20 20 23 41 6c 6c  ....        #All
21a0: 20 74 68 69 73 20 64 61 74 61 20 6e 65 65 64 73   this data needs
21b0: 20 74 6f 20 67 6f 20 73 6f 6d 65 77 68 65 72 65   to go somewhere
21c0: 2e 2e 2e 2e 0d 0a 20 20 20 20 20 20 20 20 72 65  ......        re
21d0: 74 75 72 6e 20 24 72 65 74 75 72 6e 0d 0a 20 20  turn $return..  
21e0: 20 20 7d 0d 0a 7d 23 65 6e 64 20 66 75 6e 63 74    }..}#end funct
21f0: 69 6f 6e 20 54 68 72 65 61 64 65 64 53 63 72 69  ion ThreadedScri
2200: 70 74 0d 0a                                      pt..