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

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

Previous pageReturn to chapter overviewNext page

Постановка задачи:

Необходимо выполнить сканирование диска 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.

 

В данном примере исследование системы производится после сканирования, поэтому в протокол исследования включается протокол сканирования.