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

shestale

shestale

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

Chinaski

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

Chinaski

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

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

regist

гоняюсь за туманом
Ассоциация VN/VIP
VIP
Разработчик
Сообщения
12,342
Реакции
5,919
Баллы
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

Chinaski

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

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

regist

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

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

Chinaski

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

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

Код:
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

regist

гоняюсь за туманом
Ассоциация VN/VIP
VIP
Разработчик
Сообщения
12,342
Реакции
5,919
Баллы
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

Chinaski

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

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

Chinaski

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

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

regist

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