UserIP(Index: Integer): String;
Index. Индекс позиции. Количество IP-адресов определяется свойством IAuditFilterCondition.UserIPCount.
Свойство UserIP определяет наименование IP-адреса рабочей станции, для которой будут отображаться записи протокола.
Для выполнения примера предполагается наличие фильтра протокола доступа с идентификатором «FILTER», а также наличие пользователей с IP-адресом «10.0.0.5» и «10.0.0.100».
Добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
FilCon: IAuditFiltersContainer;
Objs: IAuditFilterObjects;
Obj: IAuditFilterObject;
Con: IAuditFilterCondition;
Fil: IAuditFilter;
Begin
FilCon := New AuditFiltersContainer.Create;
FilCon.Load;
Objs := FilCon.Filters;
Obj := Objs.FindById("FILTER").Edit;
Fil := Obj.Filter;
Con := Fil.Item(0);
Con.UserIPCount := 2;
Con.UserIP(0) := "10.0.0.5";
Con.UserIP(1) := "10.0.0.100";
Obj.Save;
FilCon.SaveToFile(FilCon.DefaultFileName);
End Sub UserProc;
После выполнения примера будет изменено свойство условия фильтрации: показывать записи протокола доступа только для станций с заданным IP-адресом.
См. также: