UserIP: String;
The UserIP property determines IP-address of the user to write it into the access protocol.
Sub Main;
Var
MB: IMetabase;
LoS: ILogonSession;
Sc: ISecurityConnection;
Cr: ICredentials;
IP: String;
Begin
MB:=MetabaseClass.Active;
LoS:=MB.LogonSession;
Sc:=LoS.PrimaryConnection;
Cr:=Sc.Credentials;
IP:=Cr.UserIP;
End Sub Main;
After executing the example the IP variable will have the value of the IP-address of the user.
See also: