[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
smss

Rank: 5Rank: 5

帖子
629 
积分
882 
技术
51  
捐助
0  
注册时间
2018-11-29 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2025-1-30 10:29 | 只看该作者

[技术讨论] [出题挑战]PowerShell比较注册表 可以使用Ai 代码少效率高胜出

PowerShell 脚本，用于比较两个注册表文件 A.reg 和 B.reg，
并将相同部分保存为 AB相同.reg，
A.reg 的独有部分保存为 A独有.reg，
B.reg 的独有部分保存为 B独有.reg，
A.reg 的差异部分保存为 A差异.reg，
B.reg 的差异部分保存为 B差异.reg：

例如(实际情况比这多的多)
以下为A.reg
  1. Windows Registry Editor Version 5.00

  2. 

  3. [HKEY_LOCAL_MACHINE\PE_SYSTEM]

  4. 

  5. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001]

  6. 

  7. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\CI]

  8. "UMCIDisabled"=dword:00000000

  9. 

  10. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\Control]

  11. "BootDriverFlags"=dword:0000001c

  12. "CurrentUser"="USERNAME"

  13. "EarlyStartServices"=hex(7):52,00,70,00,63,00,53,00,73,00,00,00,50,00,6f,00,77,\

  14.   00,65,00,72,00,00,00,42,00,72,00,6f,00,6b,00,65,00,72,00,49,00,6e,00,66,00,\

  15.   72,00,61,00,73,00,74,00,72,00,75,00,63,00,74,00,75,00,72,00,65,00,00,00,53,\

  16.   00,79,00,73,00,74,00,65,00,6d,00,45,00,76,00,65,00,6e,00,74,00,73,00,42,00,\

  17.   72,00,6f,00,6b,00,65,00,72,00,00,00,44,00,63,00,6f,00,6d,00,4c,00,61,00,75,\

  18.   00,6e,00,63,00,68,00,00,00,52,00,70,00,63,00,45,00,70,00,4d,00,61,00,70,00,\

  19.   70,00,65,00,72,00,00,00,4c,00,53,00,4d,00,00,00,41,00,70,00,70,00,49,00,64,\

  20.   00,53,00,76,00,63,00,00,00,00,00

  21. "PreshutdownOrder"=hex(7):44,00,65,00,76,00,69,00,63,00,65,00,49,00,6e,00,73,\

  22.   00,74,00,61,00,6c,00,6c,00,00,00,55,00,73,00,6f,00,53,00,76,00,63,00,00,00,\

  23.   77,00,75,00,61,00,75,00,73,00,65,00,72,00,76,00,00,00,64,00,6f,00,73,00,76,\

  24.   00,63,00,00,00,67,00,70,00,73,00,76,00,63,00,00,00,74,00,72,00,75,00,73,00,\

  25.   74,00,65,00,64,00,69,00,6e,00,73,00,74,00,61,00,6c,00,6c,00,65,00,72,00,00,\

  26.   00,00,00

  27. "SystemBootDriveLetter"=dword:00000058

  28. "WaitToKillServiceTimeout"="5000"

  29. 

  30. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\Control\ACPI]

  31. "AMLIGlobalHeapSize"=dword:00100000
复制代码
以下为B.reg
  1. Windows Registry Editor Version 5.00

  2. 

  3. [HKEY_LOCAL_MACHINE\PE_SYSTEM]

  4. 

  5. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001]

  6. 

  7. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\CI]

  8. "UMCIDisabled"=dword:00000000

  9. 

  10. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\Control]

  11. "BootDriverFlags"=dword:0000001A

  12. "CurrentUser"="USERNAME"

  13. "WaitToKillService"="6000"
复制代码
比较后得到AB相同.reg
  1. Windows Registry Editor Version 5.00

  2. 

  3. [HKEY_LOCAL_MACHINE\PE_SYSTEM]

  4. 

  5. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001]

  6. 

  7. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\CI]

  8. "UMCIDisabled"=dword:00000000

  9. 

  10. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\Control]

  11. "CurrentUser"="USERNAME"
