[已解决]求助批处理延迟变量赋值的问题

zhoubin

::请根据实际情况，修改：j:\常用工具-文件\MAKE ISO\64位Windows8 专业版(原RESC.GHO)华硕P43SJ.WIM文件路径，适合32位Win7PE和64位Win8PE添加文件，参考
PUSHD %~dp0
@ECHO OFF
for /f "tokens=1* delims=[" %%a in ('ver') do set FulVer=%%b
set FulVer=%FulVer:* =%
for /f "tokens=2 delims=[" %%a in ('ver') do for /f "tokens=2,3 delims=. " %%b in ("%%a") do set Winver=%%b%%c
@ECHO On
::if /i not "%windir:~,2%"=="X:" exit
set TarWim=j:\常用工具-文件\MAKE ISO\64位Windows8 专业版(原RESC.GHO)华硕P43SJ.WIM
If not Exist "%TarWim%" goto GetFileVer

DISM.exe /Get-WimInfo /WimFile:"%TarWim%"
SET /P drive_letter=   请输入你要查看挂载的wim镜像卷(1/2/3/4/5...)
@echo.
DISM.exe /Get-WIMInfo /WimFile:"%TarWim%" /index:%drive_letter%
@echo.
@echo 按任意键开始挂载指定wim卷文件......
@pause >NUL 2>NUL
md D:\123
Dism.exe /Mount-Wim /WimFile:"%TarWim%" /index:%drive_letter% /MountDir:d:\123 /ReadOnly
::start "" explorer.exe /n,"D:\123\Windows\System32\"
set TarDir=C:\Windows
if exist "D:\123\Windows\*" set TarDir=D:\123\Windows
call :MakeFileLst
call :JudgeSys
if exist FlashCenter补充文件.txt call :CopyFiles
@echo.
@echo 按任意键开始卸载......
@pause >NUL 2>NUL

DISM.exe /Unmount-Wim /MountDir:d:\123 /discard
rd /s /q D:\123
pause&&exit

:MakeFileLst
del FlashCenter补充文件.txt 2>NUL
if /i not "%windir:~,2%"=="X:" set TarDiX=%TarDir%
if /i "%windir:~,2%"=="X:" set TarDiX=%WinDir%
if exist "%TarDir%\WinSxs\*.7600.*" if not exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo ;;FlashCenter For Win10.安装再精简-FlashCenter可用，32位win7PE下，还需补充以下文件，PE下请连网测试；存档参考. . .>FlashCenter补充文件.txt
if exist "%TarDir%\WinSxs\*.7600.*" if not exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\System32\d3d9.dll>>FlashCenter补充文件.txt
帖子字数限制，其他文件，略. . .

if exist "%TarDir%\WinSxs\*.7600.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo ;;FlashCenter For Win10.安装再精简-FlashCenter可用，32位win7PE下，还需补充以下文件，PE下请连网测试；存档参考. . .>FlashCenter补充文件.txt
if exist "%TarDir%\WinSxs\*.7600.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\SysWOW64\d3d9.dll>>FlashCenter补充文件.txt
帖子字数限制，其他文件，略. . .

if exist "%TarDir%\WinSxs\*.9200.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.9200.*" echo ;;FlashCenter For Win10.安装再精简-FlashCenter可用，64位win8PE下，还需补充以下文件，PE下请连网测试；存档参考. . .>FlashCenter补充文件.txt
if exist "%TarDir%\WinSxs\*.9200.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.9200.*" echo Windows\SysWOW64\dhcpcsvc.dll>>FlashCenter补充文件.txt
帖子字数限制，其他文件，略. . .
goto :eof

:CopyFiles
@echo off
PUSHD %~dp0

if /i "%windir:~,2%"=="X:" goto CopyFilesPE
for /f "delims=" %%a in (FlashCenter补充文件.txt) do (
  for /f "delims=" %%b in ("\%%~a") do (
    if /i not "%windir:~,2%"=="X:" if not exist "D:\123\Windows\*" xcopy "C:\%%~a" "%cd%\FlashCenter补充文件%%~pb" /h /y
    if /i not "%windir:~,2%"=="X:" if exist "D:\123\Windows\*" xcopy "D:\123\%%~a" "%cd%\FlashCenter补充文件%%~pb" /h /y
  )
)
@echo on
if exist "%cd%\FlashCenter补充文件" move FlashCenter补充文件.txt "%cd%\FlashCenter补充文件"
goto :eof

:CopyFilesPE
@echo off
PUSHD %~dp0
for /f "delims=" %%a in (FlashCenter补充文件.txt) do (
  for /f "delims=" %%b in ("\%%~a") do (
    if /i "%windir:~,2%"=="X:" if %TarVer:~,4%==%FulVer:~,4% if exist "D:\123\*" xcopy "D:\123\%%~a" "%SystemDrive%\%%~pb" /h /y
    if /i "%windir:~,2%"=="X:" if %TarVer:~,4%==%FulVer:~,4% if %TardrV%==C: xcopy "C:\%%~a" "%SystemDrive%\%%~pb" /h /y
  )
)
@echo on
if /i "%windir:~,2%"=="X:" IF %PROCESSOR_ARCHITECTURE:~-2%%Winver% EQU 8661 Move %Windir%\SysWOW64\* %Windir%\System32 2>NUL
if /i "%windir:~,2%"=="X:" IF %PROCESSOR_ARCHITECTURE:~-2%%Winver% EQU 8661 rd /s /q %Windir%\SysWOW64 2>NUL
goto :eof

:GetFileVer
@echo off
set FileVer=6.1.7601.17514
set FilePath =C:\Windows\System32\
If Exist %Windir%\SysWOW64\wbem\WMIC.exe for /f "skip=1 tokens=2 delims==" %%i in (
  '%Windir%\SysWOW64\wbem\WMIC.exe datafile where "name='%FilePath :\=\\%cmd.exe'" get Version /format:list'
) do for /f "delims=" %%v in ("%%i") do set "FileVer=%%v"

If Exist %Windir%\System32\wbem\WMIC.exe for /f "skip=1 tokens=2 delims==" %%i in (
  '%Windir%\SysWOW64\wbem\WMIC.exe datafile where "name='%FilePath :\=\\%cmd.exe'" get Version /format:list'
) do for /f "delims=" %%v in ("%%i") do set "FileVer=%%v"
@echo on
set TarDir=C:\Windows
if exist "D:\123\Windows\*" set TarDir=D:\123\Windows
call :MakeFileLst
call :JudgeSys
if exist FlashCenter补充文件.txt call :CopyFiles
pause&&exit

