|
| 1 | + |
| 2 | +function Merge-EnvFromBackup { |
| 3 | +<# |
| 4 | +.SYNOPSIS |
| 5 | + Compara um backup JSON e aplica adições/alterações seletivas nas variáveis de ambiente. |
| 6 | +
|
| 7 | +.PARAMETER BackupDir |
| 8 | + Pasta contendo SystemEnvironment.json e UserEnvironment.json gerados pelo Export-EnvBackup. |
| 9 | +
|
| 10 | +.EXAMPLE |
| 11 | + Merge-EnvFromBackup -BackupDir D:\Backups\EnvBackup-20250428-235812 |
| 12 | +#> |
| 13 | + [CmdletBinding(SupportsShouldProcess)] |
| 14 | + param( |
| 15 | + [Parameter(Mandatory)][string]$BackupDir |
| 16 | + ) |
| 17 | + |
| 18 | + $bkSysPath = Join-Path $BackupDir 'SystemEnvironment.json' |
| 19 | + $bkUsrPath = Join-Path $BackupDir 'UserEnvironment.json' |
| 20 | + if (!(Test-Path $bkSysPath) -or !(Test-Path $bkUsrPath)) { |
| 21 | + throw "BackupDir não contém os arquivos JSON necessários." |
| 22 | + } |
| 23 | + |
| 24 | + $bkSys = Get-Content $bkSysPath -Raw | ConvertFrom-Json |
| 25 | + $bkUsr = Get-Content $bkUsrPath -Raw | ConvertFrom-Json |
| 26 | + |
| 27 | + $stamp = Get-Date -Format 'yyyyMMdd-HHmmss' |
| 28 | + $rollbackDir = "EnvMergeRestore-$stamp" |
| 29 | + New-Item -ItemType Directory -Path $rollbackDir | Out-Null |
| 30 | + reg export "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment" "$rollbackDir\System_before.reg" /y |
| 31 | + reg export "HKCU\Environment" "$rollbackDir\User_before.reg" /y |
| 32 | + |
| 33 | + function Merge-Scope { |
| 34 | + param( |
| 35 | + [string]$ScopeName, |
| 36 | + [psobject]$Backup, |
| 37 | + [string]$RegPath |
| 38 | + ) |
| 39 | + $current = Get-ItemProperty -Path $RegPath | Select-Object -ExcludeProperty PS* |
| 40 | + foreach ($prop in $Backup.PSObject.Properties) { |
| 41 | + $name = $prop.Name |
| 42 | + $value = $prop.Value |
| 43 | + if ($current.PSObject.Properties.Name -notcontains $name) { |
| 44 | + Write-Host "[$ScopeName] + $name" -ForegroundColor Green |
| 45 | + if ($PSCmdlet.ShouldProcess($name,"Add")) { |
| 46 | + Set-ItemProperty -Path $RegPath -Name $name -Value $value -Force |
| 47 | + } |
| 48 | + } |
| 49 | + elseif ($current.$name -ne $value) { |
| 50 | + Write-Host "[$ScopeName] ~ $name" -ForegroundColor Yellow |
| 51 | + Write-Host " Atual: $($current.$name)" |
| 52 | + Write-Host " Backup: $value" |
| 53 | + $ans = Read-Host 'Sobrescrever? (S/N)' |
| 54 | + if ($ans -match '^[sSyY]') { |
| 55 | + if ($PSCmdlet.ShouldProcess($name,"Replace")) { |
| 56 | + Set-ItemProperty -Path $RegPath -Name $name -Value $value -Force |
| 57 | + } |
| 58 | + } |
| 59 | + } |
| 60 | + } |
| 61 | + } |
| 62 | + |
| 63 | + Merge-Scope 'SISTEMA' $bkSys 'HKLM:\SYSTEM\CurrentControlSet\Control\Session Manager\Environment' |
| 64 | + Merge-Scope 'USUÁRIO' $bkUsr 'HKCU:\Environment' |
| 65 | + |
| 66 | + # Broadcast WM_SETTINGCHANGE |
| 67 | + Add-Type @" |
| 68 | +using System; |
| 69 | +using System.Runtime.InteropServices; |
| 70 | +public class NativeMethods{ |
| 71 | +[DllImport("user32.dll", SetLastError=true, CharSet=CharSet.Auto)] |
| 72 | +public static extern IntPtr SendMessageTimeout(IntPtr hWnd, uint Msg, UIntPtr wParam, string lParam, |
| 73 | + uint fuFlags, uint uTimeout, out UIntPtr lpdwResult); |
| 74 | +} |
| 75 | +"@ |
| 76 | + [NativeMethods]::SendMessageTimeout([intptr]0xFFFF,0x1A,[UIntPtr]::Zero,'Environment',2,1000,[ref]([UIntPtr]::Zero)) | Out-Null |
| 77 | +} |
0 commit comments