注册表变更查找工具

老刘1号

老刘制作——注册表变更查找工具V1.0
用法：
Query——查询变更，生成New文件夹并与本地Old文件夹对比
Update——更新变更，用New文件夹替换Old文件夹
ReSet——重置，移除Old文件夹

首次运行请运行Query
Query.BAT

1. 
   
2. @Echo Off&Cls
   
3. Rem 老刘制作
   
4. Rem KeyName=HKCR HKLM HKU HKCU HKCC
   
5. Set "KeyName=HKCR HKLM HKU HKCU HKCC"
   
6. 
   
7. Rem 初始化
   
8. Setlocal ENABLEDELAYEDEXPANSION
   
9. Echo Wscript.Echo Replace^(Wscript.Arguments(0),"*","㈨"^)>"!Temp!\$_Replace"
   
10. Pushd "%~dp0"
    
11. Rd /s /q New 2>nul
    
12. Md New Old Log 2>nul
    
13. Set /A Counter=0
    
14. Rem 检测是否为第一次运行
    
15. Rd Old 2>nul && Call :UpDate && Ren New Old && Md New
    
16. Rem 主程序开始
    
17. Set Log=".\Log\RegChanges - !Date:/=-! !Time:~,2!.!Time:~3,2!.Log"
    
18. (
    
19.         Echo 特殊字符映射对照表
    
20.         Echo        ㈠        =        " "
    
21.         Echo        ㈡        =        "/"
    
22.         Echo        ㈢        =        ":"
    
23.         Echo        ㈣        =        "|"
    
24.         Echo        ㈤        =        "?"
    
25.         Echo        ㈥        =        """
    
26.         Echo        ㈦        =        "<"
    
27.         Echo        ㈧        =        ">"
    
28.         Echo        ㈨        =        "*"
    
29.         Echo.&Echo.
    
30. )>!Log!
    
31. Call :UpDate
    
32. For %%a in (!KeyName!) Do Call :Compare1 "%%a"
    
33. Del /F "!Temp!\$_Log" "!Temp!\$_Replace" 2>nul
    
34. If !Counter! Equ 0 (
    
35.         Del /f !log! 2>nul
    
36.         Msg "!UserName!" "注册表更改查找完成！注册表无变化！"
    
37. ) Else Start "" !log!
    
38. Goto :Eof
    
39. 
    
40. :UpDate        更新本地Data函数
    
41. Cd New
    
42. For %%a in (!KeyName!) Do (
    
43.         Md %%a 2>nul & Cd %%a
    
44.         For /F "Delims=\ Tokens=2" %%b in ('Reg Query %%a') Do (
    
45.                 Set "Key=%%a\%%b"
    
46.                 Title 获得!Key:"="!
    
47.                 Set /p "=Get !Key:"="! -->"<nul
    
48.                 Rem 替换特殊字符
    
49.                 Set "FileName=%%b"
    
50.                 Set "FileName=!FileName: =㈠!"
    
51.                 Set "FileName=!FileName:/=㈡!"
    
52.                 Set "FileName=!FileName::=㈢!"
    
53.                 Set "FileName=!FileName:|=㈣!"
    
54.                 Set "FileName=!FileName:?=㈤!"
    
55.                 Set "FileName=!FileName:"=㈥!"
    
56.                 Set "FileName=!FileName:<=㈦!"
    
57.                 Set "FileName=!FileName:>=㈧!"
    
58.                 Rem Set "FileName=!FileName:*=㈨!"
    
59.                 For /f "Delims=" %%c in (
    
60.                         'Cscript -Nologo -E:Vbscript "!Temp!\$_Replace" "!FileName!"'
    
61.                 ) Do Set "FileName=%%c"
    
62.                 Rem 生成注册表信息
    
63.                 Reg Export "!Key:"="!" "!FileName!.Reg" /Y
    
64.         )
    
65.         Cd ..
    
66. )
    
67. Cd ..
    
68. Goto :Eof
    
69. 
    
70. :Compare1 比较键值
    
71. For /r ".\New\%~1" %%b in (*.Reg) Do (
    
72.         If Exist ".\Old\%~1\%%~nxb" (
    
73.                 Call :Compare2 ".\New\%~1\%%~nxb" ".\Old\%~1\%%~nxb"
    
74.         ) Else (
    
75.                 Set /A Counter+=1
    
76.                 (Echo [事件!Counter!]新增次主键： "%~1\%%~nxb"&Echo.&Echo.)>>!Log!
    
77.         )
    
78. )
    
79. For /r ".\Old\%~1" %%b in (*.Reg) Do (
    
80.         If Not Exist ".\New\%~1\%%~nxb" (
    
81.                 Set /A Counter+=1
    
82.                 (Echo [事件!Counter!]次主键被移除： "%~1\%%~nxb"&Echo.&Echo.)>>!Log!
    
83.         )
    
84. )
    
85. Goto :Eof
    
86. 
    
87. :Compare2 比较文件函数块
    
88. Title 比对 "%~1" ^& "%~2"
    
89. Fc /U /N "%~1" "%~2" >"!Temp!\$_Log"
    
90. If ErrorLevel 1 (
    
91.         Set /A Counter+=1
    
92.         (Echo [事件!Counter!]次主键总体内容变更： -"%~1"- & -"%~2"-)>>!Log!
    
93.         Copy /A !Log!+"!Temp!\$_Log" !Log!
    
94.         (Echo. & Echo.)>>!Log!
    
95. )
    
96. Goto :Eof

复制代码

ReSet.BAT

1. @Rd /s /q "%~dp0Old"

复制代码

Update.BAT

1. @Rd /s /q "%~dp0Old"
   
2. @Ren "%~dp0New" Old

复制代码