Выполнение скрипта AVZ по сети

shestale

Ассоциация VN/VIP
Преподаватель
Сообщения
9,705
Реакции
5,010
Баллы
743

Chinaski

Ассоциация VN
Сообщения
2,146
Реакции
482
Баллы
533
Выложил такую же папку на обычную рабочую станцию в сети, скрипт отработал и протокол был создан... Странно, все делается с правами админа. Буду разбираться с правами.
 

Chinaski

Ассоциация VN
Сообщения
2,146
Реакции
482
Баллы
533
Проблема с записью скрипта устранена =) дело оказалось в том, что в сети находился компьютер с таким же именем и ярлыке на сетевую папку обращение шло по имени компьютера. Когда переписал на IP адрес все заработало!

Осталось сделать грамотно скрипт, что бы лог сохранялся в папку с именем компьютера, а лучше с IP адресом и желательно с текущей датой =)
 

regist

гоняюсь за туманом
Ассоциация VN/VIP
VIP
Разработчик
Сообщения
12,342
Реакции
5,965
Баллы
998
http://z-oleg.com/secur/avz_doc/script_getcomputername.htm

Добавлено через 3 минуты 41 секунду
по второй части вопроса, текущую дату удалось получить такой командой
Код:
AddToLog(FormatDateTime('dd.mm.yyyy',now));
осталось только подставить эти переменные в этот скрипт

Добавлено через 2 минуты 19 секунд
а лучше с IP адресом
может лучше хеш ? http://z-oleg.com/secur/avz_doc/script_getcomputerhash.htm
 

Chinaski

Ассоциация VN
Сообщения
2,146
Реакции
482
Баллы
533
Написал вот так

Код:
var
AVZLogDir : string;
Begin
CreateDirectory('\\name_server\avz4\log\'+GetComputerName);
AVZLogDir := ('\\name_server\avz4\log\'+GetComputerName);
ExecuteStdScr(2);
end.
В папке LOG создается папка с именем компьютера, но в папке с именем компьютера лог не записывается, не подскажете в чем может быть причина?
 

regist

гоняюсь за туманом
Ассоциация VN/VIP
VIP
Разработчик
Сообщения
12,342
Реакции
5,965
Баллы
998
В папке LOG создается папка с именем компьютера, но в папке с именем компьютера лог не записывается, не подскажете в чем может быть причина?
потому что сделали винегрет, смешав куски кода из однотипных скриптов, в каждом из которых указывается свой путь к папке.
осталось только подставить эти переменные в этот скрипт
подставьте название папки в этот скрипт и проверяйте.

Добавлено через 5 минут 5 секунд
стандартный №2 вызывать уже не надо, этим скриптом вы получите полностью идентичный лог.
 
Последнее редактирование:

Chinaski

Ассоциация VN
Сообщения
2,146
Реакции
482
Баллы
533
потому что сделали винегрет, смешав куски кода из однотипных скриптов, в каждом из которых указывается свой путь к папке.
Не понимаю вот этого. Что значит винегрет? В обеих строчках указывается одинаковый путь.

подставьте название папки в этот скрипт и проверяйте.
Сделал так

Код:
var
 AVZLogDir : string;
begin
 // Формирование имени рабочей папки
 AVZLogDir := ('\\name_server\avz4\log\'+GetComputerName);
 CreateDirectory(AVZLogDir);
 // Настройка AVZ
 SetupAVZ('EvLevel=3'); // Эвристика на максимум
 SetupAVZ('ExtEvCheck=Y'); // Расширенный анализ включен
  AddToLog('Запуск сканирования');
 // Запуск сканирования
 RunScan;
 AddToLog('RunScan прошло успешно');
 // Выполнение исследования системы
 ExecuteSysCheck(AVZLogDir+'virusinfo_syscheck.htm');
 AddToLog('ExecuteSysCheck прошло успешно');
end.
В папку LOG лог пишется, с таким именем computername_virusinfo_syscheck.htm. В целом цель достигнута но мне бы хотелось что бы в папке с логом создавалась папка с именем компьютера а туда уже писался лог.
 

regist

гоняюсь за туманом
Ассоциация VN/VIP
VIP
Разработчик
Сообщения
12,342
Реакции
5,965
Баллы
998
В папку LOG лог пишется, с таким именем computername_virusinfo_syscheck.htm. В целом цель достигнута но мне бы хотелось что бы в папке с логом создавалась папка с именем компьютера а туда уже писался лог.
а папка с именем компьютера создаётся ?
Выполните скрипт
Код:
var
 AVZLogDir : string;
begin
 // Формирование имени рабочей папки
 AVZLogDir := ('\\name_server\avz4\log\'+GetComputerName);
 CreateDirectory(AVZLogDir);
end.
папка уже должна быть создана, если не создастся проверьте ещё такой скрипт

Код:
var
 AVZLogDir : string;
begin
 // Формирование имени рабочей папки
 AVZLogDir := (GetAVZDirectory+'\log\'+GetComputerName);
 CreateDirectory(AVZLogDir);
end.
Добавлено через 51 минуту 44 секунды
Понял, где ошибка. Выполняйте такой скрипт

Код:
var
 AVZLogDir : string;
begin
 // Формирование имени рабочей папки
 AVZLogDir := ('\\name_server\avz4\log\'+GetComputerName);
 CreateDirectory(AVZLogDir);
 // Настройка AVZ
 SetupAVZ('EvLevel=3'); // Эвристика на максимум
 SetupAVZ('ExtEvCheck=Y'); // Расширенный анализ включен
 // Запуск сканирования
 RunScan;
 // Выполнение исследования системы
 ExecuteSysCheck(AVZLogDir+'\virusinfo_syscheck.htm');
end.
при желание можно и дату в название вставить.
 

Chinaski

Ассоциация VN
Сообщения
2,146
Реакции
482
Баллы
533
Да последний скрипт сделал все как надо. Отлично, большое спасибо!

P.S. Только мне осталось непонятно почему ExecuteStdScr(2) не сохранял в переменную AVZLogDir? Там в самом скрипте что ли путь прописан?
 

Chinaski

Ассоциация VN
Сообщения
2,146
Реакции
482
Баллы
533
Короче говоря! Большое спасибо за помощь всем кто принимал участие!

Добавлено через 55 секунд
:)
 

regist

гоняюсь за туманом
Ассоциация VN/VIP
VIP
Разработчик
Сообщения
12,342
Реакции
5,965
Баллы
998
Некропостинг, но задача в общем-то типовая. Вот аналогичное решение задачи от Олега Зайцева Запуск AVZ удаленно
Может кому-нибудь пригодится.
 
Сверху Снизу