复制代码
A独有.reg
  1. Windows Registry Editor Version 5.00

  2. 

  3. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\Control]

  4. "EarlyStartServices"=hex(7):52,00,70,00,63,00,53,00,73,00,00,00,50,00,6f,00,77,\

  5.   00,65,00,72,00,00,00,42,00,72,00,6f,00,6b,00,65,00,72,00,49,00,6e,00,66,00,\

  6.   72,00,61,00,73,00,74,00,72,00,75,00,63,00,74,00,75,00,72,00,65,00,00,00,53,\

  7.   00,79,00,73,00,74,00,65,00,6d,00,45,00,76,00,65,00,6e,00,74,00,73,00,42,00,\

  8.   72,00,6f,00,6b,00,65,00,72,00,00,00,44,00,63,00,6f,00,6d,00,4c,00,61,00,75,\

  9.   00,6e,00,63,00,68,00,00,00,52,00,70,00,63,00,45,00,70,00,4d,00,61,00,70,00,\

  10.   70,00,65,00,72,00,00,00,4c,00,53,00,4d,00,00,00,41,00,70,00,70,00,49,00,64,\

  11.   00,53,00,76,00,63,00,00,00,00,00

  12. "PreshutdownOrder"=hex(7):44,00,65,00,76,00,69,00,63,00,65,00,49,00,6e,00,73,\

  13.   00,74,00,61,00,6c,00,6c,00,00,00,55,00,73,00,6f,00,53,00,76,00,63,00,00,00,\

  14.   77,00,75,00,61,00,75,00,73,00,65,00,72,00,76,00,00,00,64,00,6f,00,73,00,76,\

  15.   00,63,00,00,00,67,00,70,00,73,00,76,00,63,00,00,00,74,00,72,00,75,00,73,00,\

  16.   74,00,65,00,64,00,69,00,6e,00,73,00,74,00,61,00,6c,00,6c,00,65,00,72,00,00,\

  17.   00,00,00

  18. "SystemBootDriveLetter"=dword:00000058

  19. "WaitToKillServiceTimeout"="5000"

  20. 

  21. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\Control\ACPI]

  22. "AMLIGlobalHeapSize"=dword:00100000
复制代码
B独有.reg
  1. Windows Registry Editor Version 5.00

  2. 

  3. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\Control]

  4. "WaitToKillService"="6000"
复制代码
A差异.reg
  1. Windows Registry Editor Version 5.00

  2. 

  3. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\Control]

  4. "BootDriverFlags"=dword:0000001c
复制代码
B差异.reg
  1. Windows Registry Editor Version 5.00

  2. 

  3. [HKEY_LOCAL_MACHINE\PE_SYSTEM\ControlSet001\Control]

  4. "BootDriverFlags"=dword:0000001A
复制代码
收藏 分享

smss

Rank: 5Rank: 5

