Сканирование и отправка результатов по почте
Постановка задачи:
Необходимо выполнить сканирование диска 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.
В примере использовались: CreateQurantineArchive, ExecuteSysCheck, ExitAVZ, GetAVZDirectory, GetComputerName, GetDetectedCount, GetSuspCount, RunScan, SendEmailMessage, SetupAVZ
В данном примере исследование системы производится после сканирования, поэтому в протокол исследования включается протокол сканирования.