AVZ 5. Руководство пользователя
×

Сканирование и отправка результатов по почте

Постановка задачи:
Необходимо выполнить сканирование диска C: компьютера, после чего отправить на указанный адрес письмо, содержащее протокол сканирования, результаты исследования системы и файлы, помещенные в карантин.
 
begin
  // Разрешить использовать карантин
  SetupAVZ('UseQuarantine=Y');
  // Сканировать диск C
  SetupAVZ('Scan=C:\');
  // Запуск сканирования
  RunScan;
  // Выполнение исследования системы  
  ExecuteSysCheck(GetAVZDirectory + 'syscheck.htm');
  // Сохранение архива с файлами карантина
  CreateQurantineArchive(GetAVZDirectory+'quarantine.zip');
  // Отправка письма
  SendEmailMessage('mail.my_mail_server.ru',
                'AVZ',
                'my_mail@mail.ru',
                'AVZ email alert',
                'Report from computer "' + GetComputerName + '" '+#13 +
                'SuspCount = ' + InttoStr(GetSuspCount) + #13 +
                'DetectedCount = ' + InttoStr(GetDetectedCount) ,
                false, '', '',
                GetAVZDirectory + 'syscheck.zip',
                GetAVZDirectory + 'quarantine.zip',
                ''
                );
  // Выход из AVZ
  ExitAVZ;
end.
 
 
В данном примере исследование системы производится после сканирования, поэтому в протокол исследования включается протокол сканирования.