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: