Установка программ по сети
Добрый день!
Имеется локальная сеть из некоторого количества машин и одного сервера. На сервере поднят домен. Необходимо ставить однотипный софт на эти машины, например 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")
Сам вопрос остается в силе: как распространить его на n машин в сети, чтобы запуск и установка происходили без моего участия? |
