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

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

// Порядковый номер конфигурации, которая будет открыта
var CurrentConfiguration = 1;

// Функция вывода сообщения
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);
}

// Загрузка коллекции конфигураций
Connector.LoadConfigurations();
Configuration = Connector.Configurations.Items(CurrentConfiguration);

// Вывод имени открываемой конфигурации
ShowMessage("Имя открываемой конфигурации: " +
	Configuration.Name);


// Вывод пути к директории 'Settings'
ShowMessage("Путь к директории настроек системы: " +
	Connector.CommonSettingsDirectory);

// Вывод пути к директории 'CoreSettings.xml'
ShowMessage("Путь к файлу CoreSettings.xml: " +
	Connector.CoreSettingsFileName);

//Вывод пути к директории хранения файла Config.xml для текущего пользователя
ShowMessage("Путь к директории хранения файла Config.xml для текущего пользователя:\n" +
	Connector.UserSettingsDirectory);

// Открытие конфигурации для пользователя Supervisor с пустым паролем 
//(серверная авторизация)
Connector.OpenConfiguration(Configuration,1,'Supervisor','');

// Вывод информации о текущем пользователе системы
GetUserInfo(Connector.CurrentUser, Value);
ShowMessage("Информация о текущем пользователе системы:\n" +
	Value.Value.Text);

// Вывод даты и времени на локальном компьютере и на сервере
ShowMessage("Время на рабочей станции: " + Connector.GetLocalDateTime());
ShowMessage("Время на сервере СУБД: " + Connector.GetServerDateTime());

// Генерация пяти глобальных уникальных идентификаторов
for (i = 0; i < 5; i++) {
	ShowMessage("Сгенерирован " + i + "-й уникальний идентификатор: " +
		Connector.GenGUID());
}
// Установка и вывод значения атрибута
Connector.Attributes.Values('TestAttribute') = "Тестовое значение";
ShowMessage("Значение атрибута 'TestAttribute': " + Connector.Attributes.Values('TestAttribute'));

//@ End Example