UserIP: String;
Свойство UserIP определяет IP адрес пользователя для занесения в протокол доступа.
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;
После выполнения примера в переменной «IP» будет находиться значение IP адрес пользователя.
См. также: