Установка 1с на удаленных компьютерах

@echo off
setlocal EnableDelayedExpansion
 
set in=c:\1\444
set out=c:\1\555
 
:: считаем количество файлов
For /F "Delims=" %%i In ('DIR /B/S/A-D "%in%\*"^|Find /V /C ""') Do Set cntA=%%i
Set cnt=0
Set N_Col=79
 
:: отправляем файлы на копирование
For /F "Delims=" %%i In ('DIR /B/S/A-D "%in%" 2^>Nul') Do (
Call :Work "%%i"
Call :Bar Обработано
)
pause
exit /b
 
:Work
Set "file=%~1"
xcopy /s /e /y "%~1" "%out%" >Nul 2>>"%~dpn0.err"
GoTo :EOF
 
:Bar
If %cnt%==0 (
 For /L %%a In (1,1,%N_Col%) Do Set Line0=!Line0!в–‘
 For /L %%a In (1,1,%N_Col%) Do Set Line0=!Line0!
 <Nul Set /p X=!Line0!
)
Set /a Inc=((%cnt%+1)*%N_Col%)/%cntA%-(%cnt%*%N_Col%)/%cntA%
If %Inc% GTR 0 For /L %%a In (1,1,%Inc%) Do <Nul Set /p X=в–€
Set /a cnt+=1
Set /a prsnt=cnt*100/cntA
Title %1 %prsnt%%% файлов: %cnt% из %cntA%
GoTo :EOF

@Echo Off
Setlocal EnableDelayedExpansion  //ХЗ
MODE CON COLS=80 LINES=4        //80 стоолбцов 4 строки
color 1e    //установка цвета
rem —Ёб«® бЁ¬ў®«®ў ў Їа®ЈаҐббЎ*ॠ  // какой-то коментарий
Set N_Col=79  // установка значения переменной 
rem —Ёб«® ЁввҐа*жЁ© (д*©«®ў ў ¬®Ґ¬ б«гз*Ґ) ** 100%   // ещё комментарий
Set cntA=100  // установка значения переменной
Set cnt=0  // установка значения переменной
Echo ЋЎа*Ў®вЄ* §*ЇгйҐ**
:loop  // подраздел1
Call :Work  // вызов проц  work
Call :Bar ЋЎа*Ў®в**®  // вызов проц  bar
If Not %cnt%==%cntA% GoTo :loop  // вызов проц loop
Echo.
Echo ЋЎа*Ў®вЄ* §*ўҐаиҐ**   //ХЗ
pause
Exit
 
:Bar  // процедура Bar
If %cnt%==0 (
    For /L %%a In (1,1,%N_Col%) Do Set Line0=!Line0!°& Set Line1=!Line1!//Хз
    <Nul Set /p X=!Line0!!Line1!
)
Set /a cnt+=1, Inc=cnt*N_Col/cntA-%cnt%*N_Col/cntA, prsnt=cnt*100/cntA  //ХЗ
Title %1 %prsnt%%% д*©«®ў: %cnt% Ё§ %cntA% //ХЗ
If %Inc% GTR 0 For /L %%a In (1,1,%Inc%) Do <Nul Set /p X=Ы //ХЗ
GoTo :EOF  // перейти в конец файла
 
:Work
rem ‡¤Ґбм б®Ўб⢥**® а*Ў®з*п Їа®жҐ¤га* //комментарий
For /L %%k In (1,1,10000) Do rem // цикл 
GoTo :EOF // перейти в конец файла