StationMACs: IDomainStations;
StationMACs: Prognoz.Platform.Interop.Metabase.IDomainStations;
The StationMACs property returns the collection of the MAC-addresses of the PCs, from which the user access is granted.
To execute the example, make sure that security manager contains the USER user.
Add links to the Metabase, ForeSystem (for the Fore.NET example) system assemblies.
Sub UserProc;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
User: IMetabaseUser;
Lic: Object;
Begin
MB := MetabaseClass.Active;
// Get license to work with security manager
Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
MS := MB.Security;
// Set allowed MAC address
User := MS.ResolveName("USER") As IMetabaseUser;
User.StationMACs.Add("00-14-85-5F-62-D4");
// Save changes
MS.Apply;
// Check in license
Lic := Null;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
MS: IMetabaseSecurity;
User: IMetabaseUser;
Lic: Object;
Begin
MB := Params.Metabase;
// Get license to work with security manager
Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
MS := MB.Security;
// Set allowed MAC address
User := MS.ResolveName("USER") As IMetabaseUser;
User.StationMACs.Add("00-14-85-5F-62-D4");
// Save changes
MS.Apply();
// Check in license
Lic := Null;
End Sub;
After executing the example, the USER user is allowed to access only from the MAC address 00-14-85-5F-62-D4. By default the user is allowed to access the system from any working stations, IP and MAC addresses.
See also: