AllStations: IStations;
The AllStations property returns the collection of workstations in the network, in which work with the platform is executed.
To execute the example, add a link to the Metabase system assembly.
Sub UserProc;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
Stat: IStations;
St: IStation;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
// Get list of workstations
Stat := MS.AllStations;
Stat.Refresh;
Debug.WriteLine("List of workstations: ");
For Each St In Stat Do
Debug.WriteLine(St.Name + " " + St.FullName);
End For;
End Sub UserProc;
After executing the example the console displays a list of all workstations included in the network. Later it will be possible to limit access fully or partially to particular users for these workstations.
See also: