НовыйПользователь = ПользователиИнформационнойБазы.СоздатьПользователя();



НовыйПользователь.Имя = "Имя";

НовыйПользователь.ПолноеИмя = "Фамилия Имя Отчество";

НовыйПользователь.АутентификацияСтандартная = Истина;

НовыйПользователь.ОсновнойИнтерфейс = Метаданные.Интерфейсы.Администратор;

НовыйПользователь.Пароль = "пароль";

НовыйПользователь.Роли.Добавить(Метаданные.Роли.Администратор);

НовыйПользователь.ПоказыватьВСпискеВыбора = Ложь;

НовыйПользователь.Язык = Метаданные.Языки.Русский;



НовыйПользователь.Записать();   

 ЗаписатьНовогоПользователя(НовыйПользователь);   

 Процедура ЗаписатьНовогоПользователя(НовыйПользователь) Экспорт

	

	// Проверить наличие роли Администратор у нового пользователя.

	РольАдминистратор = Метаданные.Роли.Администратор;



	Если НовыйПользователь.Роли.Содержит(РольАдминистратор) Тогда

		Сообщить("Добавление пользователя с административными правами запрещено");

		

	Иначе // у нового пользователя нет роли Администратор

		

		// Проверить, что текущий пользователь обладает правами Менеджера или Администратора.

		Если РольДоступна(РольАдминистратор) ИЛИ РольДоступна(Метаданные.Роли.Менеджер) Тогда

			

			// Выполнить запись нового пользователя.

			НовыйПользователь.Записать();

			

		Иначе

			Сообщить("Недостаточно прав доступа для добавления пользователя");

	

		КонецЕсли;



	КонецЕсли;

	

КонецПроцедуры

   

 Коннектор = Новый COMОбъект("V81.COMConnector");

Сервер = Коннектор.ConnectWorkingProcess("TestServer");

	

// Аутентифицироваться с административными правами в нужной базе.

Сервер.AddAuthentication("Администратор", " ");

	

// Создать объект нужной информационной базы. 

ИнформационнаяБаза = Сервер.CreateInfoBaseInfo();

ИнформационнаяБаза.Name = "Test_Base";

	

// Получить соединения базы.

СоединенияБазы = Сервер.GetIBConnections(ИнформационнаяБаза);

	

// Разорвать соединения клиентских приложений.

Для Каждого Соединение Из СоединенияБазы Цикл

	Сервер.Disconnect(Соединение);

КонецЦикла;