IMetabaseAuditUserInfo.CreateUser

Синтаксис

CreateUser(Password: String);

CreateUser(Password: string);

Параметры

Password. Пароль служебного пользователя. Для СУБД Microsoft SQL Server пароль должен соответствовать требованиям, указанным к сложности пароля.

Описание

Метод CreateUser осуществляет создание служебного пользователя в базе данных.

Комментарии

После создания нового служебного пользователя добавьте его учётные данные на каждом компьютере пользователя с помощью приложения PP.Util.exe.

Пример

Для выполнения примера добавьте ссылки на системные сборки: Metabase, ForeSystem (для примера на Fore.NET).

Sub UserProc;
Var
    MB: IMetabase;
    MS: IMetabaseSecurity;
    AuditUser: IMetabaseAuditUserInfo;
    Lic: Object;
Begin
    MB := MetabaseClass.Active;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
    MS := MB.Security;
    // Получим параметры служебного пользователя
    AuditUser := MS.AuditUserInfo;
    // Создадим нового служебного пользователя, если зарезервирован служебный пользователь p4audit
    If AuditUser.IsReserved Then
        AuditUser.Name := "SERVICE_USER";
        AuditUser.Scope := AuditUserCredsScope.LocalMachine;
        AuditUser.CreateUser("wg5aj4");
    End If;
    // Сохраним изменения
    MS.Apply;
    // Освободим лицензию
    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;
    AuditUser: IMetabaseAuditUserInfo;
    Lic: Object;
Begin
    MB := Params.Metabase;
    // Получим лицензию для возможности работы с менеджером безопасности
    Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
    MS := MB.Security;
    // Получим параметры служебного пользователя
    AuditUser := MS.AuditUserInfo;
    // Создадим нового служебного пользователя, если зарезервирован служебный пользователь p4audit
    If AuditUser.IsReserved Then
        AuditUser.Name := "SERVICE_USER";
        AuditUser.Scope := AuditUserCredsScope.aucsLocalMachine;
        AuditUser.CreateUser("wg5aj4");
    End If;
    // Сохраним изменения
    MS.Apply();
    // Освободим лицензию
    Lic := Null;
End Sub;

После выполнения примера будет создан новый служебный пользователь подсистемы безопасности в базе данных, если в репозитории был зарезервирован служебный пользователь p4audit. Учётные данные нового служебного пользователя будут храниться в реестре локальной машины и доступны для использования всем пользователям на компьютере.

См. также:

IMetabaseAuditUserInfo