[文本处理] bat 其中一段代码怎么运行2次？

@echo off
cd /d %~dp0
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
taskkill /f /im DismHost.exe
taskkill /f /im dism.exe
setlocal EnableDelayedExpansion

set a=0
:run
for /f "delims=:" %%a in ('findstr /n msmg设置 ..\set.txt') do set n=%%a
for /f "skip=%n% delims=" %%b in (..\set.txt) do (
	for /f "tokens=1,2* delims=: " %%A in ('%%b\Bin\x64\DISM10\dism.exe /NoRestart /image:%%b\Mount\Install /Get-Capabilities') do (
		if "%%A %%B"=="Capability Identity" (
			set CapId=%%C
		) else if "%%A"=="State" if "%%B"=="Installed" (
			cd. >list.txt
			echo !CapId!>>list.txt
			findstr /g:black_list.txt /v list.txt 2>nul
			if errorlevel 2 (
				for /f "delims=" %%i in (list.txt) do (
					%%b\Bin\x64\DISM10\dism.exe /image:%%b\Mount\Install /Remove-Capability /CapabilityName:"%%i"
				)
			) else (
				for /f "delims=" %%i in ('findstr /g:black_list.txt /v list.txt 2^>nul') do (
					%%b\Bin\x64\DISM10\dism.exe /image:%%b\Mount\Install /Remove-Capability /CapabilityName:"%%i"
				)
			)
		)
	)
)
set /a a+=1
if %a% lss 2 goto :run
endlocal
pause
exit /b
复制代码