:JudgeSys
@echo off
if not exist %Windir%\System32\findstr.exe goto JudgeSysNoStr
setlocal enabledelayedexpansion
for /d %%a in (C D E F G H I J K L M N O P Q R S T U V W Y Z) do if exist %%a:\Windows\System32\config\system set /a n+=1 && set "TardrV-!n!=%%a:"
if exist "D:\123\Windows\*" set /a n+=1 && set "TardrV-!n!=D:\123"
for /l %%b in (1,1,!n!) do (
        if /i not "%Systemdrive%"=="!TardrV-%%b!" (
                set load_System_%%b=HKLM\Temp_System_%%b
                set load_Software_%%b=HKLM\Temp_Software_%%b
                reg load "!load_System_%%b!" !TardrV-%%b!\Windows\System32\config\SYSTEM >nul 2>&1
                reg load "!load_Software_%%b!" !TardrV-%%b!\Windows\System32\config\SOFTWARE >nul 2>&1
                if exist !TardrV-%%b!\Windows\SysWOW64 (set TarOsarch-%%b=x64) else if not exist !TardrV-%%b!\Windows\SysWOW64 (set TarOsarch-%%b=x86) else set "TarOsarch-%%b=???"
        )
        for /f "tokens=3" %%c in ('reg query "!load_System_%%b!\Setup\Service Reporting API\Components\CoreOS" /v Version 2^>nul ^| findstr /i "REG_SZ"') do (
        set TarVer-%%b=%%c
        if "!TarVer-%%b:~0,4!"=="%FulVer:~,4%" set TarVer=TarVer-%%b
        )
        if not defined TarVer-%%b (
                for /f "tokens=3" %%f in ('reg query "!load_Software_%%b!\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion 2^>nul ^| findstr /i "REG_SZ"') do set TarVer-%%b=%%f
                for /f "tokens=3" %%g in ('reg query "!load_Software_%%b!\Microsoft\Windows NT\CurrentVersion" /v CurrentBuildNumber 2^>nul ^| findstr /i "REG_SZ"') do set TarVer-%%b=!TarVer-%%b!.%%g
                if "!TarVer-%%b:~0,4!"=="%FulVer:~,4%" set TarVer=TarVer-%%b
        )

        for /f "tokens=3*" %%d in ('reg query "!load_Software_%%b!\Microsoft\Windows NT\CurrentVersion" /v ProductName 2^>nul ^| findstr /i "REG_SZ"') do set TarName-%%b=%%d %%e
        reg unload "!load_System_%%b!" >nul 2>&1
        reg unload "!load_Software_%%b!" >nul 2>&1
        echo; %%b│盘符│!TardrV-%%b!│离线系统│!TarName-%%b!^|!TarOsarch-%%b!^|^(!TarVer-%%b!^)
)
::endlocal

@echo off
if /i not "%systemdrive%"=="X:" set LoadrV=C:
if /i "%systemdrive%"=="X:" set LoadrV=X:
setlocal enabledelayedexpansion
if exist %Windir%\SysWOW64 (set LoaOsarch=x64) else if not exist %Windir%\SysWOW64 (set LoaOsarch=x86) else set "LoaOsarch=???"
for /f "tokens=3" %%c in ('reg query "HKLM\SYSTEM\Setup\Service Reporting API\Components\CoreOS" /v Version 2^>nul ^| findstr /i "REG_SZ"') do set LoaVer=%%c
if not defined LoaVer (
for /f "tokens=3" %%f in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion 2^>nul ^| findstr /i "REG_SZ"') do set LoaVer=%%f
for /f "tokens=3" %%g in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentBuildNumber 2^>nul ^| findstr /i "REG_SZ"') do set LoaVer=!LoaVer!.%%g
)
for /f "tokens=3*" %%d in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName 2^>nul ^| findstr /i "REG_SZ"') do set LoaName=%%d %%e
echo; %LoadrV%│本地系统│%LoaName%│%LoaOsarch%│^(%LoaVer%^)
::endlocal
@echo on
goto :eof

:JudgeSysNoStr
@echo on
if exist "%TarDir%\WinSxs\*.7600.*" set TarVer=6.1.7601.17514
if exist "%TarDir%\WinSxs\*.9200.*" set TarVer=6.2.9200.16384
goto :eof

zhoubin

一楼贴的是完整代码，其中标红的部分有问题，代码执行到标红的地方，就退出了，请高手帮我修改一下，谢谢

77七

%%包裹的变量，能加双引号尽量都加上，否则可能因为预处理造成问题。

调试参考 批处理调试手段与常见错误浅析 1.点击运行时，窗口一闪而过

zhoubin

改成这样：
if /i "%windir:~,2%"=="X:" if !TarVer:~,4!==%FulVer:~,4% if exist "D:\123\*" xcopy "D:\123\%%~a" "%SystemDrive%\%%~pb" /h /y
64位Win8PE下测试，标红部分仍然得不到正确值，提示错误：此时不应有 4!==6.2

aloha20200628

回复 4# zhoubin

用双引号包裹 if 比较表达式中 == 两边的字段即可，如下
   if /i "%windir:~,2%"=="X:" if "!TarVer:~,4!"=="%FulVer:~,4%" ...

zhoubin

