Привет всем! Как программно перебрать список пользователей, заведенных в системе? (1Cv7)

конфа ?

admin.dll

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

как то через метаданные вытянуть может...

(4) у вас пользователи в метаданных ?

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

автору осталось объяснить зачем ему изврат данный

(6)Вооот им как же вытащить их из файла userdef.usr программно??

FSO=createobject("Scripting.FileSystemObject");
   WshShell = CreateObject("WScript.Shell");
   Txt=FSO.OpenTextFile(КаталогИБ()+"usrdef\users.usr");
   LineUser="";
   ChI=0;
   Пока Txt.AtEndOfStream=0 Цикл
       Chi=Chi+1;
       Buf=Txt.Read(1);
       Если КодСимв(Buf)>31 Тогда
           LineUser=LineUser+Buf;
       КонецЕсли;
   КонецЦикла;
   LineBof="{"+chr(34)+"Container.Contents"+chr(34)+",";
   LineUser=Сред(LineUser,Найти(LineUser,LineBof)+23);
   LineUser=Сред(LineUser,1,Найти(LineUser,"}}"));
   LineUser=СтрЗаменить(LineUser,РазделительСтрок," ");
   LineUser=СтрЗаменить(LineUser,"},{",РазделительСтрок);
   Для к=1 По СтрКоличествоСтрок(LineUser) Цикл
       а=СтрЗаменить(СтрПолучитьСтроку(LineUser,к),Симв(34),"");
       а=СтрЗаменить(СтрПолучитьСтроку(LineUser,к),"}","");
       а=Сред(а,19);
       а=Сред(а,Найти(а,",")+1);
       а=Сред(а,1,Найти(а,",")-1);  
       а=СтрЗаменить(а,"""",""); // уберем кавычки
       ТЗПользователи.НоваяСтрока();
       ТЗПользователи.Пользователь = а;
   КонецЦикла;

Компонента Admin1C.dll

(7) Создаю справочник пользователей с паролями, который просматривать смогу только сам, чтоб заходить под ними и проверять

(11) смысл ?

(11) попахивает бредятиной

функция сзПолучитьПользователей(стрПутьКБазе)
   // Создаем список значений для возврата
   Ответ = создатьобъект("СписокЗначений");
   // Формируем полное имя файла, в котором 1С
   // хранит информацию о пользователях базы.
   стрИмяФайла = стрПутьКБазе + "\UsrDEF\Users.USR";
   // Проверим его наличие.
   если фс.СуществуетФайл(стрИмяФайла) > 0 тогда
       // Создаем объект FSO для работы с файлами.
       обФСО = создатьобъект("Scripting.FileSystemObject");
       // Открываем файл пользователей как текстовый.
       тхтФайл = обФСО.OpenTextFile(стрИмяФайла);
       // Инициализация первоначальных переменных
       // Загружаем в буфер(тестовую строку) информацию из файла.
       стрБуфер = "";
       чисПозиция = 0;
       // Перебеирать файл придеться посимвольно, так как 1С не совсеми
       // символами может работать коректно если они находяться в строке.
       пока тхтФайл.AtEndOfStream = 0 цикл
           // Получаем очередную позицию в файле.
           чисПозиция = чисПозиция + 1;
           // Получаем символ из данной позиции.
           стрСимв = тхтФайл.Read(1);
           // Если код символа больше 31
           если кодсимв(стрСимв) > 31 тогда
               // Тогда добавляем его к буферу.
               стрБуфер = стрБуфер + стрСимв;
           конецесли;
       конеццикла;
       // После формирования буфера начнем искать пользователей в нем.
       // Признаком для пользователя будет строка '{"UserItemType","Page.'
       стрПоиска = "{""UserItemType"",""Page.";
       // Получаем позицию первого пользователя.
       чисПозиция = найти(стрБуфер, стрПоиска);
       // Проверяем если в буфере нужная нам строка
       если чисПозиция > 0 тогда
           // Если есть, вырезаем из строки ненужную информацию.
           стрБуфер = сред(стрБуфер, чисПозиция);
           // Позиция после отрезания становиться в единицу
           чисПозиция = 1;
       конецесли;
       // В цикле получаем информацию о пользователях БД
       пока чисПозиция > 0 цикл
           // Удаляем из буфера 'мусор'
           стрБуфер = сред(стрБуфер, чисПозиция + 22);
           // Находим признак начала информации об имени пользователя.
           чисСмещение = найти(стрБуфер, """,""") + 3;
           // Перемещаем начало буфера на начало информации об имени пользователя
           стрБуфер = сред(стрБуфер, чисСмещение);
           // Получаем имя пользователя
           стрИмяПользователя = лев(стрБуфер, найти(стрБуфер, """,""") - 1);
           // Добовляем имя к нашему списку.
           Ответ.ДобавитьЗначение(стрИмяПользователя);
           // Получаем очередную позицию информации о пользователе
           чисПозиция = найти(стрБуфер, стрПоиска);
       конеццикла;
   конецесли;
   // Возращаем полученный список значений
   возврат Ответ;
конецфункции

(13) Причем изысканой бредятиной...
наверняка 1986...

попахивает 86-ым..

Пользователей в системе дофига, и частенько нужно заходить под кем ниб, чтобы проверить как работает программа, что не так и т.п. А каждый раз искать бумажку с паролями или искать в файле excel их это как-то поднадоело.
Всем спасибо, кто посоветовал способы решения, а не просто зашел и тупо поржал*)

(17) > дофига


это сколько ?

а ведь я угадал....

(18) Пять!

(20) не "пять" , а "оба" :-)

(17) Ты это в рабочей базе собрался под ними заходить?
А если у них прописан каталог и этот пользователь в данный момент в программе ?
А если ты совершенно случайно под этим пользователем какую-нибудь фигню сделаешь в рабочей базе, кого дрючить потом будут ?

Для этого есть отладочная база, где меняешь ему пароль и делай что хочешь.

(18) более 200
(22) Я всё понимаю и что-то создавать, изменять и удалять под ними не собираюсь.

(23) врешь ты всё.. конторы, в которых 200 юзверей, таких не держат

(24) Увы. Бывает.

ТО что 1С разработчики в свое время в 77  придумал иммено такой механизм паролей это конечно извращение. Нормальных Ит-шников всегда это бесило. Но что сделано то сделано.
Раньше  у меня тоже была проблема с этими юзерами и их паролями. Часто забывали. Или потребность проверить их доступы итп.
Хотел придумать такую вещь.
1. Все юзеры заходят в 1С через свои имена но без пароля, но вот пароль 1С будет просить при начале работы системы. И это пароль виде реквизита хранится в справочнике пользователей при этом она шифруется. Это я в свое время реализовал но потом подумал что не удобно и не кошерно отказался от этой идеи хотя все было реализовано . И даже пользователь мог сам менять пароли.

(0) Совет.
Если надо под ним заходить то сделай себе юзера бота который будет служить для тестов. Меняешь интерфес и права потом в предприяетие делаешь аналгичную настройку и провряешь под тем юзером якобы.

Другой вариант. Сбиваешь пароль тестишь . А юзеру пишешь что пароль такой-то.

Третий вариант есть приблуды кторый показывает пароли юзеров.

(27) У него наверняка в коде чонить типа:
если ИмяПользователя()= "Марьиванна" Тогда...

(28) Не будем включать телепата.  Все мы прошли через это.

(9) FN огромаднейшее спасибо!!! То что нужно прямо!!!