Ошибка не указан клиент администрирования

///////////////////////////////////////////////////////////////////////////////////////////////////

// Прикладной интерфейс

#Использовать v8find

Перем мНастройки;

Перем Лог;

Перем мИдентификаторКластера;

Перем мИдентификаторБазы;

Перем ЭтоWindows;

Перем мЭтоУправлениеСеансами, мЭтоУправлениеРегламентнымиЗаданиями, мЭтоПолучениеИнформацииИБ;

Процедура ЗарегистрироватьКоманду(Знач ИмяКоманды, Знач Парсер) Экспорт

мЭтоУправлениеСеансами = НРег(ИмяКоманды)=«session»;

мЭтоУправлениеРегламентнымиЗаданиями = НРег(ИмяКоманды)=«scheduledjobs»;

мЭтоПолучениеИнформацииИБ = НРег(ИмяКоманды)=«info»;

Если Не мЭтоПолучениеИнформацииИБ И НЕ мЭтоУправлениеРегламентнымиЗаданиями И Не мЭтоУправлениеСеансами Тогда

ВызватьИсключение(«Непредусмотренная команда»);

КонецЕсли;

ОписаниеКоманды = Парсер.ОписаниеКоманды(ИмяКоманды,

?(мЭтоПолучениеИнформацииИБ,

«Получение информации о базе данных (выводится в консоль выполнения скрипта).

|Может применяться для проверки работы RAS/RAC.»,

«Управление сеансами/регламентами информационной базы»)

);

Если мЭтоУправлениеРегламентнымиЗаданиями Или мЭтоУправлениеСеансами Тогда

Парсер.ДобавитьПозиционныйПараметрКоманды(ОписаниеКоманды, «Действие», ?(мЭтоУправлениеСеансами, «lock|unlock|kill|search», «lock|unlock»));

КонецЕсли;

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, «-ras», «Сетевой адрес RAS, по умолчанию localhost:1545»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, «-rac», «Команда запуска RAC, по умолчанию находим в каталоге установки 1с»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, «-db», «Имя информационной базы»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-db-user»,

«Пользователь информационной базы»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-db-pwd»,

«Пароль пользователя информационной базы»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-cluster-admin»,

«Администратор кластера»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-cluster-pwd»,

«Пароль администратора кластера»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-v8version»,

«Маска версии платформы 1С»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-v8bitness»,

СтрШаблон(«Маска разрядности платформы 1С {%1|%2|%3|%4}. Требуется указать -v8version»,

РазрядностьПлатформы.x86x64,

РазрядностьПлатформы.x64x86,

РазрядностьПлатформы.x86,

РазрядностьПлатформы.x64));

Если мЭтоУправлениеСеансами Тогда

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-lockmessage»,

«Сообщение блокировки»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-lockuccode»,

«Ключ разрешения запуска»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-lockstart»,

«Время старта блокировки пользователей, время указываем как ‘2040-12-31T23:59:59′»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-lockstartat»,

«Время старта блокировки через n сек»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-try»,

«Число попыток обращения по протоколу rac/ras»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-with-nolock»,

«Не блокировать сеансы (y/n). Применяется для действия kill —

|по умолчанию, при его выполнении автоматически блокируется начало сеансов.

|Пример: … kill -with-nolock y …»);

Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды,

«-filter»,

«Фильтр поиска сеансов. Предполагает возможность указания множественных вариантов фильтрации. Задается в формате ‘[filter1]|[filter2]|…|[filterN]’.

|Составляющая фильтра задается в формате [[appid=приложение1[;приложение2]][[name=username1[;username2]]’.

|Пока предусмотрено только два фильтра — по имени приложения (appid) и по имени пользователя 1С (name).

|Для фильтра по приложению доступны следующие имена: 1CV8 1CV8C WebClient Designer COMConnection WSConnection BackgroundJob WebServerExtension.

|Использование wildchar/regex пока не предусмотрено. Регистронечувствительно. Параметры должны разделяться через |.

|Действует для команд kill и search.

|Пример: … kill -filter appid=Designer|name=регламент;администратор …»);

КонецЕсли;

Парсер.ДобавитьКоманду(ОписаниеКоманды);

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

Функция ВыполнитьКоманду(Знач ПараметрыКоманды) Экспорт

ПрочитатьПараметры(ПараметрыКоманды);

Если Не ПараметрыВведеныКорректно() Тогда

Возврат МенеджерКомандПриложения.РезультатыКоманд().НеверныеПараметры;

КонецЕсли;

Если мЭтоУправлениеСеансами И мНастройки.Действие = «lock» Тогда

УстановитьСтатусБлокировкиСеансов(Истина);

ИначеЕсли мЭтоУправлениеСеансами И мНастройки.Действие = «unlock» Тогда

УстановитьСтатусБлокировкиСеансов(Ложь);

ИначеЕсли мЭтоУправлениеСеансами И мНастройки.Действие = «kill» Тогда

УдалитьВсеСеансыИСоединенияБазы();

ИначеЕсли мЭтоУправлениеСеансами И мНастройки.Действие = «search» Тогда

Возврат ?(ПолучитьСписокСеансов().Количество()<>0,

МенеджерКомандПриложения.РезультатыКоманд().Успех,

МенеджерКомандПриложения.РезультатыКоманд().ОшибкаВремениВыполнения

);

ИначеЕсли мЭтоУправлениеРегламентнымиЗаданиями И мНастройки.Действие = «lock» Тогда

УстановитьСтатусБлокировкиРЗ(Истина);

ИначеЕсли мЭтоУправлениеРегламентнымиЗаданиями И мНастройки.Действие = «unlock» Тогда

УстановитьСтатусБлокировкиРЗ(Ложь);

ИначеЕсли мЭтоПолучениеИнформацииИБ Тогда

// сообщить информацию

Информация = ПолучитьИнформациюОБазеДанных();

Сообщить(Информация);

Иначе

Лог.Ошибка(«Неизвестное действие: « + мНастройки.Действие);

Возврат МенеджерКомандПриложения.РезультатыКоманд().НеверныеПараметры;

КонецЕсли;

Возврат МенеджерКомандПриложения.РезультатыКоманд().Успех;

КонецФункции

Процедура ПрочитатьПараметры(Знач ПараметрыКоманды)

мНастройки = Новый Структура;

Для Каждого КЗ Из ПараметрыКоманды Цикл

Лог.Отладка(КЗ.Ключ + » = « + КЗ.Значение);

КонецЦикла;

мНастройки.Вставить(«АдресСервераАдминистрирования», ПараметрыКоманды[«-ras»]);

мНастройки.Вставить(«ПутьКлиентаАдминистрирования», ПараметрыКоманды[«-rac»]);

мНастройки.Вставить(«ИмяБазыДанных», ПараметрыКоманды[«-db»]);

мНастройки.Вставить(«АдминистраторИБ», ПараметрыКоманды[«-db-user»]);

мНастройки.Вставить(«ПарольАдминистратораИБ», ПараметрыКоманды[«-db-pwd»]);

мНастройки.Вставить(«АдминистраторКластера», ПараметрыКоманды[«-cluster-admin»]);

мНастройки.Вставить(«ПарольАдминистратораКластера», ПараметрыКоманды[«-cluster-pwd»]);

мНастройки.Вставить(«ИспользуемаяВерсияПлатформы», ПараметрыКоманды[«-v8version»]);

мНастройки.Вставить(«КлючРазрешенияЗапуска», ПараметрыКоманды[«-lockuccode»]);

мНастройки.Вставить(«СообщениеОблокировке», ПараметрыКоманды[«-lockmessage»]);

мНастройки.Вставить(«ВремяСтартаБлокировки», ПараметрыКоманды[«-lockstart»]);

мНастройки.Вставить(«ВремяСтартаБлокировкиЧерез», ПараметрыКоманды[«-lockstartat»]);

мНастройки.Вставить(«ЧислоПопыток», ПараметрыКоманды[«-try»]);

мНастройки.Вставить(«НеБлокироватьСеансы», ПараметрыКоманды[«-with-nolock»]);

мНастройки.Вставить(«ФильтрСеансов», ПолучитьСоставляющиеФильтра(ПараметрыКоманды[«-filter»]));

мНастройки.Вставить(«Действие», ПараметрыКоманды[«Действие»]);

//Получим путь к платформе если вдруг не установленна

мНастройки.ПутьКлиентаАдминистрирования = ПолучитьПутьКRAC(мНастройки.ПутьКлиентаАдминистрирования, мНастройки.ИспользуемаяВерсияПлатформы);

Если ПустаяСтрока(мНастройки.АдресСервераАдминистрирования) Тогда

мНастройки.АдресСервераАдминистрирования = «localhost:1545»;

КонецЕсли;

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

Функция ПараметрыВведеныКорректно()

Успех = Истина;

Если Не ЗначениеЗаполнено(мНастройки.АдресСервераАдминистрирования) Тогда

Лог.Ошибка(«Не указан сервер администрирования»);

Успех = Ложь;

КонецЕсли;

Если Не ЗначениеЗаполнено(мНастройки.ПутьКлиентаАдминистрирования) Тогда

Лог.Ошибка(«Не указан клиент администрирования»);

Успех = Ложь;

КонецЕсли;

Если Не ЗначениеЗаполнено(мНастройки.ИмяБазыДанных) Тогда

Лог.Ошибка(«Не указано имя базы данных»);

Успех = Ложь;

КонецЕсли;

Если (мЭтоУправлениеРегламентнымиЗаданиями Или мЭтоУправлениеСеансами) И Не ЗначениеЗаполнено(мНастройки.Действие) Тогда

Лог.Ошибка(«Не указано действие lock/unlock»);

Успех = Ложь;

КонецЕсли;

Если мНастройки.ЧислоПопыток <> Неопределено Тогда

Попытка

ПопыткиЧислом = Число(мНастройки.ЧислоПопыток);

Исключение

Лог.Ошибка(«Параметр -try не является числовым.»);

Успех = Ложь;

КонецПопытки;

Если Успех и ПопыткиЧислом <= 0 Тогда

ПопыткиЧислом = 1;

Лог.Предупреждение(«Параметр -try не представляет собой число попыток. Он будет проигнорирован»);

КонецЕсли;

Если Успех Тогда

мНастройки.ЧислоПопыток = ПопыткиЧислом;

Иначе

мНастройки.ЧислоПопыток = 1;

КонецЕсли;

Иначе

мНастройки.ЧислоПопыток = 1;

КонецЕсли;

Возврат Успех;

КонецФункции

/////////////////////////////////////////////////////////////////////////////////

// Взаимодействие с кластером

Процедура УдалитьВсеСеансыИСоединенияБазы()

Если Не ЗначениеЗаполнено(мНастройки.НеБлокироватьСеансы) Или

ВРег(мНастройки.НеБлокироватьСеансы)<>«Y»

Тогда

УстановитьСтатусБлокировкиСеансов(Истина);

КонецЕсли;

Для Сч = 1 По мНастройки.ЧислоПопыток Цикл

Попытка

ОтключитьСуществующиеСеансы();

Приостановить(500);

Сеансы = ПолучитьСписокСеансов();

Если Сеансы.Количество() Тогда

Лог.Информация(«Пауза перед отключением соединений»);

Приостановить(10000);

ОтключитьСоединенияСРабочимиПроцессами();

КонецЕсли;

Прервать;

Исключение

Лог.Предупреждение(«Попытка удаления сеансов не удалась. Текст ошибки:

|%1″, ИнформацияОбОшибке().Описание);

КонецПопытки;

КонецЦикла

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

Процедура УстановитьСтатусБлокировкиСеансов(Знач Блокировать)

КлючиАвторизацииВБазе = КлючиАвторизацииВБазе();

ИдентификаторБазы = ИдентификаторБазы();

ИдентификаторКластера = мИдентификаторКластера;

Если Блокировать Тогда

КлючРазрешенияЗапускаПоУмолчанию = ИдентификаторБазы;

Иначе

КлючРазрешенияЗапускаПоУмолчанию = «»;

КонецЕсли;

КлючРазрешенияЗапуска = ?(ПустаяСтрока(мНастройки.КлючРазрешенияЗапуска), КлючРазрешенияЗапускаПоУмолчанию, мНастройки.КлючРазрешенияЗапуска);

ВремяБлокировки = мНастройки.ВремяСтартаБлокировки;

Если ПустаяСтрока(ВремяБлокировки) И Не ПустаяСтрока(мНастройки.ВремяСтартаБлокировкиЧерез) Тогда

Секунды = 0;

Попытка

Секунды = Число(мНастройки.ВремяСтартаБлокировкиЧерез);

Исключение

КонецПопытки;

ВремяБлокировки = Формат(ТекущаяДата()+Секунды,«ДФ=’yyyy-MM-ddTHH:mm:ss’»);

КонецЕсли;

КомандаВыполнения = СтрокаЗапускаКлиента() + СтрШаблон(«infobase update —infobase=«»%3«»%4 —cluster=«»%1«»%2 —sessions-deny=%5 —denied-message=«»%6«» —denied-from=«»%8«» —permission-code=«»%7«»«,

ИдентификаторКластера,

КлючиАвторизацииВКластере(),

ИдентификаторБазы,

КлючиАвторизацииВБазе,

?(Блокировать, «on», «off»),

мНастройки.СообщениеОблокировке,

КлючРазрешенияЗапуска,

ВремяБлокировки) + » «+мНастройки.АдресСервераАдминистрирования;

Для Сч = 1 По мНастройки.ЧислоПопыток Цикл

Попытка

ЗапуститьПроцесс(КомандаВыполнения);

Прервать;

Исключение

Лог.Предупреждение(«Попытка запуска rac не удалась. Текст ошибки:

|%1″, ИнформацияОбОшибке().Описание);

КонецПопытки;

КонецЦикла;

Лог.Информация(«Сеансы « + ?(Блокировать, «запрещены», «разрешены»));

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

Процедура УстановитьСтатусБлокировкиРЗ(Знач Блокировать)

КлючиАвторизацииВБазе = КлючиАвторизацииВБазе();

ИдентификаторБазы = ИдентификаторБазы();

ИдентификаторКластера = мИдентификаторКластера;

КомандаВыполнения = СтрокаЗапускаКлиента() +

СтрШаблон(«infobase update —infobase=«»%3«»%4 —cluster=«»%1«»%2 —scheduled-jobs-deny=%5″,

ИдентификаторКластера,

КлючиАвторизацииВКластере(),

ИдентификаторБазы,

КлючиАвторизацииВБазе,

?(Блокировать, «on», «off»)

) + » «+мНастройки.АдресСервераАдминистрирования;

ЗапуститьПроцесс(КомандаВыполнения);

Лог.Информация(«Регламентные задания « + ?(Блокировать, «запрещены», «разрешены»));

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

Функция ПолучитьИнформациюОБазеДанных()

КлючиАвторизацииВБазе = КлючиАвторизацииВБазе();

ИдентификаторКластера = ИдентификаторКластера();

ИдентификаторБазы = ИдентификаторБазы();

КомандаВыполнения = СтрокаЗапускаКлиента() +

СтрШаблон(«infobase info —infobase=«»%3«»%4 —cluster=«»%1«»%2″,

ИдентификаторКластера,

КлючиАвторизацииВКластере(),

ИдентификаторБазы,

КлючиАвторизацииВБазе

) + » «+мНастройки.АдресСервераАдминистрирования;

Результат = ЗапуститьПроцесс(КомандаВыполнения);

Возврат Результат;

КонецФункции

Функция КлючиАвторизацииВБазе()

КлючиАвторизацииВБазе = «»;

Если ЗначениеЗаполнено(мНастройки.АдминистраторИБ) Тогда

КлючиАвторизацииВБазе = КлючиАвторизацииВБазе + СтрШаблон(» —infobase-user=«»%1«»«, мНастройки.АдминистраторИБ);

КонецЕсли;

Если ЗначениеЗаполнено(мНастройки.ПарольАдминистратораИБ) Тогда

КлючиАвторизацииВБазе = КлючиАвторизацииВБазе + СтрШаблон(» —infobase-pwd=«»%1«»«, мНастройки.ПарольАдминистратораИБ);

КонецЕсли;

Возврат КлючиАвторизацииВБазе;

КонецФункции

Функция ИдентификаторКластера()

Если мИдентификаторКластера = Неопределено Тогда

//Ищем идентификатор кластера по базе

ИдентификаторБазы = ИдентификаторБазы();

КонецЕсли;

Если ПустаяСтрока(мИдентификаторКластера) Тогда

ВызватьИсключение «Кластер серверов отсутствует»;

КонецЕсли;

Возврат мИдентификаторКластера;

КонецФункции

Функция ИдентификаторыКластеров()

Лог.Информация(«Получаю список кластеров»);

КомандаВыполнения = СтрокаЗапускаКлиента() + «cluster list» + » «+ мНастройки.АдресСервераАдминистрирования;

СписокКластеров = ЗапуститьПроцесс(КомандаВыполнения);

ИДКластеров = Новый Соответствие();

УИДКластера = «»;

Для А = 1 По СтрЧислоСтрок(СписокКластеров) Цикл

Строка = СтрПолучитьСтроку(СписокКластеров, А);

Имя = СокрЛП(Лев(Строка, Найти(Строка, «:») — 1));

Значение = СокрЛП(СтрЗаменить(Сред(Строка, Найти(Строка, «:») + 1), ««»«, «»));

Если Имя = «cluster» Тогда

УИДКластера = Значение;

ИначеЕсли Имя = «name» Тогда

ИДКластеров.Вставить(Значение, УИДКластера);

Лог.Отладка(«Кластер: « + Значение + » = « + УИДКластера);

КонецЕсли;

КонецЦикла;

Возврат ИДКластеров;

КонецФункции

Функция ИдентификаторБазы()

Если мИдентификаторБазы = Неопределено Тогда

мИдентификаторБазы = НайтиБазуВКластере();

КонецЕсли;

Возврат мИдентификаторБазы;

КонецФункции

Функция НайтиБазуВКластере()

ИдентификаторыКластеров = ИдентификаторыКластеров();

НайденаБазаВКластере = Ложь;

Для каждого УИДКластера Из ИдентификаторыКластеров Цикл

Лог.Информация(«Поиск базы « + мНастройки.ИмяБазыДанных + » в кластере « + УИДКластера.Ключ);

КомандаВыполнения = СтрокаЗапускаКлиента() + СтрШаблон(«infobase summary list —cluster=«»%1«»%2″,

УИДКластера.Значение,

КлючиАвторизацииВКластере()) + » « + мНастройки.АдресСервераАдминистрирования;

Лог.Отладка(КомандаВыполнения);

СписокБазВКластере = СокрЛП(ЗапуститьПроцесс(КомандаВыполнения));

Лог.Отладка(СписокБазВКластере);

ЧислоСтрок = СтрЧислоСтрок(СписокБазВКластере);

Для К = 1 По ЧислоСтрок Цикл

СтрокаРазбора = СтрПолучитьСтроку(СписокБазВКластере, К);

ПозицияРазделителя = Найти(СтрокаРазбора, «:»);

Если Найти(СтрокаРазбора, «infobase») > 0 Тогда

УИДИБ = СокрЛП(Сред(СтрокаРазбора, ПозицияРазделителя + 1));

ИначеЕсли Найти(СтрокаРазбора, «name») > 0 Тогда

ИмяБазы = СокрЛП(Сред(СтрокаРазбора, ПозицияРазделителя + 1));

Если Нрег(ИмяБазы) = НРег(мНастройки.ИмяБазыДанных) Тогда

мИдентификаторКластера = УИДКластера.Значение;

Лог.Информация(«База « + ИмяБазы + » с ID: « + УИДИБ + » найдена в кластере « + УИДКластера.Ключ);

Лог.Отладка(«Установлен УИД кластера « + мИдентификаторКластера);

НайденаБазаВКластере = Истина;

Прервать;

КонецЕсли;

КонецЕсли;

КонецЦикла;

Если НайденаБазаВКластере Тогда

Прервать;

КонецЕсли;

КонецЦикла;

Если Не НайденаБазаВКластере Тогда

ВызватьИсключение «База « + мНастройки.ИмяБазыДанных + » не найдена в кластере»;

КонецЕсли;

Возврат УИДИБ;

КонецФункции

Функция КлючиАвторизацииВКластере()

КомандаВыполнения = «»;

Если ЗначениеЗаполнено(мНастройки.АдминистраторКластера) Тогда

КомандаВыполнения = КомандаВыполнения + СтрШаблон(» —cluster-user=«»%1«»«, мНастройки.АдминистраторКластера);

КонецЕсли;

Если ЗначениеЗаполнено(мНастройки.ПарольАдминистратораКластера) Тогда

КомандаВыполнения = КомандаВыполнения + СтрШаблон(» —cluster-pwd=«»%1«»«, мНастройки.ПарольАдминистратораКластера);

КонецЕсли;

Возврат КомандаВыполнения;

КонецФункции

Функция СтрокаЗапускаКлиента()

Перем ПутьКлиентаАдминистрирования;

Если ЭтоWindows Тогда

ПутьКлиентаАдминистрирования = ЗапускПриложений.ОбернутьВКавычки(мНастройки.ПутьКлиентаАдминистрирования);

Иначе

ПутьКлиентаАдминистрирования = мНастройки.ПутьКлиентаАдминистрирования;

КонецЕсли;

Возврат ПутьКлиентаАдминистрирования + » «;

КонецФункции

Функция ЗапуститьПроцесс(Знач СтрокаВыполнения)

Перем ПаузаОжиданияЧтенияБуфера;

ПаузаОжиданияЧтенияБуфера = 20;

Лог.Отладка(СтрокаВыполнения);

Процесс = СоздатьПроцесс(СтрокаВыполнения, ,Истина);

Процесс.Запустить();

Текст = Новый ТекстовыйДокумент;

Пока Истина Цикл

ВывестиДанныеПроцесса(Процесс, Текст);

Если Процесс.Завершен Тогда

Процесс.ОжидатьЗавершения(); // финальный сброс буферов

ВывестиДанныеПроцесса(Процесс, Текст);

Прервать;

КонецЕсли;

Приостановить(ПаузаОжиданияЧтенияБуфера);

КонецЦикла;

Если Процесс.КодВозврата = 0 Тогда

Возврат Текст.ПолучитьТекст();

Иначе

ВызватьИсключение «Сообщение от RAS/RAC

|» + Текст.ПолучитьТекст();

КонецЕсли;

КонецФункции

Процедура ВывестиДанныеПроцесса(Знач Процесс, Знач Приемник)

Вывод = Процесс.ПотокВывода.Прочитать();

Ошибки = Процесс.ПотокОшибок.Прочитать();

Если СтрДлина(Строка(Вывод)) > 0 Тогда

Приемник.ДобавитьСтроку(Вывод);

КонецЕсли;

Если СтрДлина(Строка(Ошибки)) > 0 Тогда

Приемник.ДобавитьСтроку(Ошибки);

КонецЕсли;

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

Процедура ОтключитьСуществующиеСеансы()

Лог.Информация(«Отключаю существующие сеансы»);

СеансыБазы = ПолучитьСписокСеансов();

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

Попытка

ОтключитьСеанс(Сеанс);

Исключение

Лог.Ошибка(ОписаниеОшибки());

КонецПопытки;

КонецЦикла;

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

Функция ПолучитьСписокСеансов()

ТаблицаСеансов = Новый ТаблицаЗначений;

ТаблицаСеансов.Колонки.Добавить(«Идентификатор»);

ТаблицаСеансов.Колонки.Добавить(«Приложение»);

ТаблицаСеансов.Колонки.Добавить(«Пользователь»);

ТаблицаСеансов.Колонки.Добавить(«НомерСеанса»);

КомандаЗапуска = СтрокаЗапускаКлиента() + СтрШаблон(«session list —cluster=«»%1«»%2 —infobase=«»%3«»«,

ИдентификаторКластера(),

КлючиАвторизацииВКластере(),

ИдентификаторБазы()) + » « + мНастройки.АдресСервераАдминистрирования;

СписокСеансовИБ = ЗапуститьПроцесс(КомандаЗапуска);

Данные = РазобратьПоток(СписокСеансовИБ);

Для Каждого Элемент Из Данные Цикл

Если Не СеансВФильтре(Новый Структура(«Приложение, Пользователь», Элемент[«app-id»], Элемент[«user-name»])) Тогда

Продолжить;

КонецЕсли;

ТекСтрока = ТаблицаСеансов.Добавить();

ТекСтрока.Идентификатор = Элемент[«session»];

ТекСтрока.Пользователь = Элемент[«user-name»];

ТекСтрока.Приложение = Элемент[«app-id»];

ТекСтрока.НомерСеанса = Элемент[«session-id»];

КонецЦикла;

Возврат ТаблицаСеансов;

КонецФункции

Процедура ОтключитьСеанс(Знач Сеанс)

ИдентификаторБазы = ИдентификаторБазы();

ИдентификаторКластера = мИдентификаторКластера;

СтрокаВыполнения = СтрокаЗапускаКлиента() + СтрШаблон(«session terminate —cluster=«»%1«»%2 —session=«»%3«»«,

ИдентификаторКластера,

КлючиАвторизацииВКластере(),

Сеанс.Идентификатор) + » « + мНастройки.АдресСервераАдминистрирования;

Лог.Информация(СтрШаблон(«Отключаю сеанс: %1 [%2] (%3)», Сеанс.НомерСеанса, Сеанс.Пользователь, Сеанс.Приложение));

ЗапуститьПроцесс(СтрокаВыполнения);

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

Функция ОтключитьСоединенияСРабочимиПроцессами()

Процессы = ПолучитьСписокРабочихПроцессов();

Для Каждого РабочийПроцесс Из Процессы Цикл

Если РабочийПроцесс[«running»] = «yes» Тогда

СписокСоединений = ПолучитьСоединенияРабочегоПроцесса(РабочийПроцесс);

Для Каждого Соединение Из СписокСоединений Цикл

Попытка

РазорватьСоединениеСПроцессом(РабочийПроцесс, Соединение);

Исключение

Лог.Ошибка(ОписаниеОшибки());

КонецПопытки;

КонецЦикла;

КонецЕсли;

КонецЦикла;

КонецФункции

Функция ПолучитьСписокРабочихПроцессов()

КомандаЗапускаПроцессы = СтрокаЗапускаКлиента() + СтрШаблон(«process list —cluster=«»%1«»%2″,

ИдентификаторКластера(),

КлючиАвторизацииВКластере()) + » « + мНастройки.АдресСервераАдминистрирования;

Лог.Информация(«Получаю список рабочих процессов…»);

СписокПроцессов = ЗапуститьПроцесс(КомандаЗапускаПроцессы);

Результат = РазобратьПоток(СписокПроцессов);

НеВФильтре = Новый Массив;

Для Каждого ТекПроцесс Из Результат Цикл

Если Не СеансВФильтре(Новый Структура(«Приложение, Пользователь», ТекПроцесс[«app-id»], ТекПроцесс[«user-name»])) Тогда

НеВФильтре.Добавить(ТекПроцесс);

КонецЕсли;

КонецЦикла;

Для Каждого Уд Из НеВФильтре Цикл

Результат.Удалить(Уд);

КонецЦикла;

Возврат Результат;

КонецФункции

Функция ПолучитьСоединенияРабочегоПроцесса(Знач РабочийПроцесс)

КомандаЗапускаСоединения = СтрокаЗапускаКлиента() + СтрШаблон(«connection list —cluster=«»%1«»%2 —infobase=%3%4 —process=%5″,

ИдентификаторКластера(),

КлючиАвторизацииВКластере(),

ИдентификаторБазы(),

КлючиАвторизацииВБазе(),

РабочийПроцесс[«process»]) + » « + мНастройки.АдресСервераАдминистрирования;

Лог.Информация(«Получаю список соединений…»);

Возврат РазобратьПоток(ЗапуститьПроцесс(КомандаЗапускаСоединения));

КонецФункции

Функция РазорватьСоединениеСПроцессом(Знач РабочийПроцесс, Знач Соединение)

КомандаРазрывСоединения = СтрокаЗапускаКлиента() + СтрШаблон(«connection disconnect —cluster=«»%1«»%2 —infobase=%3%4 —process=%5 —connection=%6″,

ИдентификаторКластера(),

КлючиАвторизацииВКластере(),

ИдентификаторБазы(),

КлючиАвторизацииВБазе(),

РабочийПроцесс[«process»],

Соединение[«connection»]) + » « + мНастройки.АдресСервераАдминистрирования;

Сообщение = СтрШаблон(«Отключаю соединение %1 [%2] (%3)»,

Соединение[«conn-id»],

Соединение[«app-id»],

Соединение[«user-name»]);

Лог.Информация(Сообщение);

Возврат ЗапуститьПроцесс(КомандаРазрывСоединения);

КонецФункции

Функция РазобратьПоток(Знач Поток) Экспорт

ТД = Новый ТекстовыйДокумент;

ТД.УстановитьТекст(Поток);

СписокОбъектов = Новый Массив;

ТекущийОбъект = Неопределено;

Для Сч = 1 По ТД.КоличествоСтрок() Цикл

Текст = ТД.ПолучитьСтроку(Сч);

Если ПустаяСтрока(Текст) или ТекущийОбъект = Неопределено Тогда

Если ТекущийОбъект <> Неопределено и ТекущийОбъект.Количество() = 0 Тогда

Продолжить; // очередная пустая строка подряд

КонецЕсли;

ТекущийОбъект = Новый Соответствие;

СписокОбъектов.Добавить(ТекущийОбъект);

КонецЕсли;

СтрокаРазбораИмя = «»;

СтрокаРазбораЗначение = «»;

Если РазобратьНаКлючИЗначение(Текст, СтрокаРазбораИмя, СтрокаРазбораЗначение) Тогда

ТекущийОбъект[СтрокаРазбораИмя] = СтрокаРазбораЗначение;

КонецЕсли;

КонецЦикла;

Если ТекущийОбъект <> Неопределено и ТекущийОбъект.Количество() = 0 Тогда

СписокОбъектов.Удалить(СписокОбъектов.ВГраница());

КонецЕсли;

Возврат СписокОбъектов;

КонецФункции

Функция ПолучитьПутьКRAC(ТекущийПуть, Знач ВерсияПлатформы = «»)

Если НЕ ПустаяСтрока(ТекущийПуть) Тогда

ФайлУтилиты = Новый Файл(ТекущийПуть);

Если ФайлУтилиты.Существует() Тогда

Лог.Отладка(«Текущая версия rac « + ФайлУтилиты.ПолноеИмя);

Возврат ФайлУтилиты.ПолноеИмя;

КонецЕсли;

КонецЕсли;

Если ПустаяСтрока(ВерсияПлатформы) Тогда

ВерсияПлатформы = «8.3»;

КонецЕсли;

Конфигуратор = Новый УправлениеКонфигуратором;

ПутьКПлатформе = Конфигуратор.ПолучитьПутьКВерсииПлатформы(ВерсияПлатформы);

Лог.Отладка(«Используемый путь для поиска rac « + ПутьКПлатформе);

КаталогУстановки = Новый Файл(ПутьКПлатформе);

Лог.Отладка(КаталогУстановки.Путь);

ИмяФайла = ?(ЭтоWindows, «rac.exe», «rac»);

ФайлУтилиты = Новый Файл(ОбъединитьПути(Строка(КаталогУстановки.Путь), ИмяФайла));

Если ФайлУтилиты.Существует() Тогда

Лог.Отладка(«Текущая версия rac « + ФайлУтилиты.ПолноеИмя);

Возврат ФайлУтилиты.ПолноеИмя;

КонецЕсли;

Возврат ТекущийПуть;

КонецФункции

Функция РазобратьНаКлючИЗначение(Знач СтрокаРазбора, Ключ, Значение)

ПозицияРазделителя = Найти(СтрокаРазбора, «:»);

Если ПозицияРазделителя = 0 Тогда

Возврат Ложь;

КонецЕсли;

Ключ = СокрЛП(Лев(СтрокаРазбора, ПозицияРазделителя — 1));

Значение = СокрЛП(Сред(СтрокаРазбора, ПозицияРазделителя + 1));

Возврат Истина;

КонецФункции

Функция ПолучитьСоставляющиеФильтра(СтрокаФильтра)

Результат = Новый Структура;

СоставФильтра = СтрРазделить(СтрокаФильтра, «|», Ложь);

Для Каждого ТекСтр Из СоставФильтра Цикл

РазобратьСоставляющуюФильтра(Результат, ТекСтр);

КонецЦикла;

Возврат Результат;

КонецФункции

Процедура РазобратьСоставляющуюФильтра(РезультатСтруктура, Составляющая)

ПозРавно = СтрНайти(Составляющая, «=»);

Если ПозРавно=0 Тогда

Возврат;

КонецЕсли;

ИмяФильтра = Лев(Составляющая, ПозРавно — 1);

Попытка

ПроверкаИмени = Новый Структура(ИмяФильтра);

Исключение

Возврат;

КонецПопытки;

СодержаниеСтрока = Сред(Составляющая, ПозРавно + 1);

Если ПустаяСтрока(СодержаниеСтрока) Тогда

Возврат;

КонецЕсли;

СодержаниеМассив = СтрРазделить(СодержаниеСтрока, «;», Ложь);

РезультатСтруктура.Вставить(ИмяФильтра, СодержаниеМассив);

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

Функция СеансВФильтре(Сеанс)

Результат = Истина;

Если Не ЗначениеЗаполнено(мНастройки.ФильтрСеансов) Тогда

Возврат Результат;

КонецЕсли;

Результат = Результат И ПараметрСеансаВФильтре(«appid», Сеанс.Приложение);

Результат = Результат И ПараметрСеансаВФильтре(«name», Сеанс.Пользователь);

Возврат Результат;

КонецФункции

Функция ПараметрСеансаВФильтре(ИмяФильтра, ПроверяемоеЗначение)

Если Не ЗначениеЗаполнено(мНастройки.ФильтрСеансов) Или Не мНастройки.ФильтрСеансов.Свойство(ИмяФильтра) Тогда

Возврат Истина;

КонецЕсли;

ЗначенияФильтра = мНастройки.ФильтрСеансов[ИмяФильтра];

Для Каждого ТекЗначение Из ЗначенияФильтра Цикл

ВФильтре = ВРег(ТекЗначение)=ВРег(ПроверяемоеЗначение);

Если ВФильтре Тогда

Возврат Истина;

КонецЕсли;

КонецЦикла;

Возврат Ложь;

КонецФункции

/////////////////////////////////////////////////////////////////////////////////

СистемнаяИнформация = Новый СистемнаяИнформация;

ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), «windows») > 0;

Лог = Логирование.ПолучитьЛог(«vanessa.app.deployka»);

После установки сервера 1С на Linux у пользователей могут возникнуть проблемы при попытке подключиться к нему. Данные проблемы могут быть связаны как с настройками на сервер или клиентском компьютере, так и с настройками сетевой инфраструктуры. Рассмотри наиболее часто встречающиеся ошибки и методику поиска и исправления причин этих ошибок.

Этот хост неизвестен / No such host is known

Пример полного текста ошибки:

Ошибки соединения с сервером 1С:Предприятия 8.3:
server_addr=tcp://sony2 descr=11001(0x00002AF9):
Этот хост неизвестен
line=1068 file=srcDataExchangeCommon.cpp

Ошибка при выполнении операции с информационной базой.
server_addr=tcp://1s-on-1c-1 descr=11001(0x00002AF9): No such host is known line=1068 file=srcDataExchangeCommon.cpp


Описание:

Ошибка может возникать как при работе с консолью администрирования 1С:Предприятия(добавление сервера, создание базы…), так и при запуске информационной базы.

Такая ошибка характерна, когда компьютер пользователя не обладает информацией о соответствии ip-адреса dns-имени сервера.

Решение:

Настроить DNS-адресацию или прописать адреса в файл hosts.

О том, как и почему это надо сделать — можно почитать тут Настройка DNS-адресации на сервере 1С.

В случае, если кажется, что все имена прописаны верно, необходимо:

1. Проверить еще раз. Скорее всего, где-то ошибка.

2. Сравнить, как хост прописан на самом сервере и на компьютере пользователя. Имена должны быть одинаковыми.

Часто ошибка связана с тем, указан в имени доменный суфикс или нет.

3. Проверить в консоли администрирования 1С: Предприятия — как у вас собран кластер 1С:Предприятия.

• Возможно, у вас в консоли сервера отображаются не по DNS-имени, а по IP-адресам.
• Возможно, клиент не сможет сопоставить IP-адрес DNS-имя(в случае, если сервер 1С находится в другой сети, и вы подключаетесь к кластеру напрямую).

Не правильно:

Правильно:

Необходимо удалить кластер. И собрать из консоли администрирования его заново.

Ошибки соединения с сервером 1С / рабочим процессом 1С

Описанные далее ошибки могут возникать как при работе в консоле администрирования 1С, так и при запуске информационной базы.

Методика по решению всех приведенных далее ошибок — описана в конце этого подраздела ошибок соединения с сервером / рабочим процессом.

Попытка установить соединение была безуспешной

Пример полного текста ошибки:

Ошибка соединения с сервером 1С:Предприятия 8.3:
server_addr=tcp://son1c:1541 descr=192.168.0.101:1541:
Попытка установить соединение была безуспешной, т.к. от другого компьютера за требуемое время не получен нужный отклик, или было разорвано уже установленное соединение из-за неверного отклика уже подключенного компьютера.

Ошибка соединения сервером – клиент не может подключиться к агенту сервера 1С, процессу ragent. Порт в сообщении 1541(по умолчанию):

Ошибка соединения рабочим процессом – клиент не может подключиться к рабочему процессу сервера rphost. Порт в сообщении может быть из диапазона 1560-1591(по умолчанию).

Ошибка соединения сервером – клиент не может подключиться к менеджеру сервера 1С, процессу rmgr. Порт в сообщении 1540(по умолчанию).

Сервер 1С:Предпрятия не обнаружен

Пример полного текста ошибки:

Сервер 1С:Предприятия не обнаружен
Не запущен ни один рабочий процесс. Соединение с информационной базой невозможно.

Такое сообщение можно увидеть если на сервере 1С не запущен ни один рабочий процесс rphost.

Ошибка установки соединения

Пример полного текста ошибки:

Ошибка установки соединения
Выполняется ожидание возможности запуска.
При появлении возможности, запуск будет выполнен автоматически.

Методика устранения ошибок соединения с сервером 1С

В данном случае необходимо понимать, что:

• Либо процессов нет;
• Либо не удается «увидеть» процессы в связи с отсутствием доступа;
• Либо происходит обращение по другому адресу.

1. Сначала проверим есть ли на сервере 1С в запущенные рабочие процессы rphost.

Или

Видим, что у нас rphost слушает порт 1560

Если не все процессы запущены смотрим как исправить тут Ошибки сервера 1С на Linux.

2. Если процессы запущены — проверим доступность рабочих процессов по портам, которые они «слушают».

С компьютера пользователя необходимо выполнить команду:

и другие порты, на которых есть rphost.

К причинам отсутствия доступа по данному порту можно отнести:

• Блокировка брадмауэром или другими подобными программами;
• Отсутствие доступа на уровне сети;
• Работающий selinux.

3. Проверяем dns-адресацию.

В частности:

• • • hosts на компьютере пользователя

(в Windows: C:WindowsSystem32driversetchosts);

• • • hosts на сервере 1С (в ОС Linux: /etc/hosts);
    • реестр кластера 1С

(по умолчанию в ОС Linux: /home/usr1cv8/.1cv8/1C/1cv8/reg_1541/1CV8Clst.lst.).

Ошибка может быть связана с несоответствием указания имени сервера

• • • у пользователя
    • в реестре кластера серверов 1С:Предприятия.

Например, с различиями в указании имени сервера с/без домена.

Связка сервера 1С:Предприятие и PostgreSQL вторая по популярности среди установок 1С и самое используемое решение на платформе Linux. В отличии внедрений на базе Windows и MSSQL, где трудно сделать так, чтобы не заработало, внедрения на базе Linux таят множество подводных камней для неопытного администратора. Часто бывает так, что вроде бы все сделано правильно, но ошибка следует за ошибкой. Сегодня мы рассмотрим самые типовые из них.

Общая информация

Перед тем, как начинать искать ошибки установки и, вообще, приступать к внедрению серверной версии 1С:Предприятия было бы неплохо освежить представление как это работает:

В небольших внедрениях сервер 1С и сервер СУБД обычно совмещают на одном физическом сервере, что немного сужает круг возможных ошибок. В нашем случае будет рассматриваться ситуация, когда сервера разнесены по разным машинам. В нашей тестовой лаборатории мы развернули следующую схему:

В нашем распоряжении имеются два сервера под управлением Ubuntu 12.04 x64, на одном из них установлен сервер 1С:Предприятие версии 8.3, на другом PostgreSQL 9.04 от Ethersoft, а также клиент под управлением Windows. Напоминаем, что клиент работает только
с сервером 1С, который, в свою очередь, формирует необходимые запросы к серверу СУБД. Никаких запросов от клиента к серверу управления базами данных не происходит
.

ВАЖНО: пользователь «postgres» не прошёл проверку подлинности (Ident)

Данная ошибка возникает при разнесении серверов по разным ПК из-за неправильно настроеной проверки подлинности в локальной сети. Для устранения откройте /var/lib/pgsql/data/pg_hba.conf
, найдите строку:

Host all all 192.168.31.0/24 ident

и приведите ее к виду:

Host all all 192.168.31.0/24 md5

где 192.168.31.0/24
— диапазон вашей локальной сети. Если такой строки нет, ее следует создать в секции IPv4 local connections
.

Сервер баз данных не обнаружен
could not translate host name «NAME» to address: Temporary failure in name resolution

На первый взгляд ошибка понятна: клиент не может разрешить имя сервера СУБД, типичная ошибка для небольших сетей, где отсутствует локальный DNS-сервер. В качестве решения добавляют запись в файл hosts
на клиенте, что не дает никакого результата…

А теперь вспоминаем, о чем было сказано несколько раньше. Клиентом сервера СУБД является сервер 1С, но никак не клиентский ПК, следовательно запись нужно добавлять на сервере 1С:Предприятие в файл /etc/hosts
на платформе Linux или в на платформе Windows.

Аналогичная ошибка будет возникать, если вы забыли добавить запись типа A
для сервера СУБД на локальном DNS-сервере.

Ошибка при выполнении операции с информационной базой
server_addr=NAME descr=11001(0x00002AF9): Этот хост неизвестен.

Как и прошлая, эта ошибка связана с неправильным разрешением клиентом имени сервера. На этот раз именно клиентским ПК. В качестве решения добавляем в файл /etc/hosts
на платформе Linux или в C:WindowsSystem32driversetchosts
на платформе Windows запись вида:

192.168.31.83SRV-1C-1204

где указываете адрес и имя вашего сервера 1С:Предприятия. В случае использования локального DNS следует добавить A-запись
для сервера 1С.

Ошибка СУБД: DATABASE не пригоден для использования

Гораздо более серьезная ошибка, которая говорит о том, что вы установили несовместимую с 1С:Предприятие версию PostgreSQL или допустили грубые ошибки при установке, например не установили все необходимые зависимости, в частности библиотеку libICU
.

Если вы имеете достаточный опыт администрирования Linux систем, то можете попробовать доустановить необходимые библиотеки и заново инициализировать кластер СУБД. В противном случае PostgreSQL лучше переустановить, не забыв удалить содержимое папки /var/lib/pgsql
.

Также данная ошибка может возникать при использовании сборок 9.1.x
и 9.2.x [email protected]
, подробности смотрите ниже.

Ошибка СУБД:
ERROR: could not load library «/usr/lib/x86_64-linux-gnu/postgresql/fasttrun.so»

Довольно специфичная ошибка, характерная для сборок 9.1.x
и 9.2.x [email protected]
, также может приводить предыдущей ошибке. Причина кроется в неисправленной ошибке в библиотеке fasttrun.so. Решение — откатиться на сборку 9.0.x [email protected]
.

Ошибка СУБД
ERROR: type «mvarchar» does not exist at character 31

Возникает если база данных была создана без помощи системы 1С:Предприятия. Помните, для работы с 1С базы данных следует создавать только с использованием инструментов платформы 1С: через консоль

или через средство запуска 1С.

Сервер баз данных не обнаружен
ВАЖНО: пользователь «postgres» не прошёл проверку подлинности (по паролю)

Очень простая ошибка. Неправильно указан пароль суперпользователя СУБД postgres. Вариантов решения два: вспомнить пароль или изменить его. Во втором случае вам нужно будет изменить пароль в свойствах всех существующих информационных баз через оснастку Администрирование серверов 1С Предприятия
.

Сервер баз данных не обнаружен
FATAL: database «NAME» does not exist

Еще одна очень простая ошибка. Смысл ее сводится к тому, что указанная БД не существует. Чаще всего возникает из-за ошибки в указании имени базы. Следует помнить, что информационная база 1С в кластере и база данных СУБД — две разные сущности и могут иметь различные имена. Также следует помнить, что Linux системы чувствительны к регистру и для них unf83
и UNF83
два разных имени.

• Теги:
  

Please enable JavaScript to view the

Ошибки, обнаруживающие себя при работе с программными продуктами, чаще всего лишают возможности пользоваться ими. А отсутствие специальных знаний для понимания алгоритмов работы порождают ещё и невозможность диагностики и исправления возникающих сбоев . В этой статье обратим взгляд на проблему «Сервер 1С:Предприятия не обнаружен, как исправить запуск агент-сервера?».

Устранить проблему в работе 1С можно несколькими способами.

Возникающие ошибки имеют различную подноготную, рассортировать их можно по уровням возникновения:

• Неправильное прописывание кодов разработчиками самой один-эски;
• Ошибки, допущенные программистами, которые дорабатывают (изменяют) продукт применительно к требованиям (задачам) конкретного пользователя;
• Сбои, вызванные погрешностями работы кэш-памяти, чаще всего ставящие в тупик программистов;

Что касается ошибки «сервер 1С:Предприятия не обнаружен», то её нереально отнести к одному из названных, так как подобное уведомление является указанием пользователю на невыполнение определённого необходимого действия для работы программы.

Исправляемся — запускаем сервер

Итак — ситуация, которой посвящена эта публикация возникает в том случае, когда служба агент-сервера или отключена, или остановлена. Отметим, что, как правило, причины этого остаются невыясненными (кто ж признается).

Эта служба запускается двояко — либо как приложение, либо как служба. Посмотрим, как это делать в обоих случаях:

Как приложение

Чтобы запустить её в виде приложения, выполняется команда:

При этом указываются (в своих настройках) порт, диапазоны портов, уровень и каталог. Если эти параметры не указывать, то их значения будут программой установлены «по умолчанию».

В виде службы

Когда при первой установке 1С вариант запуска избирался службой, то она регистрируется и впоследствии должна так и запускаться автоматически (при каждом старте операционки).

Если же первоначально агент был установлен приложением, то можно вручную провести её регистрацию и сделать запуск. Это произойдёт по команде (не забудьте о параметрах):

ragent.exe -instsrvc -usr ‹указываем имя› -pwd ‹указываем пароль›

Port ‹для порта› -regport ‹для порт› -range ‹диапазоны портов›

Seclev ‹нужный уровень› -d ‹указывается каталог›

Результатом регистрации будет создание новой Службы (в этом случае для 1С версии 8.3 для 64-разрядки):

На память

Для удаления (отмены регистрации) службы:

Остановка:

Теперь вы всё знаете о причинах проблемы «сервер 1С:Предприятия не обнаружен» и о том, что нужно сделать при её появлении.

Оставляйте свои комментарии.

Предыстория… В нашей компании успешно работает 1С:Предприятие версии 8.2, в которой заведено порядка 100 интенсивно используемых бухгалтерских баз. Под это дело выделен отдельный сервер с довольно внушительными характеристиками, т.к. в процессе эксплуатации выяснилось, что связка 1С:Предприятие 8.2 + MS SQL
2005 очень требовательны к таким ресурсам “железа”, как жесткие диски, процессор, а самое главное – количество оперативной памяти. Стоимость подобного сервера для нас превысило 250 тысяч рублей (не считая лицензий как на ОС, так и на саму 1С).

Выделять отдельно “железо” под 1С:Предприятие версии 8.3 посчитали делом неразумным, к тому же платить еще порядка 100 тысяч рублей за второй комплект ключей для сервера 1С, ну очень накладно! Попытка установить “в лоб” 1С:Предприятие версии 8.3 привело к тому, что был потерян кластер с уже существующими базами. Вот тут-то и вскрылись особенности установки и запуска двух серверных версий 1С:Предприятия на одном компьютере.

Программа установки 1С:Предприятия 8.2 и 8.3 настраивает программное обеспечение на использование своих стандартных портов: 1540
(используемый агентом сервера), 1541
(используемый менеджером кластера), 1560-1591
(диапазон портов, используемый для рабочих процессов). Поэтому, если сервер 1С:Предприятие 8.3 должен работать одновременно с сервером 1С:Предприятия 8.2, то первому необходимо указать порты отличные от тех, что уже использует работающий экземпляр сервера предыдущей версии.

На компьютере с уже установленным сервером 1С:Предприятия версии 8.2 зарегистрирован и запущен сервис “Агент сервера 1С:Предприятия 8.2”, уже использующий указанные выше стандартные порты. Если вы установили “рядом” сервер 1С:Предприятие 8.3, то запуск его сервиса “Агент сервера 1С:Предприятия 8.3” завершится аварийно, т.к. он попытается использовать уже “занятые” порты. Чтобы избежать этого, необходимо выполнить следующее.

(Все описанное ниже справедливо для Windows Server 2008 R2 Enterprise (и Standart) 64 bit + SP1 и 32-х разрядных серверных версий 1С:Предприятие 8.2 и 8.3).

1С:Предприятие 8.2 (версия 8.2.19.90) мной устанавливались как сервис Windows с правами для запуска от имени существующего локального пользователя “Администратор”.

По окончании установки в окне Диспетчер сервера -> Конфигурация -> Службы
мы видим запущенную службу “Агент сервера 1С:Предприятия 8.2”:

запущенную с параметрами:

C:Program Files (x86)1cv828.2.19.90binragent.exe» -srvc -agent -regport 1541 -port 1540
-range 1560:1591 -d «C:Program Files (x86)1cv82srvinfo»

Сервер 1С:Предприятия 8.3 (версия 8.3.4.437) мной устанавливался аналогичным образом:

Однако, как мы видим в окне Диспетчер сервера -> Конфигурация -> Службы
, служба “Агент сервера 1С:Предприятия 8.3” не стартовала:

Теперь нам надо открыть окно командной строки cmd
и перейти в каталог bin установленной серверной версии 1С:Предприятия 8.3 и попытаться удалить регистрацию сервиса “Агент сервера 1С:Предприятия 8.3” командой ragent.exe -rmsrvc:

C:Usersадминистратор>cd C:Program Files (x86)1cv88.3.4.437bin
C:Program Files (x86)1cv88.3.4.437bin>ragent.exe -rmsrvc
Error! ControlService error!

У меня выскочила ошибка Error! ControlService error! , что в принципе ожидаемо, т.к. сервис должным образом не зарегистрировался в системе. Но на самом деле, он должен удалиться. В окне Диспетчер сервера -> Конфигурация -> Службы
вы его больше не увидите.

Теперь вам надо произвести повторную регистрацию данного сервера, но при этом указать порты отличные от тех, которые уже использует агент 1С:Предприятия 8.2. В моем случае команда будет иметь вид:

C:Program Files (x86)1cv88.3.4.437bin>

• -port 2540
  — порт, на котором будет работать агент сервера 1С:Предприятие версии 8.3;
• -regport 2541
  — порт, через который будет осуществляться администрирование кластера сервера 1С:Предприятие версии 8.3;
• -range 2560:2591
  — диапазон портов для рабочих процессов;
• -в “C:Program Files (x86)1cv8srvinfo”
  — каталог для хранения информации о новом создаваемом кластере сервера 1С:Предприятие версии 8.3;
• -usr .Администратор
  — пользователь, от имени которого будет осуществлен запуск агента сервера 1С:Предприятие версии 8.3;
• -pwd ********
  — пароль для указанного пользователя (введите свой).

После этого вы вновь увидите сервис “Агент сервера 1С:Предприятия 8.3” в окне Диспетчер сервера -> Конфигурация -> Службы
. Вам осталось только запустить его командой ragent.exe -start:

C:Program Files (x86)1cv88.3.4.437bin>ragent.exe -start

В окне Диспетчер сервера -> Конфигурация -> Службы
мы видим службу “Агент сервера 1С:Предприятия 8.3”:

запущенную с параметрами:

где поле “Исполняемый файл” имеет настройку:

C:Program Files (x86)1cv88.3.4.437binragent.exe» -srvc -agent -regport 2541 -port 2540
-range 2560:2591 -d «C:Program Files (x86)1cv8srvinfo»

А теперь самое интересное: вам придется проделывать данную операцию каждый раз, когда возникнет необходимость обновить версию сервера 1С:Предприятия 8.3! “Браво”, разработчики…

Теперь немного о том, каким образом жить с указанной связкой. Необходимости запускать саму программу 1С:Предприятия старой версией (из папки C:Program Files (x86)1cv82common) больше нет. При установке 1С:Предприятия версии 8.3 ярлык на рабочем столе автоматически перезапишется на запуск программы из папки C:Program Files (x86)1cv8common . Если вы будете открывать бухгалтерскую базу, работающую на сервере версии 8.2, она автоматически откроется в нужной версии тонкого клиента.

Шаблоны для создания баз (бухгалтерских или ЗИК
) помещаются по умолчанию в каталог пользователя, от имени которого вы запустили их установку. Если вы делаете это от имени администратора, то найдете их по пути C:UsersадминистраторAppDataRoaming1C1cv8tmplts . Если вы захотите добавить новую базу на основе установленного шаблона, тонкий клиент версии 8.3 увидит их все:

Теперь, если вам необходимо прописать базу версии 8.3, то вам необходимо будет указывать в поле “Кластер серверов 1С:Предприятия” компьютер, с установленным сервером 1С версии 8.3 и через двоеточие порт менеджера кластера, который вы указали при регистрации агента сервера 1С версии 8.3. В моем случае – это 2541:

При добавлении в список бухгалтерских баз новой, находящейся на сервере предприятия под управлением 1С:Предприятие версии 8.3 также необходимо указывать имя сервера, а через двоеточие – порт, используемый менеджером кластера:

Необходимость производить регистрацию утилиты для администрирование кластера обоих сервером 1С (как версии 8.2, так и 8.3) после каждой установки/обновления сохраняется.

Теперь перейдем к администрированию кластеров под управлением различных версий серверов 1С:Предприятие на одном компьютере. Откройте в проводнике папку по пути C:Program Files (x86)1cv8common , и создайте на рабочем столе ярлык для консоли администрирование кластера версии 8.3 (ярлык лучше сразу переименовать соответствующим образом, например 1CV8.3
):

Таким же образом, откройте в проводнике папку по пути C:Program Files (x86)1cv82common , и создайте на рабочем столе ярлык для консоли администрирование кластера версии 8.2 (ярлык лучше сразу переименовать, например в 1CV8.2
):

На рабочем столе вы получите следующее:

Запустим утилиту администрирование кластера сервера 1С:Предприятие версии 8.2 ярлыком “1CV8.2” (т.к. сервер использует порты по умолчанию, то кластер отобразится без проблем):

При попытке открыть данный кластер из консоли, предназначенной для администрирование кластера сервера 1С:Предприятие версии 8.3 (по ярлыку с рабочего стола с именем “1CV8.3”) вы увидите ошибку:

Ошибка соединения с сервером 1С:Предприятия 8.3:
Различаются версии клиента и сервера (8.3.4.437 —
8.2.19.90), клиентское приложение: Консоль кластера

Для отображения нужного нам кластера сервера 1С:Предприятие версии 8.3 необходимо в данной оснастке создать новый центральный сервер 1С:Предприятия 8.3:

• в поле Имя
  необходимо указать имя компьютера с установленным сервером 1С:Предприятие 8.3;
• в поле IP порт
  необходимо указать порт, на котором работает агент сервера 1С:Предприятия 8.3, который вы обозначали при настройке службы запуска агента;
• в поле Описание
  обозначить описание.

После нажатия кнопки “ОК” вы сможете увидеть ваш новый кластер, который получился после установки сервера 1С:Предприятие версии 8.3.

Т.е. администрирование кластеров различных версий сервера 1С:Предприятия, установленных на одном компьютере, осуществляется соответствующими оснастками.

Вот, в принципе, и все. Удачи!

_________
UPD
.
Как показала практика, способ, описанный в данной статье, не подходит для одновременного запуска на одном сервере нескольких экземпляров сервера 1С:Предприятия версии 8.3. При попытке создать новую службу агента 1С от другой версии 1С:Предприятия, работающую на иных портах, операция:

C:Program Files (x86)1cv88.3.4.437bin>ragent.exe -instsrvc -port 2540 -regport 2541
-range 2560:2591 -d «C:Program Files (x86)1cv8srvinfo» -usr .Администратор -pwd ********

заканчивается тем, что удаляется уже работающая служба старой версии 1С 8.3, а новая не создается.

В я описал способ установки, создания соответствующих и запуска на одном сервере нескольких версий сервера 1С:Предприятия 8.3…

Содержание:

1.     Решение ошибки через предприятие 1С

2.     Решение ошибки через конфигуратор 1С

Ошибка «Нет прав на запуск требуемого вида клиента в 1С» возникает при условии, что у пользователя не были введены права или роли.

Решить данную проблему можно двумя путями: через предприятие или через конфигуратор. Рассмотрим подробно каждый алгоритм.  

1.    Решение ошибки через предприятие 1С

Заходим в базу от пользователя с правами Администратора.

Необходимо переустановить права для пользователя, который не может зайти в программу 1С. Администрирование – Настройки пользователей и прав.

Нажимаете на гиперссылку Пользователи.

Двойным щелчком мыши нажимаете на карточку пользователя, который не может зайти в 1С.

В «пользователе» нажимаете на кнопку Права доступа.

Открывается список прав доступа, которые можно установить для данного пользователя. Вероятнее всего, у пользователя уже стоит галочка. В этом случае необходимо перезаписать права: нажимаете на галочку (снимаете ее) – Записываете (кнопка Записать) – Нажимаете на галочку вновь (устанавливаете галочку на нужные права) – Записываете (кнопка записать).

Все настройки сохранились корректно. Теперь необходимо их проверить: зайти в программу от имени нужного пользователя (в нашем примере пользователь 123).  

2.    Решение ошибки через конфигуратор 1С

Необходимо зайти в конфигуратор от пользователя с правами администратора. Если у пользователя будет недостаточно прав, то при попытке настроить роли в конфигураторе, появится ошибка «Недостаточно прав доступа». Это свидетельствует о том, что вы зашли в конфигуратор под пользователем, у которого не указаны права Администратора.

Когда зашли под нужным пользователем, открываете список пользователей, указанных в базе: Администрирование-Пользователи.

Из перечня выбираете того пользователя, от имени которого не можете зайти в базу.

На иконке у такого пользователя красный вопросительный знак, что указывает, что у него не настроены роли.

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

Специалист компании ООО «Кодерлайн»

Анастасия Харькова.

Если при запуске программы «1С» появляется ошибка «Нет прав на запуск требуемого вида клиента», необходимо пользователю, у которого появляется ошибка, прописать необходимые роли и права.

Способ первый

Шаг 1. Запускаем программу под пользователем с полными правами (с правами администратора). Открываем раздел Администрирование – Настройки пользователей и прав:

Шаг 2. Переходим по гиперссылке Пользователи.

Шаг 3. Открываем карточку пользователя, у которого появляется данная ошибка и нажимаем на гиперссылку Права доступа.

Шаг 4.В открывшемся окне можно увидеть, что для данного пользователя не назначен ни один из ниже перечисленных профилей групп доступа.

Шаг 5. Ставим галочку на против нужного нам профиля, например, рядом с профилем бухгалтер и нажимаем кнопку Записать.

Попробуем еще раз запустить программу 1С под пользователем, у которого была ошибка.

Способ второй

Типовая конфигурация

Шаг 1. Заходим в программу в режиме Конфигуратор, открываем вкладку Администрирование — Пользователи, в списке выберите пользователя, у которого возникает ошибка.

Шаг 2. Нажмите Изменить, либо кликните два раза по нужному пользователю, переходим на вкладку Прочее, далее необходимо выбрать нужную роль и сохранить изменения нажав ОК.

Не типовая конфигурация

Причина скорее всего в том, что в созданных ролях не указан нужный тип запуска. Во вкладке Прочие, указываем необходимый тип запуска программы.

Если у Вас остались вопросы обращайтесь за консультацией к специалистам e-office24.ru через свой личный кабинет или напишите нашим онлайн-консультантам в чат.

Ошибка соединения с сервером 1С Предприятия 8.3 – Этот хост не известен.

Поймать такую ошибку можно после смены имени хоста вашего сервера или ПК (Вы сменили имя сервера или ПК на компьютере).

Гарантированно, после этого, Сервер 1С стартовать не будет, точнее, произойдет запуск и вскоре его остановка.

А если запустить утилиту «Администрирования серверов» собственно увидите ошибку как на скрине ниже.

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

Как решить проблему:

Здесь собственно есть несколько вариантов!

1. Вернуть обратно имя хоста.
2. Удалить полностью каталог «srvinfo» там, где установлен ваш Сервер 1С.
3. Изменить имя хоста в настройках Сервера 1С.

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

Второй уничтожит все подключения баз и настройки самого кластера также полетят «К чертям» ) Не вариант когда баз много, так как опять все подключения придется создавать, а если еще есть настройки на кластере, это однозначно не то что нам надо.

А вот третий вариант позволит нам, и все настройки уберечь и не потерять подключения баз.

Для этого, запускаем утилиту администрирования серверов 1С, и в свойствах кластера укажем новое имя. (Наш хост к примеру: «SERVER_OFFICE»  ).

Затем открываем каталог «srvinfo» и откроем файл 1cv8wsrv.lst простым блокнотом.

Старое имя хоста «APACHE» сменим на «SERVER_OFFICE».

Сохранив изменения, открываем папку “reg_1541” находим файл 1CV8Clst.lst и его также отредактируем:

Укажем имя нашего хоста, заменим везде, где есть старое:

Если Вы хотите больше узнать о технической стороне 1С, тогда регистрируйтесь на первый бесплатный модуль курса: Администратор 1С >>>

С уважением, Богдан.