UserIP: String;
The UserIP property returns a workstation IP-address to write it into the access protocol.
Sub Main;
Var
MB: IMetabase;
LogSes: ILogonSession;
s: String;
Begin
MB:=MetabaseClass.Active;
LogSes:=MB.LogonSession;
s:=LogSes.UserIP;
End Sub Main;
After executing the example the "s" variable contains IP-address of the computer, from which the repository was logged on.
See also: