|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Скрипт для продолжения установки после отработки процесса |
|
[решено] Скрипт для продолжения установки после отработки процесса
|
Ветеран Сообщения: 2756 |
Делаю установку MathCAD 14. Для чего запускаю скрипт CMD:
IF EXIST "%ProgramFiles%\Mathcad\Mathcad 14\mathcad.exe" exit IF EXIST "%systemroot%\PS.txt" goto XP exit :XP start /wait Setup.exe /s /sms /v" /qn SILENTINSTALL=\"TRUE\" PRODUCTTYPE=\"ENT\" ALLUSERS=1 PRODUCT_CODE=11111111111111-1111-1111 LICENSEPATH=license.dat xcopy license "%ProgramFiles%\Mathcad\Mathcad 14\" /S /H /Y start /wait REGEDIT /S license.reg xcopy Rus "%ProgramFiles%\Mathcad\Mathcad 14\" /S /H /Y exit start /wait Setup.exe /s /sms /v" /qn SILENTINSTALL=\"TRUE\" PRODUCTTYPE=\"ENT\" ALLUSERS=1 PRODUCT_CODE=11111111111111-1111-1111 LICENSEPATH=license.dat И также нужно в скрипте реализовать мои первых два условия проверки наличия установленной проги (если есть то завершение скрипта) и наличие маркерного файла (если его нет то завершение скрипта). Спасибо. |
|
Отправлено: 23:32, 14-05-2009 |
![]() Старожил Сообщения: 206
|
Профиль | Отправить PM | Цитировать На AutoIt это будет выглядеть примерно так:
#NoTrayIcon If (FileExists(@ProgramFilesDir & '\Mathcad\Mathcad 14\mathcad.exe')) Or (Not FileExists(@SystemDir & '\PS.txt')) Then Exit EndIf RunWait('Setup.exe /s /sms /v /qn SILENTINSTALL=TRUE PRODUCTTYPE=ENT ALLUSERS=1 PRODUCT_CODE=11111111111111-1111-1111 LICENSEPATH=license.dat') Sleep(1000) ProcessWaitClose('IDriver.exe') Sleep(5000); На всякий случай ShellExecuteWait('xcopy', 'license "' & @ProgramFilesDir & '\Mathcad\Mathcad 14\" /S /H /Y') RunWait('Regedit.exe /S license.reg') MsgBox(0, 'MathCAD 14', 'Установка завершена.') IF EXIST "%ProgramFiles%\Mathcad\Mathcad 14\mathcad.exe" exit IF EXIST "%systemroot%\PS.txt" goto XP exit :XP start /wait Setup.exe /s /sms /v" /qn SILENTINSTALL=\"TRUE\" PRODUCTTYPE=\"ENT\" ALLUSERS=1 PRODUCT_CODE=11111111111111-1111-1111 LICENSEPATH=license.dat Sleep.vbs xcopy license "%ProgramFiles%\Mathcad\Mathcad 14\" /S /H /Y start /wait REGEDIT /S license.reg xcopy Rus "%ProgramFiles%\Mathcad\Mathcad 14\" /S /H /Y exit Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2") Set objRefresher = CreateObject("WbemScripting.SWbemRefresher") Set colItems = objRefresher.AddEnum(objService, "Win32_Process").objectSet Do Until False Wscript.Sleep 1000 objRefresher.Refresh Flag = True For Each objItem in colItems If InStr(objItem.ExecutablePath, "IDriver.exe") Then Flag = False End If Next If Flag = True Then Exit Do End If Loop Wscript.Sleep 5000 |
Отправлено: 03:31, 15-05-2009 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 2756
|
Профиль | Отправить PM | Цитировать Yashied, AutoIt не срабатывает, ну и да ладно. Второй вариант мне более понравился. Вопросик Маленький только:
Wscript.Sleep 5000 - это сколько секунд задержка и зачем в начале эта задержка? Для подстраховки чтобы успеть так сказать словить процесс нужный? |
------- Отправлено: 18:15, 15-05-2009 | #3 |
![]() Старожил Сообщения: 215
|
Профиль | Отправить PM | Цитировать Так не пиши в батнике start и будет тебе счастье. start именно для того и предназначен, чтобы батник сразу продолжил работу.
Setup.exe /s /sms /v" /qn SILENTINSTALL=\"TRUE\" PRODUCTTYPE=\"ENT\" ALLUSERS=1 PRODUCT_CODE=11111111111111-1111-1111 LICENSEPATH=license.dat |
------- Отправлено: 18:26, 15-05-2009 | #4 |
![]() Старожил Сообщения: 206
|
Профиль | Отправить PM | Цитировать Цитата Pozia:
Цитата Sylver Dragon:
|
|||
Отправлено: 18:29, 15-05-2009 | #5 |
Ветеран Сообщения: 2756
|
Профиль | Отправить PM | Цитировать Цитата Sylver Dragon:
|
|
------- Отправлено: 18:39, 15-05-2009 | #6 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Скрипт для выполнения команд после подтверждения | Pozia | AutoIt | 14 | 27-06-2012 23:46 | |
CMD/BAT - Скрипт для установки обновлений в win nt 4.0 | ultra_fs | Скриптовые языки администрирования Windows | 4 | 14-01-2011 15:20 | |
[решено] Блок компа и перезагрука после отработки батника | Pozia | AutoIt | 7 | 26-01-2010 20:22 | |
Любой язык - [решено] Скрипт который бы запускал 2 процесса и в случае убийства одного убивал бы и другой | iDrug | Скриптовые языки администрирования Windows | 7 | 12-10-2009 19:08 | |
Скрипт для установки MathType | Pozia | AutoIt | 0 | 29-01-2009 00:41 |
|