Здравствуйте,

Проблема такая: в Active Directory есть карточки пользователей. Есть ли возможность получить в 1С ссылку на весь объект "Карточка пользователя" или получить значения его реквизитов?

Заранее благодарен

читаем михайлова

а пример привести можно?

ап

Из михайлова...

Вывод списка пользователей группы
Для вывода списка пользователей группы необходимо выполнить следую-
щую простую последовательность действий.
1. Используя функцию получитьсомобъект, подсоединиться к целевому
Контейнеру "WinNT://<ИмяКомпыотера>/<ИмяГруппы>,Group", который
будет содержать коллекцию пользователей. С помощью дополнения
Group указывается, что создается элемент группы.
2. С помощью конструкции Для каждого...из...Цикл...конецЦикла перебираем
полученную коллекцию.
Пример вывода списка пользователей группы "Пользователи" приведен
в листинге 9.4.
// Связываемся с компьютером
Obj = ПолучитьСОМОбъект("WinNT://" + ИмяКомпьютера +
"/Пользователи,group");
Сообщить("Список пользователей компьютера " + ИмяКомпьютера);
// Выборка всех пользователей из коллекции
Для каждого Пользователь Из Obj.Members() Цикл
Сообщить(Пользователь.Name);
КонецЦикла;

Господа, в заголовке ветки же написано: V7...

http://www.script-coding.info/MSScriptControl.html
http://www.script-coding.info/ADSI.html
http://www.script-coding.info/WMI.html
Но это только методика. Конкретика - самостоятельно.

надо здесь кого-то позвать по сом объектам, но вроде так...
семерки нет под рукой, не знаю правильно или нет.

Вывод информации о пользователе
// Получаем объект пользователя
User = СоздатьОбъект("WinNT://" + ИмяКомпьютера + "/" +ИмяПользователя);
// Выводим свойства пользователя
Сообщить("FullName = " + User.FullName);
Сообщить("AccountExpirationDate = " + User.AccountExpirationDate);
Сообщить("AutoUnlocklnterval = " + User.AutoUnlocklnterval);
Сообщить("BadPasswordAttempts = " + User.BadPasswordAttempts);
Сообщить("Description = " + User.Description);
Сообщить("HomeDirDrive = " + User.HomeDirDrive);
Сообщить("HomeDirectory = " + User.HomeDirectory);
Сообщить("UserFlags = " + User.UserFlags);
Сообщить("LockoutObservationlnterval = " +
User.LockoutObservationlnterval);
Сообщить("LoginHours = " + User.LoginHours);
Сообщить("LastLogin = " + User.LastLogin);
Сообщить("LoginScript = " + User.LoginScript);
Сообщить("MinPasswordAge = " + User.MinPasswordAge);
Сообщить("MinPasswordLength = " + User.MinPasswordLength);
Сообщить("MaxBadPasswordsAllowed = " + User.MaxBadPasswordsAllowed);
Сообщить("MaxPasswordAge = " + User.MaxPasswordAge);
Сообщить("MaxStorage = " + User.MaxStorage);
Сообщить("ObjectSid = " + User.ObjectSid);
Сообщить("Parameters = " + User.Parameters);
Сообщить("PasswordAge = " + User.PasswordAge);
Сообщить("PasswordExpirationDate = " + User.PasswordExpirationDate);
Сообщить("PasswordExpired = " + User.PasswordExpired);
Сообщить("PasswordHistoryLength = " + User.PasswordHistoryLength);
Сообщить("PrimaryGroupID = " + User.PrimaryGroupID);
Сообщить("Profile = " + User.Profile);

(7) говорит, что не знает такого объекта...

под v8 поправит кто ?

Для версии 8.0 необходимо в первой строке заменить "создатьОбъект" на "новый сомОбъект".

(6)+(7) Имхо, уже достаточно для решения проблемы.

всем спасибо, ветку закрываем!

Тут возникнут трудности с рекурсией...

(12) Ты уверен что все получится ?

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

(15) Давай, давай... получай...
1. Не все "реквизиты" усера получишь
2. И как хочешь получить ссылку на усера который в иерархии ОУ(глубокой) к примеру
...
И лучче не через WinNT:// а через LDAP://Server:389

(16) можно за более подробной консультацией в аську стукнусь?

(13) В смысле когда контроллеров домена более 1?

рано закрывать:

{Форма.Форма(184)}: Ошибка при вызове конструктора (COMОбъект): Недопустимая строка с указанием класса
   User = Новый COMОбъект("WinNT://" + ИмяКомпьютера + "/" +ИмяПользователя);

(18) Нет о переборе всех подразделений и свойств...
(19) GetObject

и все таки сможет кто поправить код что бы он в v8 работал ?

UP