//-----------------------------------------------------------------------------
// Файл IUserInfoExample.js
//-----------------------------------------------------------------------------
// В данном примере рассмотрено использование интерфейса IUserInfo. 
//-----------------------------------------------------------------------------
//@ Start Example

// Функция вывода сообщения 
function ShowMessage(Str) {
    for (var i = 1; i < arguments.length; i++ ) {
        Str = Str.replace(new RegExp('%' + i), arguments[i]);
    }
    WScript.Echo(Str);
}

// Функция формирования информации о пользователе для вывода
function GetUserInfo(UserInfo, Value) {

	// Переменная для формирования строк информации 
	var TotalString = new String();
	
	// Начальная очистка значения результата  
	Value.Value.Clear();	
	
	// Поочередное добавление информации о пользователе в хранилище
	TotalString = "Идентификатор контакта: " + UserInfo.ContactID; 
	Value.Value.Add(TotalString);

	TotalString = "Имя контакта: " + UserInfo.ContactName; 
	Value.Value.Add(TotalString);
	
	TotalString = "Идентификатор пользователя: " + UserInfo.ID; 
	Value.Value.Add(TotalString);

	TotalString = "Является ли пользователь администратором? " + UserInfo.IsAdmin; 
	Value.Value.Add(TotalString);

	TotalString = "Имя пользователя: " + UserInfo.Name; 
	Value.Value.Add(TotalString);
}

// Создание соединения с базой данных и объектов для хранения данных
var Connector = new ActiveXObject('TSDskObjectLibrary.DskConnector');
var UserInfo = new ActiveXObject('TSObjectLibrary.UserInfo');
var Value = new ActiveXObject('TSObjectLibrary.Value');

Value.Value = new ActiveXObject('TSObjectLibrary.StringsList');


if (Connector.Login("Пример использование интерфейса IUserInfo")) {
	
	// Получение информации о пользователе
	UserInfo = Connector.CurrentUser;

	// Формирование и вывод информации о пользователе
	GetUserInfo(UserInfo, Value)
	ShowMessage("Информация о пользователе:\n" + Value.Value.Text);  

	// Вывод информации о коллекции идентификаторов субъектов администрорования	
	Value.Value = UserInfo.AdminUnitIDsList;
	ShowMessage("Коллекция идентификаторов групп пользователя и самого пользователя:\n" + Value.Value.Text);  
	
	// Установка значений атрибутов 
	UserInfo.Attributes.Values("TestAttribute") = "Значение атрибута";
	
	// Вывод установленного значения атрибута
	ShowMessage("Значение атрибута 'TestAttribute': " + UserInfo.Attributes.Values("TestAttribute"));
}
//@ End Example