PoshCode Archive  Hex Artifact Content

Artifact 56ee297526cf57b5048044fed1121d609f05b80fb24deb596c520426ac827d94:

  • File Set-account-password.ps1 — part of check-in [c5a9a67edc] at 2018-06-10 13:09:35 on branch trunk — This script will allow you to set the password for an account on a local or remote machine/s. A report is then generated when done along with an error log. Scripts accepts pipeling input for the computer/s. If any errors are encountered, a log will be generated as well. (user: geraldo size: 7210)

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: 65 74 20 61 63 63 6f 75 6e 74 20 70 61 73 73 77  et account passw
0040: 6f 72 64 0d 0a 23 20 64 65 73 63 72 69 70 74 69  ord..# descripti
0050: 6f 6e 3a 20 54 68 69 73 20 73 63 72 69 70 74 20  on: This script 
0060: 77 69 6c 6c 20 61 6c 6c 6f 77 20 79 6f 75 20 74  will allow you t
0070: 6f 20 73 65 74 20 74 68 65 20 70 61 73 73 77 6f  o set the passwo
0080: 72 64 20 66 6f 72 20 61 6e 20 61 63 63 6f 75 6e  rd for an accoun
0090: 74 20 6f 6e 20 61 20 6c 6f 63 61 6c 20 6f 72 20  t on a local or 
00a0: 72 65 6d 6f 74 65 20 6d 61 63 68 69 6e 65 2f 73  remote machine/s
00b0: 2e 20 20 41 20 72 65 70 6f 72 74 20 69 73 20 74  .  A report is t
00c0: 68 65 6e 20 67 65 6e 65 72 61 74 65 64 20 77 68  hen generated wh
00d0: 65 6e 20 64 6f 6e 65 20 61 6c 6f 6e 67 20 77 69  en done along wi
00e0: 74 68 20 61 6e 20 65 72 72 6f 72 20 6c 6f 67 2e  th an error log.
00f0: 20 53 63 72 69 70 74 73 20 61 63 63 65 70 74 73   Scripts accepts
0100: 20 70 69 70 65 6c 69 6e 67 20 69 6e 70 75 74 20   pipeling input 
0110: 66 6f 72 20 74 68 65 20 63 6f 6d 70 75 74 65 72  for the computer
0120: 2f 73 2e 20 49 66 20 61 6e 79 20 65 72 72 6f 72  /s. If any error
0130: 73 20 61 72 65 20 65 6e 63 6f 75 6e 74 65 72 65  s are encountere
0140: 64 2c 20 61 20 6c 6f 67 20 77 69 6c 6c 20 62 65  d, a log will be
0150: 20 67 65 6e 65 72 61 74 65 64 20 61 73 20 77 65   generated as we
0160: 6c 6c 2e 0d 0a 23 20 76 65 72 73 69 6f 6e 3a 20  ll...# version: 
0170: 31 2e 30 0d 0a 23 20 74 79 70 65 3a 20 66 75 6e  1.0..# type: fun
0180: 63 74 69 6f 6e 0d 0a 23 20 61 75 74 68 6f 72 3a  ction..# author:
0190: 20 67 65 72 61 6c 64 6f 0d 0a 23 20 6c 69 63 65   geraldo..# lice
01a0: 6e 73 65 3a 20 43 43 30 0d 0a 23 20 66 75 6e 63  nse: CC0..# func
01b0: 74 69 6f 6e 3a 20 53 65 74 2d 50 61 73 73 77 6f  tion: Set-Passwo
01c0: 72 64 0d 0a 23 20 78 2d 70 6f 73 68 63 6f 64 65  rd..# x-poshcode
01d0: 2d 69 64 3a 20 32 33 39 36 0d 0a 23 20 78 2d 61  -id: 2396..# x-a
01e0: 72 63 68 69 76 65 64 3a 20 32 30 31 30 2d 31 32  rchived: 2010-12
01f0: 2d 31 30 54 32 32 3a 31 30 3a 31 39 0d 0a 23 0d  -10T22:10:19..#.
0200: 0a 23 0d 0a 46 75 6e 63 74 69 6f 6e 20 53 65 74  .#..Function Set
0210: 2d 50 61 73 73 77 6f 72 64 20 7b 0d 0a 23 72 65  -Password {..#re
0220: 71 75 69 72 65 73 20 2d 76 65 72 73 69 6f 6e 20  quires -version 
0230: 32 2e 30 0d 0a 0d 0a 3c 23 0d 0a 2e 53 79 6e 6f  2.0....<#...Syno
0240: 70 73 69 73 0d 0a 20 20 20 20 41 6c 6c 6f 77 73  psis..    Allows
0250: 20 74 68 65 20 63 68 61 6e 67 69 6e 67 20 6f 66   the changing of
0260: 20 74 68 65 20 6c 6f 63 61 6c 20 61 63 63 6f 75   the local accou
0270: 6e 74 20 70 61 73 73 77 6f 72 64 20 6f 6e 20 61  nt password on a
0280: 20 6c 6f 63 61 6c 20 6f 72 20 72 65 6d 6f 74 65   local or remote
0290: 20 6d 61 63 68 69 6e 65 2e 0d 0a 2e 44 65 73 63   machine....Desc
02a0: 72 69 70 74 69 6f 6e 0d 0a 20 20 20 20 41 6c 6c  ription..    All
02b0: 6f 77 73 20 74 68 65 20 63 68 61 6e 67 69 6e 67  ows the changing
02c0: 20 6f 66 20 74 68 65 20 6c 6f 63 61 6c 20 61 63   of the local ac
02d0: 63 6f 75 6e 74 20 70 61 73 73 77 6f 72 64 20 6f  count password o
02e0: 6e 20 61 20 6c 6f 63 61 6c 20 6f 72 20 72 65 6d  n a local or rem
02f0: 6f 74 65 20 6d 61 63 68 69 6e 65 2e 0d 0a 2e 50  ote machine....P
0300: 61 72 61 6d 65 74 65 72 20 63 6f 6d 70 75 74 65  arameter compute
0310: 72 0d 0a 20 20 20 20 43 6f 6d 70 75 74 65 72 20  r..    Computer 
0320: 74 68 61 74 20 74 68 65 20 70 61 73 73 77 6f 72  that the passwor
0330: 64 20 77 69 6c 6c 20 62 65 20 63 68 61 6e 67 65  d will be change
0340: 64 20 6f 6e 2e 20 20 53 75 70 70 6f 72 74 73 20  d on.  Supports 
0350: 61 20 73 69 6e 67 6c 65 20 63 6f 6d 70 75 74 65  a single compute
0360: 72 20 6f 72 20 63 6f 6c 6c 65 63 74 69 6f 6e 20  r or collection 
0370: 6f 66 20 63 6f 6d 70 75 74 65 72 73 20 61 6e 64  of computers and
0380: 20 63 61 6e 20 62 65 20 70 72 6f 63 65 73 73 65   can be processe
0390: 64 20 0d 0a 20 20 20 20 74 68 72 6f 75 67 68 20  d ..    through 
03a0: 74 68 65 20 70 69 70 65 6c 69 6e 65 2e 0d 0a 2e  the pipeline....
03b0: 50 61 72 61 6d 65 74 65 72 20 75 73 65 72 0d 0a  Parameter user..
03c0: 20 20 20 20 41 63 63 6f 75 6e 74 20 74 68 61 74      Account that
03d0: 20 77 69 6c 6c 20 68 61 76 65 20 74 68 65 20 70   will have the p
03e0: 61 73 73 77 6f 72 64 20 63 68 61 6e 67 65 64 2e  assword changed.
03f0: 20 20 20 20 0d 0a 2e 45 78 61 6d 70 6c 65 0d 0a      ...Example..
0400: 20 20 20 20 53 65 74 2d 50 61 73 73 77 6f 72 64      Set-Password
0410: 20 2d 63 6f 6d 70 75 74 65 72 20 27 73 65 72 76   -computer 'serv
0420: 65 72 27 20 2d 75 73 65 72 20 27 41 64 6d 69 6e  er' -user 'Admin
0430: 69 73 74 72 61 74 6f 72 27 0d 0a 20 20 20 20 0d  istrator'..    .
0440: 0a 20 20 20 20 55 73 65 72 20 77 69 6c 6c 20 62  .    User will b
0450: 65 20 70 72 6f 6d 70 74 65 64 20 74 6f 20 74 79  e prompted to ty
0460: 70 65 20 69 6e 20 74 68 65 20 70 61 73 73 77 6f  pe in the passwo
0470: 72 64 20 66 6f 72 20 41 64 6d 69 6e 69 73 74 72  rd for Administr
0480: 61 74 6f 72 20 70 72 69 6f 72 20 74 6f 20 62 65  ator prior to be
0490: 69 6e 67 20 63 68 61 6e 67 65 64 20 6f 6e 20 27  ing changed on '
04a0: 73 65 72 76 65 72 27 20 20 0d 0a 2e 45 78 61 6d  server'  ...Exam
04b0: 70 6c 65 0d 0a 20 20 20 20 53 65 74 2d 50 61 73  ple..    Set-Pas
04c0: 73 77 6f 72 64 20 2d 63 6f 6d 70 75 74 65 72 20  sword -computer 
04d0: 40 28 27 73 65 72 76 65 72 27 2c 27 73 65 72 76  @('server','serv
04e0: 65 72 32 27 29 20 2d 75 73 65 72 20 27 41 64 6d  er2') -user 'Adm
04f0: 69 6e 69 73 74 72 61 74 6f 72 27 0d 0a 20 20 20  inistrator'..   
0500: 20 0d 0a 20 20 20 20 55 73 65 72 20 77 69 6c 6c   ..    User will
0510: 20 62 65 20 70 72 6f 6d 70 74 65 64 20 74 6f 20   be prompted to 
0520: 74 79 70 65 20 69 6e 20 74 68 65 20 70 61 73 73  type in the pass
0530: 77 6f 72 64 20 66 6f 72 20 41 64 6d 69 6e 69 73  word for Adminis
0540: 74 72 61 74 6f 72 20 70 72 69 6f 72 20 74 6f 20  trator prior to 
0550: 62 65 69 6e 67 20 63 68 61 6e 67 65 64 20 6f 6e  being changed on
0560: 20 27 73 65 72 76 65 72 27 20 61 6e 64 20 27 73   'server' and 's
0570: 65 72 76 65 72 32 27 0d 0a 2e 45 78 61 6d 70 6c  erver2'...Exampl
0580: 65 0d 0a 20 20 20 20 40 28 27 73 65 72 76 65 72  e..    @('server
0590: 27 2c 27 73 65 72 76 65 72 32 27 29 20 7c 20 53  ','server2') | S
05a0: 65 74 2d 50 61 73 73 77 6f 72 64 20 2d 75 73 65  et-Password -use
05b0: 72 20 27 41 64 6d 69 6e 69 73 74 72 61 74 6f 72  r 'Administrator
05c0: 27 0d 0a 20 20 20 20 0d 0a 20 20 20 20 55 73 65  '..    ..    Use
05d0: 72 20 77 69 6c 6c 20 62 65 20 70 72 6f 6d 70 74  r will be prompt
05e0: 65 64 20 74 6f 20 74 79 70 65 20 69 6e 20 74 68  ed to type in th
05f0: 65 20 70 61 73 73 77 6f 72 64 20 66 6f 72 20 41  e password for A
0600: 64 6d 69 6e 69 73 74 72 61 74 6f 72 20 70 72 69  dministrator pri
0610: 6f 72 20 74 6f 20 62 65 69 6e 67 20 63 68 61 6e  or to being chan
0620: 67 65 64 20 6f 6e 20 27 73 65 72 76 65 72 27 20  ged on 'server' 
0630: 61 6e 64 20 27 73 65 72 76 65 72 32 27 20 20 20  and 'server2'   
0640: 0d 0a 2e 45 78 61 6d 70 6c 65 0d 0a 20 20 20 20  ...Example..    
0650: 53 65 74 2d 50 61 73 73 77 6f 72 64 20 2d 63 6f  Set-Password -co
0660: 6d 70 75 74 65 72 20 28 47 65 74 2d 43 6f 6e 74  mputer (Get-Cont
0670: 65 6e 74 20 68 6f 73 74 73 2e 74 78 74 29 20 2d  ent hosts.txt) -
0680: 75 73 65 72 20 27 41 64 6d 69 6e 69 73 74 72 61  user 'Administra
0690: 74 6f 72 27 0d 0a 20 20 20 20 0d 0a 20 20 20 20  tor'..    ..    
06a0: 55 73 65 72 20 77 69 6c 6c 20 62 65 20 70 72 6f  User will be pro
06b0: 6d 70 74 65 64 20 74 6f 20 74 79 70 65 20 69 6e  mpted to type in
06c0: 20 74 68 65 20 70 61 73 73 77 6f 72 64 20 66 6f   the password fo
06d0: 72 20 41 64 6d 69 6e 69 73 74 72 61 74 6f 72 20  r Administrator 
06e0: 70 72 69 6f 72 20 74 6f 20 62 65 69 6e 67 20 63  prior to being c
06f0: 68 61 6e 67 65 64 20 6f 6e 20 27 73 65 72 76 65  hanged on 'serve
0700: 72 27 20 61 6e 64 20 27 73 65 72 76 65 72 32 27  r' and 'server2'
0710: 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20         ..       
0720: 20 0d 0a 2e 49 6e 70 75 74 73 0d 0a 20 20 20 20   ...Inputs..    
0730: 4e 6f 6e 65 0d 0a 2e 4f 75 74 70 75 74 73 0d 0a  None...Outputs..
0740: 20 20 20 20 4e 6f 6e 65 0d 0a 2e 4c 69 6e 6b 0d      None...Link.
0750: 0a 20 20 20 68 74 74 70 3a 2f 2f 62 6f 65 70 72  .   http://boepr
0760: 6f 78 2e 77 6f 72 64 70 72 65 73 73 2e 63 6f 6d  ox.wordpress.com
0770: 0d 0a 0d 0a 2e 4e 6f 74 65 73 0d 0a 20 4e 41 4d  .....Notes.. NAM
0780: 45 3a 20 20 20 20 20 20 53 65 74 2d 50 61 73 73  E:      Set-Pass
0790: 77 6f 72 64 0d 0a 20 56 45 52 53 49 4f 4e 3a 20  word.. VERSION: 
07a0: 20 20 31 2e 30 0d 0a 20 41 55 54 48 4f 52 3a 20    1.0.. AUTHOR: 
07b0: 20 20 20 42 6f 65 20 50 72 6f 78 0d 0a 20 44 61     Boe Prox.. Da
07c0: 74 65 3a 20 20 20 20 20 20 32 36 20 41 75 67 75  te:      26 Augu
07d0: 73 74 20 32 30 31 30 0d 0a 0d 0a 23 3e 0d 0a 0d  st 2010....#>...
07e0: 0a 5b 43 6d 64 6c 65 74 42 69 6e 64 69 6e 67 28  .[CmdletBinding(
07f0: 0d 0a 20 20 20 20 53 75 70 70 6f 72 74 73 53 68  ..    SupportsSh
0800: 6f 75 6c 64 50 72 6f 63 65 73 73 20 3d 20 24 54  ouldProcess = $T
0810: 72 75 65 2c 0d 0a 20 20 20 20 43 6f 6e 66 69 72  rue,..    Confir
0820: 6d 49 6d 70 61 63 74 20 3d 20 27 6c 6f 77 27 2c  mImpact = 'low',
0830: 0d 0a 09 44 65 66 61 75 6c 74 50 61 72 61 6d 65  ...DefaultParame
0840: 74 65 72 53 65 74 4e 61 6d 65 20 3d 20 27 73 65  terSetName = 'se
0850: 72 76 65 72 27 0d 0a 20 20 20 20 29 5d 0d 0a 50  rver'..    )]..P
0860: 61 72 61 6d 20 28 20 20 20 20 0d 0a 20 20 20 20  aram (    ..    
0870: 5b 50 61 72 61 6d 65 74 65 72 28 0d 0a 20 20 20  [Parameter(..   
0880: 20 20 56 61 6c 75 65 46 72 6f 6d 50 69 70 65 6c    ValueFromPipel
0890: 69 6e 65 3d 24 54 72 75 65 2c 0d 0a 20 20 20 20  ine=$True,..    
08a0: 20 50 6f 73 69 74 69 6f 6e 3d 30 2c 0d 0a 20 20   Position=0,..  
08b0: 20 20 20 4d 61 6e 64 61 74 6f 72 79 3d 24 54 72     Mandatory=$Tr
08c0: 75 65 2c 0d 0a 20 20 20 20 20 48 65 6c 70 4d 65  ue,..     HelpMe
08d0: 73 73 61 67 65 3d 22 4c 69 73 74 20 6f 66 20 73  ssage="List of s
08e0: 65 72 76 65 72 73 22 29 5d 0d 0a 20 20 20 20 20  ervers")]..     
08f0: 5b 56 61 6c 69 64 61 74 65 4e 6f 74 4e 75 6c 6c  [ValidateNotNull
0900: 4f 72 45 6d 70 74 79 28 29 5d 0d 0a 20 20 20 20  OrEmpty()]..    
0910: 5b 61 72 72 61 79 5d 24 63 6f 6d 70 75 74 65 72  [array]$computer
0920: 2c 0d 0a 20 20 20 20 5b 50 61 72 61 6d 65 74 65  ,..    [Paramete
0930: 72 28 0d 0a 20 20 20 20 20 56 61 6c 75 65 46 72  r(..     ValueFr
0940: 6f 6d 50 69 70 65 6c 69 6e 65 3d 24 46 61 6c 73  omPipeline=$Fals
0950: 65 2c 0d 0a 20 20 20 20 20 50 6f 73 69 74 69 6f  e,..     Positio
0960: 6e 3d 31 2c 0d 0a 20 20 20 20 20 4d 61 6e 64 61  n=1,..     Manda
0970: 74 6f 72 79 3d 24 54 72 75 65 2c 0d 0a 20 20 20  tory=$True,..   
0980: 20 20 48 65 6c 70 4d 65 73 73 61 67 65 3d 22 41    HelpMessage="A
0990: 63 63 6f 75 6e 74 20 74 6f 20 63 68 61 6e 67 65  ccount to change
09a0: 20 70 61 73 73 77 6f 72 64 22 29 5d 0d 0a 20 20   password")]..  
09b0: 20 20 20 5b 56 61 6c 69 64 61 74 65 4e 6f 74 4e     [ValidateNotN
09c0: 75 6c 6c 4f 72 45 6d 70 74 79 28 29 5d 0d 0a 20  ullOrEmpty()].. 
09d0: 20 20 20 5b 73 74 72 69 6e 67 5d 24 75 73 65 72     [string]$user
09e0: 20 20 20 20 0d 0a 20 20 20 20 29 0d 0a 42 65 67      ..    )..Beg
09f0: 69 6e 20 7b 0d 0a 20 20 20 20 57 72 69 74 65 2d  in {..    Write-
0a00: 56 65 72 62 6f 73 65 20 22 42 75 69 6c 64 69 6e  Verbose "Buildin
0a10: 67 20 63 6f 6e 74 61 69 6e 65 72 20 66 6f 72 20  g container for 
0a20: 72 65 70 6f 72 74 22 0d 0a 20 20 20 20 24 61 72  report"..    $ar
0a30: 72 6c 69 73 74 20 3d 20 40 28 29 0d 0a 20 20 20  rlist = @()..   
0a40: 20 57 72 69 74 65 2d 56 65 72 62 6f 73 65 20 22   Write-Verbose "
0a50: 50 72 6f 6d 70 74 69 6e 67 20 66 6f 72 20 70 61  Prompting for pa
0a60: 73 73 77 6f 72 64 22 0d 0a 20 20 20 20 24 70 61  ssword"..    $pa
0a70: 73 73 77 6f 72 64 20 3d 20 52 65 61 64 2d 48 6f  ssword = Read-Ho
0a80: 73 74 20 22 54 79 70 65 20 70 61 73 73 77 6f 72  st "Type passwor
0a90: 64 20 2d 2d 20 56 45 52 49 46 59 20 42 45 46 4f  d -- VERIFY BEFO
0aa0: 52 45 20 43 4c 49 43 4b 49 4e 47 20 52 45 54 55  RE CLICKING RETU
0ab0: 52 4e 21 21 21 22 0d 0a 20 20 20 20 57 72 69 74  RN!!!"..    Writ
0ac0: 65 2d 56 65 72 62 6f 73 65 20 22 43 68 65 63 6b  e-Verbose "Check
0ad0: 69 6e 67 20 66 6f 72 20 65 78 69 73 74 65 6e 63  ing for existenc
0ae0: 65 20 6f 66 20 65 72 72 6f 72 20 6c 6f 67 20 61  e of error log a
0af0: 6e 64 20 63 6c 65 61 72 69 6e 67 20 63 6f 6e 74  nd clearing cont
0b00: 65 6e 74 73 22 0d 0a 20 20 20 20 24 65 72 72 6f  ents"..    $erro
0b10: 72 6c 6f 67 20 3d 20 22 70 61 73 73 77 6f 72 64  rlog = "password
0b20: 63 68 61 6e 67 65 65 72 72 6f 72 73 2e 74 78 74  changeerrors.txt
0b30: 22 0d 0a 20 20 20 20 49 66 20 28 5b 73 79 73 74  "..    If ([syst
0b40: 65 6d 2e 69 6f 2e 66 69 6c 65 5d 3a 3a 65 78 69  em.io.file]::exi
0b50: 73 74 73 28 24 65 72 72 6f 72 6c 6f 67 29 29 20  sts($errorlog)) 
0b60: 7b 0d 0a 20 20 20 20 20 20 20 20 43 6c 65 61 72  {..        Clear
0b70: 2d 63 6f 6e 74 65 6e 74 20 24 65 72 72 6f 72 6c  -content $errorl
0b80: 6f 67 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20  og..        }.. 
0b90: 20 20 20 7d 0d 0a 50 72 6f 63 65 73 73 20 7b 0d     }..Process {.
0ba0: 0a 20 20 20 20 23 49 74 65 72 61 74 65 20 74 68  .    #Iterate th
0bb0: 72 6f 75 67 68 20 63 6f 6d 70 75 74 65 72 20 6c  rough computer l
0bc0: 69 73 74 0d 0a 20 20 20 20 46 6f 72 45 61 63 68  ist..    ForEach
0bd0: 20 28 24 63 20 69 6e 20 24 63 6f 6d 70 75 74 65   ($c in $compute
0be0: 72 29 20 7b 0d 0a 20 20 20 20 20 20 20 20 24 74  r) {..        $t
0bf0: 65 6d 70 20 3d 20 4e 65 77 2d 4f 62 6a 65 63 74  emp = New-Object
0c00: 20 50 53 6f 62 6a 65 63 74 0d 0a 20 20 20 20 20   PSobject..     
0c10: 20 20 20 54 72 79 20 7b 0d 0a 20 20 20 20 20 20     Try {..      
0c20: 20 20 20 20 20 20 57 72 69 74 65 2d 56 65 72 62        Write-Verb
0c30: 6f 73 65 20 22 54 65 73 74 69 6e 67 20 43 6f 6e  ose "Testing Con
0c40: 6e 65 63 74 69 6f 6e 20 74 6f 20 24 28 24 63 29  nection to $($c)
0c50: 22 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 54  "..            T
0c60: 65 73 74 2d 43 6f 6e 6e 65 63 74 69 6f 6e 20 2d  est-Connection -
0c70: 63 6f 6d 70 20 24 63 20 2d 63 6f 75 6e 74 20 31  comp $c -count 1
0c80: 20 2d 65 61 20 73 74 6f 70 20 7c 20 6f 75 74 2d   -ea stop | out-
0c90: 6e 75 6c 6c 0d 0a 20 20 20 20 20 20 20 20 20 20  null..          
0ca0: 20 20 23 56 65 72 69 66 79 20 61 63 63 6f 75 6e    #Verify accoun
0cb0: 74 20 65 78 69 73 74 73 20 62 65 66 6f 72 65 20  t exists before 
0cc0: 61 74 74 65 6d 70 74 69 6e 67 20 70 61 73 73 77  attempting passw
0cd0: 6f 72 64 20 63 68 61 6e 67 65 0d 0a 20 20 20 20  ord change..    
0ce0: 20 20 20 20 20 20 20 20 57 72 69 74 65 2d 56 65          Write-Ve
0cf0: 72 62 6f 73 65 20 22 56 65 72 69 66 79 69 6e 67  rbose "Verifying
0d00: 20 74 68 61 74 20 24 28 24 75 73 65 72 29 20 65   that $($user) e
0d10: 78 69 73 74 73 20 6f 6e 20 24 28 24 63 6f 6d 70  xists on $($comp
0d20: 75 74 65 72 29 22 0d 0a 20 20 20 20 20 20 20 20  uter)"..        
0d30: 20 20 20 20 24 63 6f 6c 75 73 65 72 73 20 3d 20      $colusers = 
0d40: 28 5b 41 44 53 49 5d 28 22 57 69 6e 4e 54 3a 2f  ([ADSI]("WinNT:/
0d50: 2f 24 63 2c 63 6f 6d 70 75 74 65 72 22 29 29 2e  /$c,computer")).
0d60: 63 68 69 6c 64 72 65 6e 20 7c 20 3f 20 7b 24 5f  children | ? {$_
0d70: 2e 70 73 62 61 73 65 2e 73 63 68 65 6d 61 43 6c  .psbase.schemaCl
0d80: 61 73 73 4e 61 6d 65 20 2d 65 71 20 22 55 73 65  assName -eq "Use
0d90: 72 22 7d 20 7c 20 53 65 6c 65 63 74 20 2d 65 78  r"} | Select -ex
0da0: 70 61 6e 64 20 4e 61 6d 65 0d 0a 20 20 20 20 20  pand Name..     
0db0: 20 20 20 20 20 20 20 49 66 20 28 24 63 6f 6c 75         If ($colu
0dc0: 73 65 72 73 20 2d 63 6f 6e 74 61 69 6e 73 20 24  sers -contains $
0dd0: 75 73 65 72 29 20 7b 0d 0a 20 20 20 20 20 20 20  user) {..       
0de0: 20 20 20 20 20 20 20 20 20 57 72 69 74 65 2d 48           Write-H
0df0: 6f 73 74 20 2d 66 6f 72 65 67 72 6f 75 6e 64 63  ost -foregroundc
0e00: 6f 6c 6f 72 20 47 72 65 65 6e 20 22 43 68 61 6e  olor Green "Chan
0e10: 67 69 6e 67 20 70 61 73 73 77 6f 72 64 20 6f 6e  ging password on
0e20: 20 24 63 2e 2e 2e 22 0d 0a 20 20 20 20 20 20 20   $c..."..       
0e30: 20 20 20 20 20 20 20 20 20 24 45 72 72 6f 72 41           $ErrorA
0e40: 63 74 69 6f 6e 50 72 65 66 65 72 65 6e 63 65 20  ctionPreference 
0e50: 3d 20 27 73 74 6f 70 27 0d 0a 20 20 20 20 20 20  = 'stop'..      
0e60: 20 20 20 20 20 20 20 20 20 20 54 72 79 20 7b 0d            Try {.
0e70: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0e80: 20 20 20 20 20 23 4d 61 6b 65 20 63 6f 6e 6e 65       #Make conne
0e90: 63 74 69 6f 6e 20 74 6f 20 72 65 6d 6f 74 65 2f  ction to remote/
0ea0: 6c 6f 63 61 6c 20 63 6f 6d 70 75 74 65 72 20 61  local computer a
0eb0: 6e 64 20 75 73 65 72 20 61 63 63 6f 75 6e 74 0d  nd user account.
0ec0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
0ed0: 20 20 20 20 20 24 61 63 63 6f 75 6e 74 20 3d 20       $account = 
0ee0: 5b 61 64 73 69 5d 28 22 57 69 6e 4e 54 3a 2f 2f  [adsi]("WinNT://
0ef0: 22 2b 24 63 2b 22 2f 24 75 73 65 72 2c 20 75 73  "+$c+"/$user, us
0f00: 65 72 22 29 0d 0a 20 20 20 20 20 20 20 20 20 20  er")..          
0f10: 20 20 20 20 20 20 20 20 20 20 23 43 68 61 6e 67            #Chang
0f20: 65 20 70 61 73 73 77 6f 72 64 20 6f 6e 20 75 73  e password on us
0f30: 65 72 20 61 63 63 6f 75 6e 74 0d 0a 20 20 20 20  er account..    
0f40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f50: 49 66 20 28 24 70 73 63 6d 64 6c 65 74 2e 53 68  If ($pscmdlet.Sh
0f60: 6f 75 6c 64 50 72 6f 63 65 73 73 28 24 28 24 75  ouldProcess($($u
0f70: 73 65 72 29 29 29 20 7b 0d 0a 20 20 20 20 20 20  ser))) {..      
0f80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
0f90: 20 20 24 61 63 63 6f 75 6e 74 2e 70 73 62 61 73    $account.psbas
0fa0: 65 2e 69 6e 76 6f 6b 65 28 22 53 65 74 50 61 73  e.invoke("SetPas
0fb0: 73 77 6f 72 64 22 2c 20 24 70 61 73 73 77 6f 72  sword", $passwor
0fc0: 64 29 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  d)..            
0fd0: 20 20 20 20 20 20 20 20 20 20 20 20 24 61 63 63              $acc
0fe0: 6f 75 6e 74 2e 70 73 62 61 73 65 2e 43 6f 6d 6d  ount.psbase.Comm
0ff0: 69 74 43 68 61 6e 67 65 73 28 29 0d 0a 20 20 20  itChanges()..   
1000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1010: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
1020: 20 20 20 20 20 20 20 20 20 20 20 20 57 72 69 74              Writ
1030: 65 2d 56 65 72 62 6f 73 65 20 22 41 64 64 69 6e  e-Verbose "Addin
1040: 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f  g information to
1050: 20 72 65 70 6f 72 74 22 20 20 20 20 0d 0a 20 20   report"    ..  
1060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1070: 20 20 24 74 65 6d 70 20 7c 20 41 64 64 2d 4d 65    $temp | Add-Me
1080: 6d 62 65 72 20 4e 6f 74 65 50 72 6f 70 65 72 74  mber NotePropert
1090: 79 20 54 69 6d 65 53 74 61 6d 70 20 22 24 28 67  y TimeStamp "$(g
10a0: 65 74 2d 64 61 74 65 29 22 20 20 20 20 20 20 20  et-date)"       
10b0: 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20              ..  
10c0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
10d0: 20 20 24 74 65 6d 70 20 7c 20 41 64 64 2d 4d 65    $temp | Add-Me
10e0: 6d 62 65 72 20 4e 6f 74 65 50 72 6f 70 65 72 74  mber NotePropert
10f0: 79 20 53 65 72 76 65 72 20 24 63 0d 0a 20 20 20  y Server $c..   
1100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1110: 20 24 74 65 6d 70 20 7c 20 41 64 64 2d 4d 65 6d   $temp | Add-Mem
1120: 62 65 72 20 4e 6f 74 65 50 72 6f 70 65 72 74 79  ber NoteProperty
1130: 20 41 63 63 6f 75 6e 74 20 24 75 73 65 72 0d 0a   Account $user..
1140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1150: 20 20 20 20 24 74 65 6d 70 20 7c 20 41 64 64 2d      $temp | Add-
1160: 4d 65 6d 62 65 72 20 4e 6f 74 65 50 72 6f 70 65  Member NotePrope
1170: 72 74 79 20 53 74 61 74 75 73 20 22 50 61 73 73  rty Status "Pass
1180: 77 6f 72 64 20 43 68 61 6e 67 65 64 22 20 20 20  word Changed"   
1190: 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   ..             
11a0: 20 20 20 20 20 20 20 24 74 65 6d 70 20 7c 20 41         $temp | A
11b0: 64 64 2d 4d 65 6d 62 65 72 20 4e 6f 74 65 50 72  dd-Member NotePr
11c0: 6f 70 65 72 74 79 20 4e 6f 74 65 73 20 22 22 0d  operty Notes "".
11d0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
11e0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
11f0: 20 20 20 20 20 20 20 20 43 61 74 63 68 20 7b 0d          Catch {.
1200: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1210: 20 20 20 20 20 24 65 72 72 6f 72 66 6c 61 67 20       $errorflag 
1220: 3d 20 24 54 72 75 65 0d 0a 20 20 20 20 20 20 20  = $True..       
1230: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 72 69               Wri
1240: 74 65 2d 56 65 72 62 6f 73 65 20 22 57 72 69 74  te-Verbose "Writ
1250: 69 6e 67 20 65 72 72 6f 72 73 20 74 6f 20 24 28  ing errors to $(
1260: 24 65 72 72 6f 72 6c 6f 67 29 22 0d 0a 20 20 20  $errorlog)"..   
1270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1280: 20 22 24 28 67 65 74 2d 64 61 74 65 29 20 3a 3a   "$(get-date) ::
1290: 20 53 65 72 76 65 72 3a 24 28 24 63 29 20 3a 3a   Server:$($c) ::
12a0: 20 24 28 24 65 72 72 6f 72 5b 30 5d 2e 65 78 63   $($error[0].exc
12b0: 65 70 74 69 6f 6e 29 22 20 7c 20 4f 75 74 2d 46  eption)" | Out-F
12c0: 69 6c 65 20 2d 61 70 70 65 6e 64 20 24 65 72 72  ile -append $err
12d0: 6f 72 6c 6f 67 20 0d 0a 20 20 20 20 20 20 20 20  orlog ..        
12e0: 20 20 20 20 20 20 20 20 20 20 20 20 57 72 69 74              Writ
12f0: 65 2d 56 65 72 62 6f 73 65 20 22 41 64 64 69 6e  e-Verbose "Addin
1300: 67 20 69 6e 66 6f 72 6d 61 74 69 6f 6e 20 74 6f  g information to
1310: 20 72 65 70 6f 72 74 22 20 20 20 20 20 20 20 20   report"        
1320: 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   ..             
1330: 20 20 20 20 20 20 20 24 74 65 6d 70 20 7c 20 41         $temp | A
1340: 64 64 2d 4d 65 6d 62 65 72 20 4e 6f 74 65 50 72  dd-Member NotePr
1350: 6f 70 65 72 74 79 20 54 69 6d 65 53 74 61 6d 70  operty TimeStamp
1360: 20 22 24 28 67 65 74 2d 64 61 74 65 29 22 20 0d   "$(get-date)" .
1370: 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20  .               
1380: 20 20 20 20 20 24 74 65 6d 70 20 7c 20 41 64 64       $temp | Add
1390: 2d 4d 65 6d 62 65 72 20 4e 6f 74 65 50 72 6f 70  -Member NoteProp
13a0: 65 72 74 79 20 53 65 72 76 65 72 20 24 63 0d 0a  erty Server $c..
13b0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
13c0: 20 20 20 20 24 74 65 6d 70 20 7c 20 41 64 64 2d      $temp | Add-
13d0: 4d 65 6d 62 65 72 20 4e 6f 74 65 50 72 6f 70 65  Member NotePrope
13e0: 72 74 79 20 41 63 63 6f 75 6e 74 20 24 75 73 65  rty Account $use
13f0: 72 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20  r..             
1400: 20 20 20 20 20 20 20 24 74 65 6d 70 20 7c 20 41         $temp | A
1410: 64 64 2d 4d 65 6d 62 65 72 20 4e 6f 74 65 50 72  dd-Member NotePr
1420: 6f 70 65 72 74 79 20 53 74 61 74 75 73 20 22 45  operty Status "E
1430: 72 72 6f 72 20 43 68 61 6e 67 69 6e 67 20 50 61  rror Changing Pa
1440: 73 73 77 6f 72 64 22 0d 0a 20 20 20 20 20 20 20  ssword"..       
1450: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 74 65               $te
1460: 6d 70 20 7c 20 41 64 64 2d 4d 65 6d 62 65 72 20  mp | Add-Member 
1470: 4e 6f 74 65 50 72 6f 70 65 72 74 79 20 4e 6f 74  NoteProperty Not
1480: 65 73 20 24 65 72 72 6f 72 5b 30 5d 20 20 20 20  es $error[0]    
1490: 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20              ..  
14a0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
14b0: 20 20 7d 0d 0a 20 20 20 20 20 20 20 20 20 20 20    }..           
14c0: 20 20 20 20 20 7d 0d 0a 20 20 20 20 20 20 20 20       }..        
14d0: 45 6c 73 65 20 7b 0d 0a 20 20 20 20 20 20 20 20  Else {..        
14e0: 20 20 20 20 24 65 72 72 6f 72 66 6c 61 67 20 3d      $errorflag =
14f0: 20 24 54 72 75 65 0d 0a 20 20 20 20 20 20 20 20   $True..        
1500: 20 20 20 20 57 72 69 74 65 2d 56 65 72 62 6f 73      Write-Verbos
1510: 65 20 22 57 72 69 74 69 6e 67 20 65 72 72 6f 72  e "Writing error
1520: 73 20 74 6f 20 24 28 24 65 72 72 6f 72 6c 6f 67  s to $($errorlog
1530: 29 22 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  )"..            
1540: 22 24 28 67 65 74 2d 64 61 74 65 29 20 3a 3a 20  "$(get-date) :: 
1550: 53 65 72 76 65 72 3a 24 28 24 63 29 20 3a 3a 20  Server:$($c) :: 
1560: 24 28 24 75 73 65 72 29 20 64 6f 65 73 20 6e 6f  $($user) does no
1570: 74 20 65 78 69 73 74 21 29 22 20 7c 20 4f 75 74  t exist!)" | Out
1580: 2d 46 69 6c 65 20 2d 61 70 70 65 6e 64 20 20 24  -File -append  $
1590: 65 72 72 6f 72 6c 6f 67 0d 0a 20 20 20 20 20 20  errorlog..      
15a0: 20 20 20 20 20 20 57 72 69 74 65 2d 56 65 72 62        Write-Verb
15b0: 6f 73 65 20 22 41 64 64 69 6e 67 20 69 6e 66 6f  ose "Adding info
15c0: 72 6d 61 74 69 6f 6e 20 74 6f 20 72 65 70 6f 72  rmation to repor
15d0: 74 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20  t"              
15e0: 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20       ..         
15f0: 20 20 20 24 74 65 6d 70 20 7c 20 41 64 64 2d 4d     $temp | Add-M
1600: 65 6d 62 65 72 20 4e 6f 74 65 50 72 6f 70 65 72  ember NoteProper
1610: 74 79 20 54 69 6d 65 53 74 61 6d 70 20 22 24 28  ty TimeStamp "$(
1620: 67 65 74 2d 64 61 74 65 29 22 20 0d 0a 20 20 20  get-date)" ..   
1630: 20 20 20 20 20 20 20 20 20 24 74 65 6d 70 20 7c           $temp |
1640: 20 41 64 64 2d 4d 65 6d 62 65 72 20 4e 6f 74 65   Add-Member Note
1650: 50 72 6f 70 65 72 74 79 20 53 65 72 76 65 72 20  Property Server 
1660: 24 63 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  $c..            
1670: 24 74 65 6d 70 20 7c 20 41 64 64 2d 4d 65 6d 62  $temp | Add-Memb
1680: 65 72 20 4e 6f 74 65 50 72 6f 70 65 72 74 79 20  er NoteProperty 
1690: 41 63 63 6f 75 6e 74 20 24 75 73 65 72 0d 0a 20  Account $user.. 
16a0: 20 20 20 20 20 20 20 20 20 20 20 24 74 65 6d 70             $temp
16b0: 20 7c 20 41 64 64 2d 4d 65 6d 62 65 72 20 4e 6f   | Add-Member No
16c0: 74 65 50 72 6f 70 65 72 74 79 20 53 74 61 74 75  teProperty Statu
16d0: 73 20 22 55 6e 61 62 6c 65 20 74 6f 20 63 68 61  s "Unable to cha
16e0: 6e 67 65 20 70 61 73 73 77 6f 72 64 22 0d 0a 20  nge password".. 
16f0: 20 20 20 20 20 20 20 20 20 20 20 24 74 65 6d 70             $temp
1700: 20 7c 20 41 64 64 2d 4d 65 6d 62 65 72 20 4e 6f   | Add-Member No
1710: 74 65 50 72 6f 70 65 72 74 79 20 4e 6f 74 65 73  teProperty Notes
1720: 20 20 22 55 73 65 72 6e 61 6d 65 20 64 6f 65 73    "Username does
1730: 20 6e 6f 74 20 65 78 69 73 74 22 20 20 20 20 20   not exist"     
1740: 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20          ..      
1750: 20 20 20 20 20 20 7d 20 20 20 20 20 20 20 20 20        }         
1760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                  
1770: 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20             ..   
1780: 20 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20           }..    
1790: 20 20 20 20 43 61 74 63 68 20 7b 0d 0a 20 20 20      Catch {..   
17a0: 20 20 20 20 20 20 20 20 20 24 65 72 72 6f 72 66           $errorf
17b0: 6c 61 67 20 3d 20 24 54 72 75 65 0d 0a 20 20 20  lag = $True..   
17c0: 20 20 20 20 20 20 20 20 20 57 72 69 74 65 2d 56           Write-V
17d0: 65 72 62 6f 73 65 20 22 57 72 69 74 69 6e 67 20  erbose "Writing 
17e0: 65 72 72 6f 72 73 20 74 6f 20 24 28 24 65 72 72  errors to $($err
17f0: 6f 72 6c 6f 67 29 22 0d 0a 20 20 20 20 20 20 20  orlog)"..       
1800: 20 20 20 20 20 22 24 28 67 65 74 2d 64 61 74 65       "$(get-date
1810: 29 20 3a 3a 20 53 65 72 76 65 72 3a 24 28 24 63  ) :: Server:$($c
1820: 29 20 3a 3a 20 24 28 24 65 72 72 6f 72 5b 30 5d  ) :: $($error[0]
1830: 2e 65 78 63 65 70 74 69 6f 6e 29 22 20 7c 20 4f  .exception)" | O
1840: 75 74 2d 46 69 6c 65 20 2d 61 70 70 65 6e 64 20  ut-File -append 
1850: 20 24 65 72 72 6f 72 6c 6f 67 0d 0a 20 20 20 20   $errorlog..    
1860: 20 20 20 20 20 20 20 20 57 72 69 74 65 2d 56 65          Write-Ve
1870: 72 62 6f 73 65 20 22 41 64 64 69 6e 67 20 69 6e  rbose "Adding in
1880: 66 6f 72 6d 61 74 69 6f 6e 20 74 6f 20 72 65 70  formation to rep
1890: 6f 72 74 22 20 20 20 20 20 20 20 20 20 20 20 0d  ort"           .
18a0: 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 74 65  .            $te
18b0: 6d 70 20 7c 20 41 64 64 2d 4d 65 6d 62 65 72 20  mp | Add-Member 
18c0: 4e 6f 74 65 50 72 6f 70 65 72 74 79 20 54 69 6d  NoteProperty Tim
18d0: 65 53 74 61 6d 70 20 22 24 28 67 65 74 2d 64 61  eStamp "$(get-da
18e0: 74 65 29 22 20 20 20 20 20 20 20 20 20 20 20 20  te)"            
18f0: 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 24 74  ..            $t
1900: 65 6d 70 20 7c 20 41 64 64 2d 4d 65 6d 62 65 72  emp | Add-Member
1910: 20 4e 6f 74 65 50 72 6f 70 65 72 74 79 20 53 65   NoteProperty Se
1920: 72 76 65 72 20 24 63 0d 0a 20 20 20 20 20 20 20  rver $c..       
1930: 20 20 20 20 20 24 74 65 6d 70 20 7c 20 41 64 64       $temp | Add
1940: 2d 4d 65 6d 62 65 72 20 4e 6f 74 65 50 72 6f 70  -Member NoteProp
1950: 65 72 74 79 20 41 63 63 6f 75 6e 74 20 24 75 73  erty Account $us
1960: 65 72 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  er..            
1970: 24 74 65 6d 70 20 7c 20 41 64 64 2d 4d 65 6d 62  $temp | Add-Memb
1980: 65 72 20 4e 6f 74 65 50 72 6f 70 65 72 74 79 20  er NoteProperty 
1990: 53 74 61 74 75 73 20 22 45 72 72 6f 72 20 43 6f  Status "Error Co
19a0: 6e 6e 65 63 74 69 6e 67 20 74 6f 20 63 6f 6d 70  nnecting to comp
19b0: 75 74 65 72 22 0d 0a 20 20 20 20 20 20 20 20 20  uter"..         
19c0: 20 20 20 24 74 65 6d 70 20 7c 20 41 64 64 2d 4d     $temp | Add-M
19d0: 65 6d 62 65 72 20 4e 6f 74 65 50 72 6f 70 65 72  ember NoteProper
19e0: 74 79 20 4e 6f 74 65 73 20 24 65 72 72 6f 72 5b  ty Notes $error[
19f0: 30 5d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  0]..            
1a00: 7d 20 20 0d 0a 20 20 20 20 20 20 20 20 46 69 6e  }  ..        Fin
1a10: 61 6c 6c 79 20 7b 0d 0a 20 20 20 20 20 20 20 20  ally {..        
1a20: 20 20 20 20 23 4d 65 72 67 65 20 74 65 6d 70 20      #Merge temp 
1a30: 72 65 70 6f 72 74 20 77 69 74 68 20 6d 61 69 6e  report with main
1a40: 20 72 65 70 6f 72 74 0d 0a 20 20 20 20 20 20 20   report..       
1a50: 20 20 20 20 20 57 72 69 74 65 2d 56 65 72 62 6f       Write-Verbo
1a60: 73 65 20 22 4d 65 72 67 69 6e 67 20 72 65 70 6f  se "Merging repo
1a70: 72 74 22 0d 0a 20 20 20 20 20 20 20 20 20 20 20  rt"..           
1a80: 20 24 61 72 72 6c 69 73 74 20 2b 3d 20 24 74 65   $arrlist += $te
1a90: 6d 70 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20  mp..            
1aa0: 7d 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 7d  }    ..        }
1ab0: 0d 0a 20 20 20 20 7d 0d 0a 45 6e 64 20 7b 20 20  ..    }..End {  
1ac0: 0d 0a 20 20 20 20 23 47 65 6e 65 72 61 74 65 20  ..    #Generate 
1ad0: 72 65 70 6f 72 74 20 74 6f 20 73 63 72 65 65 6e  report to screen
1ae0: 0d 0a 20 20 20 20 57 72 69 74 65 2d 56 65 72 62  ..    Write-Verb
1af0: 6f 73 65 20 22 47 65 6e 65 72 61 74 69 6e 67 20  ose "Generating 
1b00: 72 65 70 6f 72 74 22 20 20 20 20 20 20 20 20 20  report"         
1b10: 20 0d 0a 20 20 20 20 24 61 72 72 6c 69 73 74 0d   ..    $arrlist.
1b20: 0a 20 20 20 20 49 66 20 28 24 65 72 72 6f 72 66  .    If ($errorf
1b30: 6c 61 67 29 20 7b 0d 0a 20 20 20 20 20 20 20 20  lag) {..        
1b40: 57 72 69 74 65 2d 48 6f 73 74 20 2d 66 6f 72 65  Write-Host -fore
1b50: 20 59 65 6c 6c 6f 77 20 22 45 72 72 6f 72 73 20   Yellow "Errors 
1b60: 77 65 72 65 20 72 65 70 6f 72 74 65 64 20 64 75  were reported du
1b70: 72 69 6e 67 20 72 75 6e 2c 20 70 6c 65 61 73 65  ring run, please
1b80: 20 6c 6f 6f 6b 20 61 74 20 24 28 24 70 77 64 29   look at $($pwd)
1b90: 5c 24 28 24 65 72 72 6f 72 6c 6f 67 29 20 66 6f  \$($errorlog) fo
1ba0: 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 22  r more details."
1bb0: 0d 0a 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20  ..        }..   
1bc0: 20 57 72 69 74 65 2d 56 65 72 62 6f 73 65 20 22   Write-Verbose "
1bd0: 52 65 6d 6f 76 69 6e 67 20 70 61 73 73 77 6f 72  Removing passwor
1be0: 64 20 66 72 6f 6d 20 76 61 72 69 61 62 6c 65 20  d from variable 
1bf0: 60 24 70 61 73 73 77 6f 72 64 22 20 20 20 20 0d  `$password"    .
1c00: 0a 20 20 20 20 24 70 61 73 73 77 6f 72 64 20 3d  .    $password =
1c10: 20 24 4e 75 6c 6c 20 20 20 20 20 20 20 20 0d 0a   $Null        ..
1c20: 20 20 20 20 7d 0d 0a 7d 0d 0a                        }..}..