Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 12:36

Как выбить пользователей из базы в 1С

Автор макс, 15 июл 2011, 07:06

0 Пользователей и 1 гость просматривают эту тему.

макс

Есть обработка для работы в клиент-серверном варианте, вот ее код;
ПодстрокиСтрокиСоединения = РазложитьСтрокуВМассивПодстрок(СтрокаСоединенияИнформационнойБазы(),";");


СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();
ЭтоСоединение = НомерСоединенияИнформационнойБазы();
Сервер    = НСтр(СтрокаСоединения, "File");
База = НСтр(СтрокаСоединения, "Ref");
КОМ = Новый COMОбъект("V82.COMConnector");

Агент = КОМ.ConnectAgent("IRA");
Кластеры = Агент.GetClusters();
Кластер = Кластеры.GetValue(0);
Агент.Authenticate(Кластер, "", "");
РабочиеПроцессы = Агент.GetWorkingProcesses(Кластер);
//Процесс = РабочиеПроцессы.GetValue(0);
Для Каждого Процесс Из РабочиеПроцессы Цикл
СтрокаСоединенияРП = Процесс.HostName + ":" + Формат(Процесс.MainPort, "ЧГ = ");
СоединениеРП = КОМ.ConnectWorkingProcess(СтрокаСоединенияРП);
СоединениеРП.AddAuthentication(Пользователь, Пароль);
ОписаниеИБ = СоединениеРП.CreateInfoBaseInfo();
ОписаниеИБ.Name = База;
Соединения = СоединениеРП.GetInfoBaseConnections(ОписаниеИБ);
Для Каждого Соединение Из Соединения Цикл
Если Соединение.AppID = "COMConsole" Тогда
Продолжить;
КонецЕсли;
Если НомерСоединения <> 0 Тогда
Если Соединение.ConnID = НомерСоединения Тогда
СоединениеРП.Disconnect(Соединение);
КонецЕсли;
ИначеЕсли Соединение.ConnID <> ЭтоСоединение Тогда
СоединениеРП.Disconnect(Соединение);
КонецЕсли;
КонецЦикла;
КонецЦикла;
КОМ = Неопределено;


мне нужно выбить пользователей в файловом варианте, как это можно сделать? где эти все кластеры, рабочие процессы в файловом варианте

Шурыгин Иван Сергеевич

вам обязательно выбивать всех пользователей через ком соединение?
второе. просто убирайте строки про кластеры, оставляйте лишь поиск соединений, и также дисконекты
===================================
жизнь надо прожить так, чтоб вверху посмотрели.
и сказали "А ну ка повтори"
===================================

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск