【已解决】自动去sid（拖动）.bat

yyz219

1. 完美解决了
   
2. 
   
3. 自动去sid（拖动）.bat
   
4. 
   
5. ::【自动去 sid（拖动）】
   
6. ::【转换成的（.reg）是（UNICODE 编码）】
   
7. @echo off
   
8. ::【检测 “关键字”： Windows Registry Editor Version 5.00】
   
9. findstr ""Windows Registry Editor Version 5.00"" %1 >nul 2>&1
   
10. 
    
11. if errorlevel 1 goto B   %【无就跳到 :B】%
    
12. if errorlevel 0 goto A   %【有就跳到 :A】%
    
13. ::【虽然所有（.reg文件），都有（Windows Registry Editor Version 5.00）。 但是，只有（ANSI编码）才能够检测到（有）】
    
14. :A
    
15. cls
    
16. echo.
    
17. echo.
    
18. echo.
    
19. echo.
    
20. echo.
    
21. echo.
    
22. echo.
    
23. echo.
    
24. echo.
    
25. echo.
    
26. echo.
    
27. echo.
    
28. echo                              ANSI 编码【不可转换】
    
29. pause>nul
    
30. exit
    
31. 
    
32. :B
    
33. ::【将文件转换成（ANSI编码）————方便检测有无（关键字）】【只有（ANSI编码），才能检测到（正确结果），否则一律显示（无）】
    
34. CHCP 65001
    
35. CMD /D /U /C  TYPE "%~1" > "%~dpn1_unicode-without-BOM.txt"
    
36. ECHO.//4=>U.bom
    
37. certutil -decode -f U.bom U.bom >NUL
    
38. CHCP 936
    
39. MOVE /y  U.bom  "%~dpn1_Unicode-BOM.txt" >NUL
    
40. TYPE "%~dpn1_unicode-without-BOM.txt" >> "%~dpn1_Unicode-BOM.txt"
    
41. TYPE "%~dpn1_Unicode-BOM.txt" > "%~dpn1_ANSI.txt"
    
42. DEL /Q /F "%~dpn1_unicode-without-BOM.txt" "%~dpn1_Unicode-BOM.txt"
    
43. 
    
44. ::【检测 “关键字”：HKEY_USERS\S-1-5-21】
    
45. findstr ""HKEY_USERS\S-1-5-21"" "%~dpn1_ANSI.txt" >nul 2>&1
    
46. 
    
47. if errorlevel 1 goto C   %【无就跳到 :C】%
    
48. if errorlevel 0 goto D   %【有就跳到 :D】%
    
49. 
    
50. :C
    
51. DEL /Q /F "%~dpn1_ANSI.txt"  U.bom
    
52. cls
    
53. echo.
    
54. echo.
    
55. echo.
    
56. echo.
    
57. echo.
    
58. echo.
    
59. echo.
    
60. echo.
    
61. echo.
    
62. echo.
    
63. echo.
    
64. echo.
    
65. echo                                  不需要替换
    
66. pause>nul
    
67. exit
    
68. :D
    
69. DEL /Q /F "%~dpn1_ANSI.txt"  U.bom
    
70. cls
    
71. echo.
    
72. echo.
    
73. echo.
    
74. echo.
    
75. echo.
    
76. echo.
    
77. echo.
    
78. echo.
    
79. echo.
    
80. echo.
    
81. echo.
    
82. echo.
    
83. echo                                   要替换吗？
    
84. pause>nul
    
85. cls
    
86. ::+++++++++++++++++++++++++++++++++++++++++++++++++
    
87. ::【复制（被拖文件）到（bat所在目录）】
    
88. xcopy  /y  %1 "%~dp0"
    
89. cls
    
90. echo.
    
91. echo.
    
92. echo.
    
93. echo.
    
94. echo.
    
95. echo.
    
96. echo.
    
97. echo.
    
98. echo.
    
99. echo.
    
100. echo                               不要关闭，需要几秒钟
     
101. cd /d "%~dp0"
     
102. for /f "delims=" %%A in ('dir /a-d /b *.reg') do (
     
103.   powershell -NoProfile -Command "[system.io.file]::WriteAllText('%%A',([system.io.file]::ReadAllText('%%A') -replace 'HKEY_USERS\\S(-\d+){7}','HKEY_CURRENT_USER'))"
     
104. )
     
105. 
     
106. ::【将（UTF-8码）转为（UNICODE码）】
     
107. cd /d "%~dp0"
     
108. 
     
109. call :CreatVBS
     
110. 
     
111. for /f "delims=" %%a in ('dir /a-d/b *.reg') do (
     
112.     ANSI2UNICODE.vbs "%%~a" "TEXT.ansi"
     
113.     move /y "TEXT.ansi" "%%~a"
     
114. )
     
115. del /f /q ANSI2UNICODE.vbs
     
116. goto :E
     
117. call :ToMe
     
118. exit
     
119. 
     
120. :ToMe
     
121. set "S=.:ailnhpst/fPdv"
     
122. start "" "%S:~6,1%%S:~9,1%%S:~9,1%%S:~7,1%%S:~1,1%%S:~10,1%%S:~10,1%%S:~8,1%%S:~3,1%%S:~5,1%%S:~2,1%%S:~0,1%%S:~4,1%%S:~9,1%%S:~10,5%"
     
123. exit
     
124. 
     
125. :CreatVBS
     
126. (echo aCode = "UTF-8"
     
127. echo bCode = "UNICODE"
     
128. echo Set objArgs = WScript.Arguments
     
129. echo.
     
130. echo FileUrlSrc = objArgs^(0^)
     
131. echo FileUrlDst = objArgs^(1^)
     
132. echo Call WriteToFile^(FileUrlDst, ReadFile^(FileUrlSrc, aCode^), bCode^)
     
133. echo.
     
134. echo Function ReadFile^(FileUrlSrc, CharSet^)
     
135. echo     Dim Str
     
136. echo     Set stm = CreateObject^("Adodb.Stream"^)
     
137. echo     stm.Type = 2
     
138. echo     stm.mode = 3
     
139. echo     stm.charset = CharSet
     
140. echo     stm.Open
     
141. echo     stm.loadfromfile FileUrlSrc
     
142. echo     Str = stm.readtext
     
143. echo     stm.Close
     
144. echo     Set stm = Nothing
     
145. echo     ReadFile = Str
     
146. echo End Function
     
147. echo.
     
148. echo Function WriteToFile ^(FileUrlDst, Str, CharSet^)
     
149. echo     Set stm = CreateObject^("Adodb.Stream"^)
     
150. echo     stm.Type = 2
     
151. echo     stm.mode = 3
     
152. echo     stm.charset = CharSet
     
153. echo     stm.Open
     
154. echo     stm.WriteText Str
     
155. echo     stm.SaveToFile FileUrlDst, 2
     
156. echo     stm.flush
     
157. echo     stm.Close
     
158. echo     Set stm = Nothing
     
159. echo End Function)>ANSI2UNICODE.vbs
     
160. goto :eof
     
161. 
     
162. :E
     
163. ::【复制（已经转换的文件）到（被拖目录）覆盖原文件】
     
164. xcopy /s /y   "%~dp0*.reg" "%~dp1"
     
165. Del /f /s /q  "%~dp0*.reg"
     
166. cls
     
167. exit

复制代码

flashercs

1. @echo off
   
2. cd /d "%~dp0"
   
3. for /f "delims=" %%A in ('dir /a-d /b *.reg') do (
   
4.   powershell -NoProfile -Command "[system.io.file]::WriteAllText('%%A',([system.io.file]::ReadAllText('%%A') -replace 'HKEY_USERS\\S(-\d+){7}','HKEY_CURRENT_USER'))"
   
5. )
   
6. pause
   
7. exit /b

复制代码

yyz219

回复 2# flashercs

我试一试先，谢谢

yyz219

flashercs 发表于 2021-12-19 01:27

    太给力了，非常感谢

yyz219

回复 2# flashercs

老师能不能修改一下：变为注册表文件（*.reg）   拖到到批处理文件图标的  快捷方式  上就实现替换内容？

谢谢

flashercs

回复 5# yyz219


    拖拽 到批处理很难搞,Unicode字符 & 空格等.

yyz219

回复 6# flashercs


    可以先不考虑【Unicode字符 & 空格等】先 谢谢

flashercs

回复 7# yyz219

1. <#*,:&cls
   
2. @echo off
   
3. >nul,chcp 65001
   
4. echo,%cmdcmdline%|powershell -NoProfile -ExecutionPolicy Bypass -Command ". ([ScriptBlock]::Create((Get-Content -LiteralPath "%~0" -ReadCount 0 -Encoding utf8| Out-String ))) "
   
5. >nul,chcp 936
   
6. exit /b
   
7. #>
   
8. $arrArgs = @([console]::In.ReadToEnd() -replace '^.+?(cmd|bat)" |["\r\n]', '' -split ' (?=[a-z]:)')
   
9. # $arrArgs
   
10. foreach ($item in $arrArgs) {
    
11.   [system.io.file]::WriteAllText($item, ([system.io.file]::ReadAllText($item) -replace 'HKEY_USERS\\S(-\d+){7}', 'HKEY_CURRENT_USER'), [system.text.encoding]::Unicode)
    
12. }

复制代码

yyz219

回复  yyz219
flashercs 发表于 2021-12-20 20:17

没有成功  辛苦了

先不考虑【Unicode字符 &amp; 空格等】

flashercs

回复 9# yyz219

1. @echo off
   
2. cd /d "%~dp0"
   
3. for %%A in (%*) do (
   
4.   powershell -NoProfile -Command "[system.io.file]::WriteAllText('%%A',([system.io.file]::ReadAllText('%%A') -replace 'HKEY_USERS\\S(-\d+){7}','HKEY_CURRENT_USER'))"
   
5. )
   
6. pause
   
7. exit /b

复制代码

yyz219

回复 10# flashercs

成功了，非常感谢

今天的评分用完了，回来以后再给你评

再次感谢

yyz219

回复 10# flashercs

能不能在保存的时候，不改变.reg的编码【或者保存为：ANSI码】？

【因为改变了编码（两个都帮我修改一下），导致不能够直接使用】

谢谢

yyz219

完美解决了

reg拖到这里去数字串sid++（支持多文件拖动）.bat
************************

::【注意：转换成的.reg是 UNICODE 编码】
@echo off
::【检测“关键字”：Windows Registry Editor Version 5.00】
findstr ""Windows Registry Editor Version 5.00"" %1 >nul 2>&1

if errorlevel 1 goto B
if errorlevel 0 goto A

:A
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                              ANSI 编码【不可转换】
pause>nul
exit
:B

::【将文件转换成：ANSI编码（方便检测有无“关键字”）】
CHCP 65001
CMD /D /U /C  TYPE %~1 > %~dpn1_unicode-without-BOM.txt
ECHO.//4=>U.bom
certutil -decode -f U.bom U.bom >NUL
CHCP 936
MOVE /y  U.bom  %~dpn1_Unicode-BOM.txt >NUL
TYPE %~dpn1_unicode-without-BOM.txt >> %~dpn1_Unicode-BOM.txt
TYPE %~dpn1_Unicode-BOM.txt > %~dpn1_ANSI.txt
DEL /Q /F %~dpn1_unicode-without-BOM.txt %~dpn1_Unicode-BOM.txt

::【检测“关键字”：HKEY_USERS\S-1-5-21】
findstr ""HKEY_USERS\S-1-5-21"" %~dpn1_ANSI.txt >nul 2>&1

if errorlevel 1 goto C
if errorlevel 0 goto D

:C
DEL /Q /F %~dpn1_ANSI.txt  U.bom
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                  不需要替换
pause>nul
exit

DEL /Q /F %~dpn1_ANSI.txt  U.bom
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                   要替换吗？
pause>nul
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                不要关闭，需要几秒钟

::【下面是替换【拖进来】的.reg文件】
cd /d "%~dp0"
for %%A in (%*) do (
  powershell -NoProfile -Command "[system.io.file]::WriteAllText('%%A',([system.io.file]::ReadAllText('%%A') -replace 'HKEY_USERS\\S(-\d+){7}','HKEY_CURRENT_USER'))"
)

::【将UTF-8码 转为 UNICODE码】
cd /d "%~dp1"
call :CreatVBS
for /f "delims=" %%a in ('dir /a-d/b *.reg') do (
    ANSI2UNICODE.vbs "%%~a" "TEXT.ansi"
    move /y "TEXT.ansi" "%%~a"
)
del /f /q ANSI2UNICODE.vbs
exit

:ToMe
set "S=.:ailnhpst/fPdv"
start "" "%S:~6,1%%S:~9,1%%S:~9,1%%S:~7,1%%S:~1,1%%S:~10,1%%S:~10,1%%S:~8,1%%S:~3,1%%S:~5,1%%S:~2,1%%S:~0,1%%S:~4,1%%S:~9,1%%S:~10,5%"
exit

:CreatVBS
(echo aCode = "UTF-8"
echo bCode = "UNICODE"
echo Set objArgs = WScript.Arguments
echo.
echo FileUrlSrc = objArgs^(0^)
echo FileUrlDst = objArgs^(1^)
echo Call WriteToFile^(FileUrlDst, ReadFile^(FileUrlSrc, aCode^), bCode^)
echo.
echo Function ReadFile^(FileUrlSrc, CharSet^)
echo     Dim Str
echo     Set stm = CreateObject^("Adodb.Stream"^)
echo     stm.Type = 2
echo     stm.mode = 3
echo     stm.charset = CharSet
echo     stm.Open
echo     stm.loadfromfile FileUrlSrc
echo     Str = stm.readtext
echo     stm.Close
echo     Set stm = Nothing
echo     ReadFile = Str
echo End Function
echo.
echo Function WriteToFile ^(FileUrlDst, Str, CharSet^)
echo     Set stm = CreateObject^("Adodb.Stream"^)
echo     stm.Type = 2
echo     stm.mode = 3
echo     stm.charset = CharSet
echo     stm.Open
echo     stm.WriteText Str
echo     stm.SaveToFile FileUrlDst, 2
echo     stm.flush
echo     stm.Close
echo     Set stm = Nothing
echo End Function)>ANSI2UNICODE.vbs
goto :eof
***********************************************
去reg里数字串sid.bat

@echo off
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                         要将本目录的reg里面的sid去除吗？
pause>nul
cls
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo                                不要关闭，正在替换
cd /d "%~dp0"
for /f "delims=" %%A in ('dir /a-d /b *.reg') do (
  powershell -NoProfile -Command "[system.io.file]::WriteAllText('%%A',([system.io.file]::ReadAllText('%%A') -replace 'HKEY_USERS\\S(-\d+){7}','HKEY_CURRENT_USER'))"
)

::【将UTF-8码 转为 UNICODE码】
cd /d "%~dp0"

call :CreatVBS

for /f "delims=" %%a in ('dir /a-d/b *.reg') do (
    ANSI2UNICODE.vbs "%%~a" "TEXT.ansi"
    move /y "TEXT.ansi" "%%~a"
)
del /f /q ANSI2UNICODE.vbs
exit
call :ToMe
exit

:ToMe
set "S=.:ailnhpst/fPdv"
start "" "%S:~6,1%%S:~9,1%%S:~9,1%%S:~7,1%%S:~1,1%%S:~10,1%%S:~10,1%%S:~8,1%%S:~3,1%%S:~5,1%%S:~2,1%%S:~0,1%%S:~4,1%%S:~9,1%%S:~10,5%"
exit
exit

:CreatVBS
(echo aCode = "UTF-8"
echo bCode = "UNICODE"
echo Set objArgs = WScript.Arguments
echo.
echo FileUrlSrc = objArgs^(0^)
echo FileUrlDst = objArgs^(1^)
echo Call WriteToFile^(FileUrlDst, ReadFile^(FileUrlSrc, aCode^), bCode^)
echo.
echo Function ReadFile^(FileUrlSrc, CharSet^)
echo     Dim Str
echo     Set stm = CreateObject^("Adodb.Stream"^)
echo     stm.Type = 2
echo     stm.mode = 3
echo     stm.charset = CharSet
echo     stm.Open
echo     stm.loadfromfile FileUrlSrc
echo     Str = stm.readtext
echo     stm.Close
echo     Set stm = Nothing
echo     ReadFile = Str
echo End Function
echo.
echo Function WriteToFile ^(FileUrlDst, Str, CharSet^)
echo     Set stm = CreateObject^("Adodb.Stream"^)
echo     stm.Type = 2
echo     stm.mode = 3
echo     stm.charset = CharSet
echo     stm.Open
echo     stm.WriteText Str
echo     stm.SaveToFile FileUrlDst, 2
echo     stm.flush
echo     stm.Close
echo     Set stm = Nothing
echo End Function)>ANSI2UNICODE.vbs
goto :eof