UserIP: String;
Свойство UserIP возвращает IP-адрес рабочей станции, для занесения в протокол доступа.
Sub Main;
Var
MB: IMetabase;
LogSes: ILogonSession;
s: String;
Begin
MB:=MetabaseClass.Active;
LogSes:=MB.LogonSession;
s:=LogSes.UserIP;
End Sub Main;
После выполнения примера в переменной «s» будет содержаться IP-адрес компьютера с которого осуществлен вход в репозиторий.
См. также: