function  SendSyslogMessage

function  SendSyslogMessage

Previous pageReturn to chapter overviewNext page

function  SendSyslogMessage(AHost, AMessageSt: string) : boolean;

 

Отправляет сообщение стандартной службе Syslog (порт 514 UDP) на указанном сервере, удобно для регистрации различных событий

 

 

Пример:

 

begin

// Запуск сканирования

RunScan;

// Что-то подозрительное ??

if (GetSuspCount > 0) or (GetDetectedCount > 0) then begin

 SendSysLogMessage('172.20.97.28',

                'Report from computer "' + GetComputerName + '" '+

                'SuspCount = ' + InttoStr(GetSuspCount) + ', '

                'DetectedCount = ' + InttoStr(GetDetectedCount)

                );

end;

end.