|
|
|
|
| Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Установка программ по сети |
|
|
Установка программ по сети
|
|
Пользователь Сообщения: 62 |
Добрый день!
Имеется локальная сеть из некоторого количества машин и одного сервера. На сервере поднят домен. Необходимо ставить однотипный софт на эти машины, например doPDF. Для автоматизации я написал вот такой скрипт: Код:
 run("\\192.168.2.63\kb2\DISTR\dopdf.exe")
WinWaitActive("Выберите язык установки", "Выберите язык, который будет использован в процессе установки:")
ControlClick("Выберите язык установки", "OK", "TNewButton1")
WinWaitActive("Установка — doPDF 6 printer", "Вас приветствует Мастер установки doPDF 6 printer")
ControlClick("Установка — doPDF 6 printer", "&Далее >", "TNewButton1")
WinWaitActive("Установка — doPDF 6 printer", "Лицензионное Соглашение")
ControlCommand("Установка — doPDF 6 printer", "Я &принимаю условия соглашения", "TNewRadioButton1", "Check")
ControlClick("Установка — doPDF 6 printer", "&Далее >", "TNewButton2")
WinWaitActive("Установка — doPDF 6 printer", "Выбор папки установки")
ControlClick("Установка — doPDF 6 printer", "&Далее >", "TNewButton3")
WinWaitActive("Установка — doPDF 6 printer", "Выберите папку в меню «Пуск»")
ControlClick("Установка — doPDF 6 printer", "&Далее >", "TNewButton4")
WinWaitActive("Установка — doPDF 6 printer", "Настройки принтера")
ControlClick("Установка — doPDF 6 printer", "&Далее >", "TNewButton4")
WinWaitActive("Установка — doPDF 6 printer", "Выберите языки интерфейса программы")
ControlClick("Установка — doPDF 6 printer", "&Далее >", "TNewButton4")
WinWaitActive("Установка — doPDF 6 printer", "Выберите язык интерфейса по умолчанию")
ControlClick("Установка — doPDF 6 printer", "&Далее >", "TNewButton4")
WinWaitActive("Установка — doPDF 6 printer", "Всё готово к установке")
ControlClick("Установка — doPDF 6 printer", "&Установить", "TNewButton4")
WinWaitActive("Установка — doPDF 6 printer", "Завершение Мастера установки doPDF 6 printer")
ControlClick("Установка — doPDF 6 printer", "&Завершить", "TNewButton4")
upd. Хорошо, пример с doPDF действительно не столь хорош и показателе. К сожалению, некоторая часть специального софта (КОМПАС, mechaniCS и т.д.) не поддерживают тихой установки. Для того же mechaniCS пришлось писать такой скрипт: Код:
run("\\192.168.2.63\kb2\AdminImg\MechaniCS\CsAcIntegrator\Setup.exe")
WinWaitActive("InstallShield Wizard", "Программа InstallShield® Wizard установит CsAcIntegrator на компьютер")
ControlClick("InstallShield Wizard", "&Далее >", "Button1")
sleep(60000)
run("\\192.168.2.63\kb2\AdminImg\MechaniCS\setup.exe")
WinWaitActive("Установка MechaniCS 8.1", "Программа установки выполнит установку MechaniCS 8.1 на Ваш компьютер. Нажмите кнопку Далее для продолжения или кнопку Отмена для выхода из программы установки.")
ControlClick("Установка MechaniCS 8.1", "&Далее >", "Button1")
WinWaitActive("Установка MechaniCS 8.1", "Пожалуйста, внимательно прочтите лицензионное соглашение.")
ControlCommand("Установка MechaniCS 8.1", "Я &принимаю условия лицензионного соглашения", "Button1", "Check")
ControlClick("Установка MechaniCS 8.1", "&Далее >", "Button3")
WinWaitActive("Установка MechaniCS 8.1", "Сведения о пользователе")
ControlClick("Установка MechaniCS 8.1", "&Далее >", "Button1")
WinWaitActive("Установка MechaniCS 8.1", "Папка назначения")
ControlClick("Установка MechaniCS 8.1", "&Далее >", "Button1")
WinWaitActive("Установка MechaniCS 8.1", "Выборочная установка")
ControlClick("Установка MechaniCS 8.1", "&Далее >", "Button4")
WinWaitActive("Установка MechaniCS 8.1", "Готовность к установке")
ControlClick("Установка MechaniCS 8.1", "&Установить", "Button1")
WinWaitActive("Установка MechaniCS 8.1", "Завершение работы Мастера установки MechaniCS 8.1")
ControlCommand("Установка MechaniCS 8.1", "", "[ID:1160]", "Uncheck")
ControlClick("Установка MechaniCS 8.1", "&Завершить", "Button1")
|
|
|
Отправлено: 13:29, 05-09-2013 |
|
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата kelevara:
|
|
|
Отправлено: 13:32, 05-09-2013 | #2 |
|
Пользователь Сообщения: 62
|
Профиль | Отправить PM | Цитировать Iska, за ссылку спасибо, но все же...
Проблема заключается в том, что у нас используется ряд софта, например тот же КОМПАС, разработчики которого похоже против автоматической установки (нет ни сетевого развертывания ни параметров запуска). Поэтому я решил использовать для установки скрипты. Ну а поскольку от них все равно не отказаться, то я решил все сделать одним инструментом. |
|
Отправлено: 13:37, 05-09-2013 | #3 |
|
Старожил Сообщения: 168
|
Профиль | Отправить PM | Цитировать |
|
------- Отправлено: 13:15, 06-09-2013 | #4 |
|
Участник сейчас на форуме |
 |
Участник вне форума |
 |
Автор темы |
 |
Сообщение прикреплено |
| |||||
| Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
| [решено] Автоматическая установка программ по умолчанию | DarkDream604 | Автоматическая установка приложений | 0 | 21-03-2009 22:23 | |
| Установка XP из под MSDOS загруженного по сети с поддержкой сети | bosyak | Автоматическая установка Windows 2000/XP/2003 | 4 | 14-01-2008 03:32 | |
| Установка ПО - выбор программ перед установкой | Vadikan | Автоматическая установка Windows 2000/XP/2003 | 83 | 13-12-2007 12:43 | |
| Использование оборудования и программ по сети... | Svetlana1 | Сетевые технологии | 12 | 14-07-2007 13:45 | |
| Установка программ по сети | YDen | Microsoft Windows NT/2000/2003 | 3 | 23-09-2006 17:25 | |
|
|
Время: 20:39. | © OSzone.net 2001-
|
|
Powered by: vBulletin Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. |
