AVZ 5. Руководство пользователя
×
Меню
Индекс

16.44.2. 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.
 
 
В примере использовались: GetComputerName, GetDetectedCount, GetSuspCount, RunScan