用双引号包裹
if /i "%windir:~,2%"=="X:" if "!TarVer:~,4!"=="%FulVer:~,4%" if exist "D:\123\*" xcopy "D:\123\%%~a" "%SystemDrive%%%~pb" /h /y
执行的结果是：
if /I "X:" == "X:" if "!TarVer:~,4!" == "6.2." if exist "D:\123\*" xcopy "D:\123\Windows\SysWOW64\d3d11.dll" "X:\Windows\SysWOW64\" /h /y
标红的地方没有正确解析

aloha20200628

回复 6# zhoubin

所谓延迟变量未被正确解析的原因是 ‘变量延迟’ 已被关闭 或 引用的延迟变量 !TarVer! 未被赋值（或是空值）

Batcher

回复 6# zhoubin


脚本第一行增加：
setlocal enabledelayedexpansion

其他地方的 setlocal enabledelayedexpansion 全部删除

zhoubin

回复 7# aloha20200628
谢谢，发现：不能跨标签段，引用延迟变量赋值，感谢提醒

zhoubin

1. ::-----请根据实际情况，修改：H:\常用工具-文件\MAKE ISO\64位Windows8 专业版(原RESC.GHO)华硕P43SJ.WIM文件路径；适合32位Win7PE和64位Win8PE添加文件，参考-----
   
2. ::64位Win7SP1下，若Dism挂载.wim文件失败,需要安装PETOOLS\程序\磁盘光盘\WIM镜像\WIMSETUP\WIN7系统中的WIMMOUNT组件.EXE，其他更多系统，略. . .
   
3. ::批处理调试
   
4. ::%1 @cmd /k %0 :
   
5. setlocal enabledelayedexpansion
   
6. PUSHD %~dp0
   
7. @ECHO OFF
   
8. for /f "tokens=1* delims=[" %%a in ('ver') do set FulVer=%%b
   
9. set FulVer=%FulVer:* =%
   
10. for /f "tokens=2 delims=[" %%a in ('ver') do for /f "tokens=2,3 delims=. " %%b in ("%%a") do set Winver=%%b%%c
    
11. @ECHO On
    
12. ::if /i not "%windir:~,2%"=="X:" exit
    
13. set TarWim=H:\常用工具-文件\MAKE ISO\64位Windows8 专业版(原RESC.GHO)华硕P43SJ.WIM
    
14. If not Exist "%TarWim%" call :JudgeSys
    
15. If not Exist "%TarWim%" goto GetFileVer
    
16. 
    
17. ::Dism挂载.cmd
    
18. DISM.exe /Get-WimInfo /WimFile:"%TarWim%"
    
19. SET /P drive_letter=   请输入你要查看挂载的wim镜像卷(1/2/3/4/5...)
    
20. @echo.
    
21. DISM.exe /Get-WIMInfo /WimFile:"%TarWim%" /index:%drive_letter%
    
22. @echo.
    
23. @echo 按任意键开始挂载指定wim卷文件......
    
24. ::@pause >NUL 2>NUL
    
25. md D:\123
    
26. Dism.exe /Mount-Wim /WimFile:"%TarWim%" /index:%drive_letter% /MountDir:D:\123 /ReadOnly
    
27. ::start "" explorer.exe /n,"D:\123\Windows\System32"
    
28. call :JudgeSys
    
29. set TarDir=C:\Windows
    
30. if not exist "C:\Windows\*" if exist "D:\Windows\*" set TarDir=D:\Windows
    
31. if exist "D:\123\Windows\*" set TarDir=D:\123\Windows
    
32. if not exist "D:\123\Windows\*" if "!TarVer:~0,4!"=="%FulVer:~,4%" set TarDir=!TardrV!\Windows
    
33. call :MakeFileLst
    
34. @echo on
    
35. if exist FlashCenter补充文件.txt call :CopyFiles
    
36. @echo.
    
37. @echo 按任意键开始卸载......
    
38. @pause >NUL 2>NUL
    
39. 
    
40. ::Dism卸载.cmd
    
41. DISM.exe /Unmount-Wim /MountDir:D:\123 /discard
    
42. rd /s /q D:\123
    
43. pause&&exit
    
44. 
    
