PoshCode Archive  Hex Artifact Content

Artifact 19469679f8ee91000b3ef23e55b3fe34b630fad3ebcf11de2638669eb8b92bd0:

  • File env-PATH-permanently.ps1 — part of check-in [a5c69e2866] at 2018-06-10 13:27:16 on branch trunk — Add directory to Environment PATH variable permanently. Apply changes immediately without requiring reboot. (user: mnaoumov size: 1826)

0000: ef bb bf 23 20 65 6e 63 6f 64 69 6e 67 3a 20 75  ...# encoding: u
0010: 74 66 2d 38 0d 0a 23 20 61 70 69 3a 20 70 6f 77  tf-8..# api: pow
0020: 65 72 73 68 65 6c 6c 0d 0a 23 20 74 69 74 6c 65  ershell..# title
0030: 3a 20 24 65 6e 76 3a 50 41 54 48 20 70 65 72 6d  : $env:PATH perm
0040: 61 6e 65 6e 74 6c 79 0d 0a 23 20 64 65 73 63 72  anently..# descr
0050: 69 70 74 69 6f 6e 3a 20 41 64 64 20 64 69 72 65  iption: Add dire
0060: 63 74 6f 72 79 20 74 6f 20 45 6e 76 69 72 6f 6e  ctory to Environ
0070: 6d 65 6e 74 20 50 41 54 48 20 76 61 72 69 61 62  ment PATH variab
0080: 6c 65 20 70 65 72 6d 61 6e 65 6e 74 6c 79 2e 20  le permanently. 
0090: 41 70 70 6c 79 20 63 68 61 6e 67 65 73 20 69 6d  Apply changes im
00a0: 6d 65 64 69 61 74 65 6c 79 20 77 69 74 68 6f 75  mediately withou
00b0: 74 20 72 65 71 75 69 72 69 6e 67 20 72 65 62 6f  t requiring rebo
00c0: 6f 74 2e 0d 0a 23 20 76 65 72 73 69 6f 6e 3a 20  ot...# version: 
00d0: 30 2e 31 0d 0a 23 20 61 75 74 68 6f 72 3a 20 6d  0.1..# author: m
00e0: 6e 61 6f 75 6d 6f 76 0d 0a 23 20 6c 69 63 65 6e  naoumov..# licen
00f0: 73 65 3a 20 43 43 30 0d 0a 23 20 78 2d 70 6f 73  se: CC0..# x-pos
0100: 68 63 6f 64 65 2d 69 64 3a 20 33 35 33 37 0d 0a  hcode-id: 3537..
0110: 23 20 78 2d 61 72 63 68 69 76 65 64 3a 20 32 30  # x-archived: 20
0120: 31 34 2d 30 35 2d 31 33 54 32 30 3a 35 37 3a 32  14-05-13T20:57:2
0130: 34 0d 0a 23 20 78 2d 70 75 62 6c 69 73 68 65 64  4..# x-published
0140: 3a 20 32 30 31 34 2d 30 37 2d 32 33 54 31 38 3a  : 2014-07-23T18:
0150: 35 39 3a 30 30 0d 0a 23 0d 0a 23 0d 0a 23 72 65  59:00..#..#..#re
0160: 71 75 69 72 65 73 20 2d 76 65 72 73 69 6f 6e 20  quires -version 
0170: 32 0d 0a 0d 0a 70 61 72 61 6d 28 0d 0a 20 20 20  2....param(..   
0180: 20 5b 73 74 72 69 6e 67 5d 20 24 41 64 64 65 64   [string] $Added
0190: 46 6f 6c 64 65 72 2c 0d 0a 20 20 20 20 5b 62 6f  Folder,..    [bo
01a0: 6f 6c 5d 20 24 41 70 70 6c 79 49 6d 6d 65 64 69  ol] $ApplyImmedi
01b0: 61 74 65 6c 79 20 3d 20 24 74 72 75 65 0d 0a 29  ately = $true..)
01c0: 0d 0a 0d 0a 24 65 6e 76 69 72 6f 6e 6d 65 6e 74  ....$environment
01d0: 52 65 67 69 73 74 72 79 4b 65 79 20 3d 20 27 52  RegistryKey = 'R
01e0: 65 67 69 73 74 72 79 3a 3a 48 4b 45 59 5f 4c 4f  egistry::HKEY_LO
01f0: 43 41 4c 5f 4d 41 43 48 49 4e 45 5c 53 79 73 74  CAL_MACHINE\Syst
0200: 65 6d 5c 43 75 72 72 65 6e 74 43 6f 6e 74 72 6f  em\CurrentContro
0210: 6c 53 65 74 5c 43 6f 6e 74 72 6f 6c 5c 53 65 73  lSet\Control\Ses
0220: 73 69 6f 6e 20 4d 61 6e 61 67 65 72 5c 45 6e 76  sion Manager\Env
0230: 69 72 6f 6e 6d 65 6e 74 27 0d 0a 0d 0a 24 6f 6c  ironment'....$ol
0240: 64 50 61 74 68 20 3d 20 28 47 65 74 2d 49 74 65  dPath = (Get-Ite
0250: 6d 50 72 6f 70 65 72 74 79 20 2d 50 61 74 68 20  mProperty -Path 
0260: 24 65 6e 76 69 72 6f 6e 6d 65 6e 74 52 65 67 69  $environmentRegi
0270: 73 74 72 79 4b 65 79 20 2d 4e 61 6d 65 20 50 41  stryKey -Name PA
0280: 54 48 29 2e 50 61 74 68 0d 0a 0d 0a 23 20 53 65  TH).Path....# Se
0290: 65 20 69 66 20 61 20 6e 65 77 20 66 6f 6c 64 65  e if a new folde
02a0: 72 20 68 61 73 20 62 65 65 6e 20 73 75 70 70 6c  r has been suppl
02b0: 69 65 64 2e 0d 0a 0d 0a 69 66 20 28 21 24 41 64  ied.....if (!$Ad
02c0: 64 65 64 46 6f 6c 64 65 72 29 0d 0a 7b 0d 0a 20  dedFolder)..{.. 
02d0: 20 20 20 57 72 69 74 65 2d 57 61 72 6e 69 6e 67     Write-Warning
02e0: 20 27 4e 6f 20 46 6f 6c 64 65 72 20 53 75 70 70   'No Folder Supp
02f0: 6c 69 65 64 2e 20 24 45 4e 56 3a 50 41 54 48 20  lied. $ENV:PATH 
0300: 55 6e 63 68 61 6e 67 65 64 27 0d 0a 20 20 20 20  Unchanged'..    
0310: 72 65 74 75 72 6e 0d 0a 7d 0d 0a 0d 0a 69 66 20  return..}....if 
0320: 28 24 45 4e 56 3a 50 41 54 48 20 7c 20 53 65 6c  ($ENV:PATH | Sel
0330: 65 63 74 2d 53 74 72 69 6e 67 20 2d 53 69 6d 70  ect-String -Simp
0340: 6c 65 4d 61 74 63 68 20 24 41 64 64 65 64 46 6f  leMatch $AddedFo
0350: 6c 64 65 72 29 0d 0a 7b 0d 0a 20 20 20 20 57 72  lder)..{..    Wr
0360: 69 74 65 2d 57 61 72 6e 69 6e 67 20 27 46 6f 6c  ite-Warning 'Fol
0370: 64 65 72 20 61 6c 72 65 61 64 79 20 77 69 74 68  der already with
0380: 69 6e 20 24 45 4e 56 3a 50 41 54 48 27 0d 0a 20  in $ENV:PATH'.. 
0390: 20 20 20 72 65 74 75 72 6e 0d 0a 7d 0d 0a 0d 0a     return..}....
03a0: 24 6e 65 77 50 61 74 68 20 3d 20 24 6f 6c 64 50  $newPath = $oldP
03b0: 61 74 68 20 2b 20 92 3b 92 20 2b 20 24 41 64 64  ath + .;. + $Add
03c0: 65 64 46 6f 6c 64 65 72 0d 0a 0d 0a 53 65 74 2d  edFolder....Set-
03d0: 49 74 65 6d 50 72 6f 70 65 72 74 79 20 2d 50 61  ItemProperty -Pa
03e0: 74 68 20 24 65 6e 76 69 72 6f 6e 6d 65 6e 74 52  th $environmentR
03f0: 65 67 69 73 74 72 79 4b 65 79 20 2d 4e 61 6d 65  egistryKey -Name
0400: 20 50 41 54 48 20 2d 56 61 6c 75 65 20 24 6e 65   PATH -Value $ne
0410: 77 50 61 74 68 0d 0a 0d 0a 69 66 20 28 24 41 70  wPath....if ($Ap
0420: 70 6c 79 49 6d 6d 65 64 69 61 74 65 6c 79 29 0d  plyImmediately).
0430: 0a 7b 0d 0a 20 20 20 20 69 66 20 28 2d 6e 6f 74  .{..    if (-not
0440: 20 28 22 57 69 6e 33 32 2e 4e 61 74 69 76 65 4d   ("Win32.NativeM
0450: 65 74 68 6f 64 73 22 20 2d 61 73 20 5b 54 79 70  ethods" -as [Typ
0460: 65 5d 29 29 0d 0a 20 20 20 20 7b 0d 0a 20 20 20  e]))..    {..   
0470: 20 20 20 20 20 23 20 69 6d 70 6f 72 74 20 73 65       # import se
0480: 6e 64 6d 65 73 73 61 67 65 74 69 6d 65 6f 75 74  ndmessagetimeout
0490: 20 66 72 6f 6d 20 77 69 6e 33 32 0d 0a 20 20 20   from win32..   
04a0: 20 20 20 20 20 41 64 64 2d 54 79 70 65 20 2d 4e       Add-Type -N
04b0: 61 6d 65 73 70 61 63 65 20 57 69 6e 33 32 20 2d  amespace Win32 -
04c0: 4e 61 6d 65 20 4e 61 74 69 76 65 4d 65 74 68 6f  Name NativeMetho
04d0: 64 73 20 2d 4d 65 6d 62 65 72 44 65 66 69 6e 69  ds -MemberDefini
04e0: 74 69 6f 6e 20 40 22 0d 0a 20 20 20 20 5b 44 6c  tion @"..    [Dl
04f0: 6c 49 6d 70 6f 72 74 28 22 75 73 65 72 33 32 2e  lImport("user32.
0500: 64 6c 6c 22 2c 20 53 65 74 4c 61 73 74 45 72 72  dll", SetLastErr
0510: 6f 72 20 3d 20 74 72 75 65 2c 20 43 68 61 72 53  or = true, CharS
0520: 65 74 20 3d 20 43 68 61 72 53 65 74 2e 41 75 74  et = CharSet.Aut
0530: 6f 29 5d 0d 0a 20 20 20 20 70 75 62 6c 69 63 20  o)]..    public 
0540: 73 74 61 74 69 63 20 65 78 74 65 72 6e 20 49 6e  static extern In
0550: 74 50 74 72 20 53 65 6e 64 4d 65 73 73 61 67 65  tPtr SendMessage
0560: 54 69 6d 65 6f 75 74 28 0d 0a 20 20 20 20 20 20  Timeout(..      
0570: 20 20 49 6e 74 50 74 72 20 68 57 6e 64 2c 20 75    IntPtr hWnd, u
0580: 69 6e 74 20 4d 73 67 2c 20 55 49 6e 74 50 74 72  int Msg, UIntPtr
0590: 20 77 50 61 72 61 6d 2c 20 73 74 72 69 6e 67 20   wParam, string 
05a0: 6c 50 61 72 61 6d 2c 0d 0a 20 20 20 20 20 20 20  lParam,..       
05b0: 20 75 69 6e 74 20 66 75 46 6c 61 67 73 2c 20 75   uint fuFlags, u
05c0: 69 6e 74 20 75 54 69 6d 65 6f 75 74 2c 20 6f 75  int uTimeout, ou
05d0: 74 20 55 49 6e 74 50 74 72 20 6c 70 64 77 52 65  t UIntPtr lpdwRe
05e0: 73 75 6c 74 29 3b 0d 0a 22 40 0d 0a 20 20 20 20  sult);.."@..    
05f0: 7d 0d 0a 0d 0a 20 20 20 20 24 48 57 4e 44 5f 42  }....    $HWND_B
0600: 52 4f 41 44 43 41 53 54 20 3d 20 5b 49 6e 74 50  ROADCAST = [IntP
0610: 74 72 5d 20 30 78 66 66 66 66 3b 0d 0a 20 20 20  tr] 0xffff;..   
0620: 20 24 57 4d 5f 53 45 54 54 49 4e 47 43 48 41 4e   $WM_SETTINGCHAN
0630: 47 45 20 3d 20 30 78 31 61 3b 0d 0a 20 20 20 20  GE = 0x1a;..    
0640: 24 72 65 73 75 6c 74 20 3d 20 5b 55 49 6e 74 50  $result = [UIntP
0650: 74 72 5d 3a 3a 5a 65 72 6f 0d 0a 0d 0a 20 20 20  tr]::Zero....   
0660: 20 23 20 6e 6f 74 69 66 79 20 61 6c 6c 20 77 69   # notify all wi
0670: 6e 64 6f 77 73 20 6f 66 20 65 6e 76 69 72 6f 6e  ndows of environ
0680: 6d 65 6e 74 20 62 6c 6f 63 6b 20 63 68 61 6e 67  ment block chang
0690: 65 0d 0a 20 20 20 20 5b 57 69 6e 33 32 2e 4e 61  e..    [Win32.Na
06a0: 74 69 76 65 6d 65 74 68 6f 64 73 5d 3a 3a 53 65  tivemethods]::Se
06b0: 6e 64 4d 65 73 73 61 67 65 54 69 6d 65 6f 75 74  ndMessageTimeout
06c0: 28 24 48 57 4e 44 5f 42 52 4f 41 44 43 41 53 54  ($HWND_BROADCAST
06d0: 2c 20 24 57 4d 5f 53 45 54 54 49 4e 47 43 48 41  , $WM_SETTINGCHA
06e0: 4e 47 45 2c 20 5b 55 49 6e 74 50 74 72 5d 3a 3a  NGE, [UIntPtr]::
06f0: 5a 65 72 6f 2c 20 22 45 6e 76 69 72 6f 6e 6d 65  Zero, "Environme
0700: 6e 74 22 2c 20 32 2c 20 35 30 30 30 2c 20 5b 72  nt", 2, 5000, [r
0710: 65 66 5d 20 24 72 65 73 75 6c 74 29 3b 0d 0a 7d  ef] $result);..}
0720: 0d 0a                                            ..