function  SendSyslogMessage

Наверх  Предыдущая  Последующая |

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.