HostName: String;
The HostName property returns a name of the workstation from which the connection to the repository was established.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
Users: IConnectedUsersInfo;
User: IConnectedUserInfo;
Begin
MB := MetabaseClass.Active;
Users := MB.GetConnectedUsers;
For Each User In Users Do
Debug.WriteLine("Workstation: " + User.HostName + "; MAC address: " + User.NETAddress);
Debug.WriteLine("DBMS user: " + User.UserName + "; OS user: " + User.UserOsName);
End For;
End Sub UserProc;
After executing the example the development environment console displays information about all users connected to the current repository.
See also: