[-devICE-]

DenchikK, а я думал ты 7zSFX скрипт имеешь в виду Просто я избегаю всячески AutoIT...

[cleric1985_n]

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

[sanalex]

автоустановка DrWeb 5.0 (AutoIT):

http://letitbit.net/download/52f89f4...rweb5.exe.html

В папке со скриптом должены быть:
drweb-500-win.exe - сам антивирус (скачать с оф.сайта )
drweb32.key - лицензионный ключ
AutoInstall_drweb5.exe - скрипт автоустановки. Запускать этот файл!!!

Автоустановка не тихая - просто автоматическое нажатие кнопок.

Устанавливать на систему, на которой нет ранее установленных версий DR.Web

Исходник тут

[cleric1985_n]

автоустановка DrWeb 5.0 (AutoIT): http://letitbit.net/download/52f89f4...rweb5.exe.html В папке со скриптом должены быть: drweb-500-win.exe - сам антивирус (скачать с оф.сайта) drweb32.key - лицензионный ключ AutoInstall_drweb5.exe - скрипт автоустановки. Автоустановка не тихая - просто автоматическое нажатие кнопок. »

У меня не работает, останавливается сразу же на выборе языка..

[Habetdin]

останавливается сразу же на выборе языка.. »

А вы что запускаете: AutoInstall_drweb5.exe или drweb-500-win.exe? Нужно AutoInstall_drweb5.exe

[cleric1985_n]

А вы что запускаете: AutoInstall_drweb5.exe или drweb-500-win.exe? Нужно AutoInstall_drweb5.exe »

Именно его и запускаю ))

Прошу прощения. Все работает! Проверял просто на системе где установлен доктор...
Только вот если ьы в скрипте отключить еще и автоматическое обновление при установке, вообще было бы супер..а то интернет не на всех компах есть...а установка на нем стопорится..

Я не знаток в скриптах, но как-то можна же извлечь из этого файла (.exe) сам скрипт (.au3)?

[NikLok]

sanalex, Да да!!! Исходники в студию. А версию через установку не по умолчанию ты делал или нет?

[sanalex]

cleric1985_n,
автоматическое обновление при установке должно отключаться, если подвисает, то скрипт еще обрабатывает окно - жди.
на компах без инета ставится.

из этого файла (.exe) сам скрипт (.au3) не извлечешь. Раньше была утилита извлечение исходников, однако на новых версиях она не работает.

исходник по вашим просьбам

читать дальше »

; Автоустановка Dr.Web 5.0
; by *Sanalex*Group*
; http://samforum.ws/
; http://samlab.ws

If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)
#requireadmin
#include <GUIConstants.au3>
Opt("TrayIconDebug",1)

;нельзя блокировать клавиатуру при находящемся в памяти Punto Switcher-е - не будет работать установка
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("SendKeyDelay", 15)
If ProcessExists ( "ps.exe" )<>0 Then
ProcessClose ( "ps.exe" )
ProcessWaitClose ( "ps.exe" )
EndIf

;блокируем мышь и клаву - указать BlockInput (1)
If @OSType="WIN32_NT" Then BlockInput (0)
;в конце скрипта обязательно ставим BlockInput(0) !!!


$key_temp = (@TempDir & "\*.key")
FileSetAttrib ($key_temp, "-A-R")

Run ("drweb-500-win.exe")

WinActive ("Выбор языка", "Русский")
WinWait("Выбор языка", "Русский")
WinSetOnTop ( "Выбор языка", "Русский", 1 )
WinActivate ("Выбор языка", "Русский")
ControlClick ("Выбор языка", "Русский", "[CLASS:Button; INSTANCE:1]")

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield(R) Wizard выполнит")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield(R) Wizard выполнит")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield(R) Wizard выполнит", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield(R) Wizard выполнит")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield(R) Wizard выполнит", "[CLASS:Button; INSTANCE:1]")

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения", "[CLASS:Button; INSTANCE:3]")
Sleep (500)
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "принимаю условия лицензионного соглашения", "[CLASS:Button; INSTANCE:5]")

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на", "[CLASS:Button; INSTANCE:4]")
Sleep (500)
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка Dr.Web anti-virus for Windows 5.0 на", "[CLASS:Button; INSTANCE:2]")

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Указать путь к действующему ключевому файлу")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Указать путь к действующему ключевому файлу")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Указать путь к действующему ключевому файлу", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Указать путь к действующему ключевому файлу")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Указать путь к действующему ключевому файлу", "[CLASS:Button; INSTANCE:7]")

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка по умолчанию (рекомендуется)")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка по умолчанию (рекомендуется)")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка по умолчанию (рекомендуется)", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка по умолчанию (рекомендуется)")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Установка по умолчанию (рекомендуется)", "[CLASS:Button; INSTANCE:5]")

WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows",3)
If WinExists ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows") then
WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Служба Планировщика заданий Windows", "[CLASS:Button; INSTANCE:2]")
EndIf

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "В ходе установки запустится Сканер")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "В ходе установки запустится Сканер")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "В ходе установки запустится Сканер", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "В ходе установки запустится Сканер")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "В ходе установки запустится Сканер", "[CLASS:Button; INSTANCE:1]")

ProcessWait ( "drwebupw.exe" )
If ProcessExists ( "drwebupw.exe" )<>0 Then
ProcessClose ( "drwebupw.exe" )
ProcessWaitClose ( "drwebupw.exe" )
EndIf


ProcessWait ( "drweb32w.exe", 15 )

WinWait("Dr.Web Сканер", "",45)
If WinExists ("Dr.Web Сканер", "") then
WinSetOnTop ("Dr.Web Сканер", "",1)
WinActivate ("Dr.Web Сканер", "")
sleep (2000)
Send ("!x")
sleep (2000)
WinSetOnTop ("Dr.Web Сканер", "",0)
If WinExists ("Dr.Web® Сканер", "") then
WinSetOnTop ("Dr.Web® Сканер", "",1)
WinActivate ("Dr.Web® Сканер", "")
sleep (2000)
Send ("{TAB}")
sleep (2000)
Send ("{ENTER}")
sleep (3000)
EndIf
sleep (2000)
EndIf

If WinExists ("Dr.Web Сканер", "") then
WinSetOnTop ("Dr.Web Сканер", "",1)
WinActivate ("Dr.Web Сканер", "")
sleep (2000)
Send ("!x")
sleep (2000)
WinSetOnTop ("Dr.Web Сканер", "",0)
If WinExists ("Dr.Web® Сканер", "") then
WinSetOnTop ("Dr.Web® Сканер", "",1)
WinActivate ("Dr.Web® Сканер", "")
sleep (2000)
Send ("{TAB}")
sleep (2000)
Send ("{ENTER}")
sleep (3000)
EndIf
sleep (2000)
EndIf

WinActive ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield Wizard успешно установила")
WinWait("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield Wizard успешно установила")
WinSetOnTop ( "Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield Wizard успешно установила", 1 )
WinActivate ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield Wizard успешно установила")
ControlClick ("Dr.Web anti-virus for Windows 5.0 - InstallShield Wizard", "Программа InstallShield Wizard успешно установила", "[CLASS:Button; INSTANCE:1]")

WinActive ("Сведения о программе установки Dr.Web anti-virus for Windows 5.0", "Для учета изменений в настройках")
WinWait("Сведения о программе установки Dr.Web anti-virus for Windows 5.0", "Для учета изменений в настройках")
WinSetOnTop ( "Сведения о программе установки Dr.Web anti-virus for Windows 5.0", "Для учета изменений в настройках", 1 )
WinActivate ("Сведения о программе установки Dr.Web anti-virus for Windows 5.0", "Для учета изменений в настройках")
ControlClick ("Сведения о программе установки Dr.Web anti-virus for Windows 5.0", "Для учета изменений в настройках", "[CLASS:Button; INSTANCE:2]")

BlockInput(0)

[sanalex]

А версию через установку не по умолчанию ты делал или нет? »

нет

[otsheln1k]

Добавлю в общую копилку:

делал по методу ZaV и Alex333,

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

для этого удалил в секции InstallExecuteSequence

_Runonce_Scanner_RB - не помогло
_Runonce_Scanner_DEF - не помогло

_RunExpessScanning_DEF - помогло
_RunUpdate_DEF - помогло

ключ положить рядом, запустить батник с такой строкой:

Код:

msiexec /i "drweb-500-win.msi" SETUPEXEDIR="%~dp0" REBOOT=ReallySuppress /qb-!

в 1049.MST только руссификация диалогов, для unattend он не нужен

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