45. :MakeFileLst
    
46. del FlashCenter补充文件.txt 2>NUL
    
47. if /i not "%windir:~,2%"=="X:" set TarDiX=%TarDir%
    
48. if /i "%windir:~,2%"=="X:" set TarDiX=%WinDir%
    
49. if exist "%TarDir%\WinSxs\*.7600.*" if not exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo ;;FlashCenter For 64位Win10.安装再精简-FlashCenter可用，32位win7PE下，还需补充以下文件，PE下请连网测试；存档参考. . .>FlashCenter补充文件.txt
    
50. if exist "%TarDir%\WinSxs\*.7600.*" if not exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\System32\d3d9.dll>>FlashCenter补充文件.txt
    
51. if exist "%TarDir%\WinSxs\*.7600.*" if not exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\System32\d3d11.dll>>FlashCenter补充文件.txt
    
52. if exist "%TarDir%\WinSxs\*.7600.*" if not exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\System32\dxgi.dll>>FlashCenter补充文件.txt
    
53. if exist "%TarDir%\WinSxs\*.7600.*" if not exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\System32\dxva2.dll>>FlashCenter补充文件.txt
    
54. if exist "%TarDir%\WinSxs\*.7600.*" if not exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\System32\dhcpcsvc.dll>>FlashCenter补充文件.txt
    
55. 
    
56. if exist "%TarDir%\WinSxs\*.7600.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo ;;FlashCenter For 64位Win10.安装再精简-FlashCenter可用，32位win7PE下，还需补充以下文件，PE下请连网测试；存档参考. . .>FlashCenter补充文件.txt
    
57. if exist "%TarDir%\WinSxs\*.7600.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\SysWOW64\d3d9.dll>>FlashCenter补充文件.txt
    
58. if exist "%TarDir%\WinSxs\*.7600.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\SysWOW64\d3d11.dll>>FlashCenter补充文件.txt
    
59. if exist "%TarDir%\WinSxs\*.7600.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\SysWOW64\dxgi.dll>>FlashCenter补充文件.txt
    
60. if exist "%TarDir%\WinSxs\*.7600.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\SysWOW64\dxva2.dll>>FlashCenter补充文件.txt
    
61. if exist "%TarDir%\WinSxs\*.7600.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.7600.*" echo Windows\SysWOW64\dhcpcsvc.dll>>FlashCenter补充文件.txt
    
62. 
    
63. if exist "%TarDir%\WinSxs\*.9200.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.9200.*" echo ;;FlashCenter For 64位Win10.安装再精简-FlashCenter可用，64位win8PE下，还需补充以下文件，PE下请连网测试；存档参考. . .>FlashCenter补充文件.txt
    
64. if exist "%TarDir%\WinSxs\*.9200.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.9200.*" echo Windows\SysWOW64\dhcpcsvc.dll>>FlashCenter补充文件.txt
    
65. if exist "%TarDir%\WinSxs\*.9200.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.9200.*" echo Windows\SysWOW64\dxgi.dll>>FlashCenter补充文件.txt
    
66. if exist "%TarDir%\WinSxs\*.9200.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.9200.*" echo Windows\SysWOW64\dxva2.dll>>FlashCenter补充文件.txt
    
67. if exist "%TarDir%\WinSxs\*.9200.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.9200.*" echo Windows\SysWOW64\ncrypt.dll>>FlashCenter补充文件.txt
    
68. if exist "%TarDir%\WinSxs\*.9200.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.9200.*" echo Windows\SysWOW64\ntasn1.dll>>FlashCenter补充文件.txt
    
69. if exist "%TarDir%\WinSxs\*.9200.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.9200.*" echo Windows\SysWOW64\d3d9.dll>>FlashCenter补充文件.txt
    
70. if exist "%TarDir%\WinSxs\*.9200.*" if exist %TarDir%\SysWOW64 if exist "%TarDiX%\WinSxs\*.9200.*" echo Windows\SysWOW64\d3d11.dll>>FlashCenter补充文件.txt
    
