Хочу проверить наличие пользователя в Active Directory и если он отсутствует то добавить его. Сравнение происходит по справочнику физ.лиц . возникают проблемы с добавление сотрудника в Active Directory. Может кто реализовывал подскажите?

Set objOU = GetObject("LDAP://firma, OU=39, dc=firma,dc=ru")
Set objUser = objOU.Create("User", "cn=test1c")
objUser.Put "sAMAccountName", "test1c"
objUser.SetInfo

Выдает ошибку на строке "objUser.SetInfo", говорит ошибка доступа. Может кто знает что не так?

(0) юзай ADSI, Михайлов второе издание стр.341-355

(1) Представленный там код особо не отличается от моего!

Ты же сам говоришь - ошибка доступа, вот и смотри, на твой OU=39 если ли у тебя доступ? Обычно доступ имеют администраторы, а 1С ты запускаешь у себя под правами пользователя

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

вот так еще можно
NET USER
[имя_пользователя [пароль | *] [параметры]] [/DOMAIN]
        имя_пользователя {пароль | *} /ADD [параметры] [/DOMAIN]
        имя_пользователя [/DELETE] [/DOMAIN]

У меня есть специальный пользователь с правами на создание пользователей, но куда это все вставить в код, я честно не знаю?

У кого есть "1С: Предприятие 7.7/8.0: системное программирование. - 2-е изд. - (Профессиональное программирование" эта книга дайте пример кода указанный на страницах 341-355


Пользователь="суперпользователь";
Пароль="суперпароль";
ДСО=Получить COMОбъект("LDAP:");
ОУ=ДСО.OpenDSObject("LDAP://firma, OU=39, dc=firma,dc=ru", Пользователь, Пароль,1);


(7) Спасибо, но не взлетает, мне нужно создать пользователя!

(8) дальше создавай, как в (0)

(9) я так и сделал но ругается на синтаксис

7.7

Функция Получить_COMОбъект(Путь="")
   Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Возврат Скрипт.Eval("GetObject('"+Путь+"')");
КонецФункции    // Получить_COMОбъект(Путь="")
//*******************************************
Процедура Сформировать()
   Пользователь="суперпользователь";
   Пароль="суперпароль";
   ДСО=Получить_COMОбъект("LDAP:");
   ОУ=ДСО.OpenDSObject("LDAP://OU=Администраторы,dc=avangard, dc=karat-e,dc=ru", Пользователь, Пароль,1);
   Пользователь = ОУ.Create("User", "cn=test1c");
   Пользователь.Put("sAMAccountName", "test1c");
   Пользователь.SetInfo();
КонецПроцедуры


(11) выдает ошибку с описанием - произошла исключительная ситуация. и все :(

(12) (11) под 7.7

у тебя странная строка "LDAP://firma, OU=39, dc=firma,dc=ru"
че такое первое слово firma ?

если firma это сервер то "LDAP://firma/ OU=39, dc=firma,dc=ru"

(15) да это сервер, но в рабочем варианте я использую IP адрес

(13) в данном примере отличие 7.7 от 8.1  только
7.7 - Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
8.1 - Скрипт=Новый COMОбъект("MSScriptControl.ScriptControl");

если firma это сервер то "LDAP://firma/ OU=39, dc=firma,dc=ru"

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