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