71. goto :eof
    
72. 
    
73. :CopyFiles
    
74. ::按文件列表拷文件到对应目录.cmd，以下适合系统下,复制文件
    
75. @echo off
    
76. PUSHD %~dp0
    
77. ::不能跨标签段，引用延迟变量赋值（存档参考）
    
78. if /i "%windir:~,2%"=="X:" goto CopyFilesPE
    
79. for /f "delims=" %%a in (FlashCenter补充文件.txt) do (
    
80.   for /f "delims=" %%b in ("\%%~a") do (
    
81.     if /i not "%windir:~,2%"=="X:" if not exist "D:\123\Windows\*" xcopy "%SystemDrive%\%%~a" "%cd%\FlashCenter补充文件%%~pb" /h /y
    
82.     if /i not "%windir:~,2%"=="X:" if not exist "D:\123\Windows\*" if "!TarVer:~0,4!"=="%FulVer:~,4%" xcopy "!TardrV!\%%~a" "%cd%\FlashCenter补充文件%%~pb" /h /y
    
83.     if /i not "%windir:~,2%"=="X:" if exist "D:\123\Windows\*" xcopy "D:\123\%%~a" "%cd%\FlashCenter补充文件%%~pb" /h /y
    
84.   )
    
85. )
    
86. @echo on
    
87. if exist "%cd%\FlashCenter补充文件" move FlashCenter补充文件.txt "%cd%\FlashCenter补充文件"
    
88. goto :eof
    
89. 
    
90. :CopyFilesPE
    
91. ::不能跨标签段，引用延迟变量赋值（存档参考）
    
92. ::按文件列表拷文件到对应目录.cmd，以下适合PE下，添加系统文件
    
93. @echo off
    
94. PUSHD %~dp0
    
95. for /f "delims=" %%a in (FlashCenter补充文件.txt) do (
    
96.   for /f "delims=" %%b in ("\%%~a") do (
    
97.     rem if /i "%windir:~,2%"=="X:" if "!TarVer:~0,4!"=="%FulVer:~,4%" if exist "D:\123\*" xcopy "D:\123\%%~a" "%SystemDrive%%%~pb" /h /y
    
98.     rem if /i "%windir:~,2%"=="X:" if "!TarVer:~0,4!"=="%FulVer:~,4%" if "!TardrV!"=="C:" xcopy "C:\%%~a" "%SystemDrive%%%~pb" /h /y
    
99.     rem if /i "%windir:~,2%"=="X:" if "!TarVer:~0,4!"=="%FulVer:~,4%" if "!TardrV!"=="D:" xcopy "D:\%%~a" "%SystemDrive%%%~pb" /h /y
    
100.     if /i "%windir:~,2%"=="X:" if "!TarVer:~0,4!"=="%FulVer:~,4%" if exist "%TardrV%\Windows\*" xcopy "%TardrV%\%%~a" "%SystemDrive%%%~pb" /h /y
     
101.   )
     
102. )
     
103. @echo on
     
104. if /i "%windir:~,2%"=="X:" IF %PROCESSOR_ARCHITECTURE:~-2%%Winver% EQU 8661 Move %Windir%\SysWOW64\* %Windir%\System32 2>NUL
     
105. if /i "%windir:~,2%"=="X:" IF %PROCESSOR_ARCHITECTURE:~-2%%Winver% EQU 8661 rd /s /q %Windir%\SysWOW64 2>NUL
     
106. goto :eof
     

复制代码

zhoubin

1. 
   
2. :GetFileVer
   
3. ::获取文件版本（系统版本）
   
4. @echo off
   
5. set FileVer=6.1.7601.17514
   
6. set FilePath =C:\Windows\System32\
   
7. if not exist "C:\Windows\*" if exist "D:\Windows\*" set FilePath =D:\Windows\System32\
   
8. if not exist "C:\Windows\*" if not exist "D:\Windows\*" set FilePath =!TardrV!\Windows\System32\
   
9. Rem 获取文件版本（系统版本），PE下无效
   
10. If Exist %Windir%\SysWOW64\wbem\WMIC.exe for /f "skip=1 tokens=2 delims==" %%i in (
    
11.   '%Windir%\SysWOW64\wbem\WMIC.exe datafile where "name='%FilePath :\=\\%cmd.exe'" get Version /format:list'
    
12. ) do for /f "delims=" %%v in ("%%i") do set "FileVer=%%v"
    
13. 
    
14. If Exist %Windir%\System32\wbem\WMIC.exe for /f "skip=1 tokens=2 delims==" %%i in (
    
15.   '%Windir%\System32\wbem\WMIC.exe datafile where "name='%FilePath :\=\\%cmd.exe'" get Version /format:list'
    
16. ) do for /f "delims=" %%v in ("%%i") do set "FileVer=%%v"
    
17. @echo on
    
18. set TarDir=C:\Windows
    
19. if not exist "C:\Windows\*" if exist "D:\Windows\*" set TarDir=D:\Windows
    
20. if exist "D:\123\Windows\*" set TarDir=D:\123\Windows
    
21. if not exist "D:\123\Windows\*" if "!TarVer:~0,4!"=="%FulVer:~,4%" set TarDir=!TardrV!\Windows
    
22. call :MakeFileLst
    
23. if exist FlashCenter补充文件.txt call :CopyFiles
    
24. pause&&exit
    
25. 
    
26. :JudgeSys
    
27. @echo off
    
28. @echo.
    
29. set TardrV=C:
    
30. if not exist "C:\Windows\*" if exist "D:\Windows\*" set TardrV=D:
    
31. if exist "D:\123\Windows\*" set TardrV=D:\123
    
32. if not exist %Windir%\System32\findstr.exe goto JudgeSysNoStr
    
33. rem 查找所有系统盘盘符、系统名称、类型、版本号
    
34. for /d %%a in (C D E F G H I J K L M N O P Q R S T U V W Y Z) do if exist %%a:\Windows\System32\config\system set /a n+=1 && set "TardrV-!n!=%%a:"
    
35. if exist "D:\123\Windows\*" set /a n+=1 && set "TardrV-!n!=D:\123"
    
36. for /l %%b in (1,1,!n!) do (
    
37.         if /i not "%Systemdrive%"=="!TardrV-%%b!" (
    
38.                 set load_System_%%b=HKLM\Temp_System_%%b
    
39.                 set load_Software_%%b=HKLM\Temp_Software_%%b
    
40.                 rem 加载注册表 SYSTEM 到HKLM\Temp_System，SOFTWARE到HKLM\Temp_Software
    
41.                 reg load "!load_System_%%b!" !TardrV-%%b!\Windows\System32\config\SYSTEM >nul 2>&1
    
42.                 reg load "!load_Software_%%b!" !TardrV-%%b!\Windows\System32\config\SOFTWARE >nul 2>&1
    
43.                 rem 查询系统类型
    
44.                 if exist !TardrV-%%b!\Windows\SysWOW64 (set TarOsarch-%%b=x64) else if not exist !TardrV-%%b!\Windows\SysWOW64 (set TarOsarch-%%b=x86) else set "TarOsarch-%%b=???"
    
45.         )
    
46.         rem 查询系统版本号
    
47.         for /f "tokens=3" %%c in ('reg query "!load_System_%%b!\Setup\Service Reporting API\Components\CoreOS" /v Version 2^>nul ^| findstr /i "REG_SZ"') do (
    
48.         set TarVer-%%b=%%c
    
49.         if "!TarVer-%%b:~0,4!"=="%FulVer:~,4%" set TarVer=!TarVer-%%b!
    
50.         )
    
51.         rem 如果上面未查询到版本号，则在此处查询
    
52.         if not defined TarVer-%%b (
    
53.                 for /f "tokens=3" %%f in ('reg query "!load_Software_%%b!\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion 2^>nul ^| findstr /i "REG_SZ"') do set TarVer-%%b=%%f
    
54.                 for /f "tokens=3" %%g in ('reg query "!load_Software_%%b!\Microsoft\Windows NT\CurrentVersion" /v CurrentBuildNumber 2^>nul ^| findstr /i "REG_SZ"') do set TarVer-%%b=!TarVer-%%b!.%%g
    
55.                 if "!TarVer-%%b:~0,4!"=="%FulVer:~,4%" set TarVer=!TarVer-%%b!
    
56.         )
    
57.         rem 查询系统名称
    
58.         for /f "tokens=3*" %%d in ('reg query "!load_Software_%%b!\Microsoft\Windows NT\CurrentVersion" /v ProductName 2^>nul ^| findstr /i "REG_SZ"') do set TarName-%%b=%%d %%e
    
59.         if "!TarVer-%%b:~0,4!"=="%FulVer:~,4%" set TardrV=!TardrV-%%b!
    
60.         rem 卸载加载的注册表
    
61.         reg unload "!load_System_%%b!" >nul 2>&1
    
62.         reg unload "!load_Software_%%b!" >nul 2>&1
    
63.         echo; %%b│盘符│!TardrV-%%b!│离线系统│!TarName-%%b!^|!TarOsarch-%%b!^|^(!TarVer-%%b!^)
    
64.         rem echo; %%b│盘符│!TardrV-%%b!│离线系统│!TarName-%%b!^|!TarOsarch-%%b!^|^(!TarVer-%%b!^)^|文件源自!TardrV!^|版本^(!TarVer!^)
    
65. )
    
