UserIP: String;
The UserIP property returns workstation IP-address to write it to the access protocol.
Sub UserProc;
Var
MB: IMetabase;
LogSes: ILogonSession;
Begin
MB := MetabaseClass.Active;
LogSes := MB.LogonSession;
Debug.WriteLine(LogSes.UserIP);
End Sub UserProc;
After executing the example the development environment console displays IP address of the computer, from which the repository was logged on.
See also: