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.