66. 
    
67. @echo off
    
68. if /i not "%Systemdrive%"=="X:" set LoadrV=C:
    
69. if /i "%Systemdrive%"=="X:" set LoadrV=X:
    
70. set LoadrV=%Systemdrive%
    
71. rem 查询系统类型
    
72. if exist %Windir%\SysWOW64 (set LoaOsarch=x64) else if not exist %Windir%\SysWOW64 (set LoaOsarch=x86) else set "LoaOsarch=???"
    
73. rem 查询系统版本号
    
74. for /f "tokens=3" %%c in ('reg query "HKLM\SYSTEM\Setup\Service Reporting API\Components\CoreOS" /v Version 2^>nul ^| findstr /i "REG_SZ"') do set LoaVer=%%c
    
75. rem 如果上面未查询到版本号，则在此处查询
    
76. if not defined LoaVer (
    
77. for /f "tokens=3" %%f in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentVersion 2^>nul ^| findstr /i "REG_SZ"') do set LoaVer=%%f
    
78. for /f "tokens=3" %%g in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v CurrentBuildNumber 2^>nul ^| findstr /i "REG_SZ"') do set LoaVer=!LoaVer!.%%g
    
79. )
    
80. rem 查询系统名称
    
81. for /f "tokens=3*" %%d in ('reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v ProductName 2^>nul ^| findstr /i "REG_SZ"') do set LoaName=%%d %%e
    
82. echo; %LoadrV%│本地系统│%LoaName%│%LoaOsarch%│^(%LoaVer%^)
    
83. @echo on
    
84. goto :eof
    
85. 
    
86. :JudgeSysNoStr
    
87. @echo on
    
88. if exist "%TarDir%\WinSxs\*.7600.*" set TarVer=6.1.7601.17514
    
89. if exist "%TarDir%\WinSxs\*.9200.*" set TarVer=6.2.9200.16384
    
90. goto :eof
    

复制代码

zhoubin

解决了；由于论坛帖子字数的限制，把10楼和11楼的代码合起来就是完整版的，可以直接使用，现分享给大家，谢谢大家的帮助！
经反复测试，把10楼和11楼的代码更新了一下，顺祝大家五一快乐！

更新了，说明一下：
这个批处理用于：在32位Win7PE和64位Win8PE下，添加FlashCenter所需的系统文件；在正常系统下保存32位Win7PE和64位Win8PE所需的FlashCenter系统文件，以备在32位Win7PE和64位Win8PE下，手动添加FlashCenter系统文件；如有其他需要，请自行修改本批处理脚本！