帖子
629 
积分
882 
技术
51  
捐助
0  
注册时间
2018-11-29 
2楼
发表于 2025-1-30 12:06 | 只看该作者 
  1. $ErrorActionPreference = 'Stop'

  2. 

  3. function Parse-RegFile {

  4.     param([string]$filePath)

  5.     $content = Get-Content $filePath

  6.     $regData = @{

  7.         Keys = [System.Collections.Generic.List[string]]::new()

  8.         KeyValues = @{}

  9.         KeyExistence = @{}

  10.     }

  11.     $currentKey = $null

  12.     $buffer = $null

  13. 

  14.     foreach ($line in $content) {

  15.         $trimmed = $line.Trim()

  16.         if ($trimmed -eq '' -or $trimmed.StartsWith(';') -or $trimmed.StartsWith('Windows Registry Editor')) {

  17.             continue

  18.         }

  19. 

  20.         if ($trimmed.StartsWith('[') -and $trimmed.EndsWith(']')) {

  21.             $currentKey = $trimmed

  22.             if (-not $regData.KeyExistence.ContainsKey($currentKey)) {

  23.                 $regData.Keys.Add($currentKey)

  24.                 $regData.KeyExistence[$currentKey] = $true

  25.                 $regData.KeyValues[$currentKey] = @{}

  26.             }

  27.             $buffer = $null

  28.         }

  29.         elseif ($currentKey -ne $null) {

  30.             if ($line -match '\\\s*$') {

  31.                 $buffer = if ($buffer) { $buffer + $line.TrimEnd('\') } else { $line.TrimEnd('\') }

  32.             }

  33.             else {

  34.                 $fullLine = if ($buffer) { $buffer + $line } else { $line }

  35.                 $buffer = $null

  36.                 if ($fullLine -match '^"([^"]+)"\s*=') {

  37.                     $name = $matches[1]

  38.                     $regData.KeyValues[$currentKey][$name] = $fullLine

  39.                 }

  40.             }

  41.         }

  42.     }

  43.     return $regData

  44. }

  45. 

  46. function Write-RegFile {

  47.     param([string]$path, [array]$entries)

  48.     $header = "Windows Registry Editor Version 5.00`r`n"

  49.     [System.IO.File]::WriteAllText($path, $header + ($entries -join "`r`n"), [System.Text.Encoding]::Unicode)

  50. }

  51. 

  52. $regA = Parse-RegFile 'A.reg'

  53. $regB = Parse-RegFile 'B.reg'

  54. 

  55. # 处理键路径比较

  56. $commonKeys = $regA.Keys | Where-Object { $_ -in $regB.Keys }

  57. $aOnlyKeys = $regA.Keys | Where-Object { $_ -notin $regB.Keys }

  58. $bOnlyKeys = $regB.Keys | Where-Object { $_ -notin $regA.Keys }

  59. 

  60. # 初始化结果集合

  61. $abCommon = @()

  62. $aUnique = @()

  63. $bUnique = @()

  64. $aDiff = @()

  65. $bDiff = @()

  66. 

  67. # 处理共同键路径

  68. foreach ($key in $commonKeys) {

  69.     $aValues = $regA.KeyValues[$key]

  70.     $bValues = $regB.KeyValues[$key]

  71.     

  72.     # 收集相同键值

  73.     $commonValues = @()

  74.     foreach ($name in $aValues.Keys) {

  75.         if ($bValues.ContainsKey($name) -and $aValues[$name] -eq $bValues[$name]) {

  76.             $commonValues += $aValues[$name]

  77.         }

  78.     }

  79.     

  80.     # 添加到AB相同

  81.     $abCommon += "$key"

  82.     $abCommon += $commonValues

  83.     $abCommon += ''

  84. 

  85.     # 处理差异

  86.     foreach ($name in $aValues.Keys) {

  87.         if ($bValues.ContainsKey($name) -and $aValues[$name] -ne $bValues[$name]) {

  88.             $aDiff += "$key"

  89.             $aDiff += $aValues[$name]

  90.             $aDiff += ''

  91.             

  92.             $bDiff += "$key"

  93.             $bDiff += $bValues[$name]

  94.             $bDiff += ''

  95.         }

  96.     }

  97. }

  98. 

  99. # 处理A独有

  100. foreach ($key in $aOnlyKeys) {

  101.     $aUnique += "$key"

  102.     $aUnique += $regA.KeyValues[$key].Values

  103.     $aUnique += ''

  104. }

  105. 

  106. foreach ($key in $commonKeys) {

  107.     $aValues = $regA.KeyValues[$key]

  108.     $bValues = $regB.KeyValues[$key]

  109.     

  110.     foreach ($name in $aValues.Keys) {

  111.         if (-not $bValues.ContainsKey($name)) {

  112.             $aUnique += "$key"

  113.             $aUnique += $aValues[$name]

  114.             $aUnique += ''

  115.         }

  116.     }

  117. }

  118. 

  119. # 处理B独有

  120. foreach ($key in $bOnlyKeys) {

  121.     $bUnique += "$key"

  122.     $bUnique += $regB.KeyValues[$key].Values

  123.     $bUnique += ''

  124. }

  125. 

  126. foreach ($key in $commonKeys) {

  127.     $aValues = $regA.KeyValues[$key]

  128.     $bValues = $regB.KeyValues[$key]

  129.     

  130.     foreach ($name in $bValues.Keys) {

  131.         if (-not $aValues.ContainsKey($name)) {

  132.             $bUnique += "$key"

  133.             $bUnique += $bValues[$name]

  134.             $bUnique += ''

  135.         }

  136.     }

  137. }

  138. 

  139. # 写入文件

  140. Write-RegFile 'AB相同.reg' $abCommon

  141. Write-RegFile 'A独有.reg' $aUnique

  142. Write-RegFile 'B独有.reg' $bUnique

  143. Write-RegFile 'A差异.reg' $aDiff

  144. Write-RegFile 'B差异.reg' $bDiff

  145. 

  146. Write-Host "比较完成，结果文件已生成！"

  147. pause
复制代码

TOP

Five66

Rank: 5Rank: 5

帖子
974 
积分
1385 
技术
144  
捐助
0  
注册时间
2021-8-26 
3楼
发表于 2025-1-30 13:18 | 只看该作者
只有一个例子 , 太片面了
  1. "参考 http://www.bathome.net/thread-70496-1-1.html 这样不就行了"
复制代码

TOP

smss

Rank: 5Rank: 5

帖子
629 
积分
882 
技术
51  
捐助
0  
注册时间
2018-11-29 
4楼
发表于 2025-1-30 13:58 | 只看该作者
回复 3# Five66 从电脑注册表导出一部分为A.reg 复制一份对其部分修改为B.reg ，用以测试

TOP

aloha20200628

Rank: 6Rank: 6

帖子
1176 
积分
2025 
技术
277  
捐助
0  
注册时间
2021-10-13 
5楼
发表于 2025-1-30 14:18 | 只看该作者
回复 1# smss

    如果两个文件的比对粒度是 ‘文本行’，可用 findstr 凑个趣...
  1. @echo off

  2. findstr /ilxg:"b.reg" a.reg>ab_same.reg

  3. findstr /vilxg:"ab_same.reg" a.reg>a_only.reg

  4. findstr /vilxg:"ab_same.reg" b.reg>b_only.reg

  5. pause&exit/b
复制代码

TOP

返回列表