StationsPolicy: IStations;
The StationsPolicy property returns a list of stations that enter current repository was prohibited.
Sub Main;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
MU: IMetabasePolicy;
Stat: IStations;
St: IStation;
Begin
MB := MetabaseClass.Active;
MS := MB.Security;
MU := MS.Policy;
Stat := MU.StationsPolicy;
Stat.Refresh;
St := Stat.FindByName("TEST_PC");
St.Access := StationAccessType.Forbidden;
St.Included := True;
MS.Apply;
End Sub Main;
After executing this example the TEST_PC workstation is added to a list of stations that enter current repository was prohibited.
See also: