Имя: Пароль:
1C
 
Отказывается создавать подразделение в АД
0 ikbokov
 
03.02.15
15:04
Подразделение получаем запросом.
Пробовал уже и Строка() и Пробелы убирал, все равно пишет ошибку: Ошибка при вызове метода контекста (SetInfo): Произошла исключительная ситуация (Active Directory): Такой объект на сервере отсутствует

Процедура ВыгрузитьВАД(ВыборкаСотрудников)
    
    МенятьПарольПриВходе = Истина;
    ПарольПользователя = "Hodor123";
    
    //ИмяОрганизационнойЕдиницы = ВыборкаСотрудников.Подразделение;
    //ОрганизационнаяЕдиница = СоздатьОрганизационнуюЕдиницу(ИмяОрганизационнойЕдиницы);
    //Сообщить(ИмяОрганизационнойЕдиницы);
    //Сообщить(ОрганизационнаяЕдиница);
    
    Пока ВыборкаСотрудников.Следующий() Цикл
    Логин = ВыборкаСотрудников.Сотрудник;
    Организация = ВыборкаСотрудников.Организация;
    Подразделение = ВыборкаСотрудников.Подразделение;
    Должность = ВыборкаСотрудников.Должность;
    Сообщить(Логин); /////////////////////////////\
    Сообщить(Должность);
    Сообщить(Подразделение);
    фРезультат = Истина;
    
    Попытка    
        //ОрганизационнаяЕдиницаОбъект = ПолучитьCOMОбъект("LDAP://OLD-DC.VODOKANALEKB.RU");
        ОрганизационнаяЕдиницаВладелецОбъект = ПолучитьCOMОбъект("LDAP://OLD-DC.VODOKANALEKB.RU");
        ОрганизационнаяЕдиница = ОрганизационнаяЕдиницаВладелецОбъект.Create("OrganizationalUnit", "OU="+Подразделение);
    
         ПользовательAD = ОрганизационнаяЕдиница.Create("user","CN=" + Логин);
        ПользовательAD.company = Строка(Организация);
        ПользовательAD.department = Строка(Подразделение);
        ПользовательAD.sAMAccountName = СформироватьДоменноеИмя(Логин);
        ПользовательAD.description = Строка(Должность);
        ПользовательAD.userPrincipalName = СформироватьДоменноеИмя(Логин) + "@" + "VODOKANALEKB";
        ПользовательAD.givenName = ПолучитьИмя(Логин);
        ПользовательAD.sn = ПолучитьФамилию(Логин);
        ПользовательAD.displayName = Строка(Логин);
        ПользовательAD.title = Строка(Должность);
        
        Если МенятьПарольПриВходе Тогда
            ПользовательAD.pwdLastSet        = 0;
        Иначе
            ПользовательAD.pwdLastSet        = -1;
        КонецЕсли;
        
        ПользовательAD.SetInfo();
        ПользовательAD.SetPassword(ПарольПользователя);
    Исключение
        фРезультат    = Ложь;
        ОписаниеОшибки    = ОписаниеОшибки();
    КонецПопытки;
    Сообщить(ОписаниеОшибки);
    Если фРезультат Тогда
        ПользовательAD.AccountDisabled = Ложь;
        ПользовательAD.SetInfo();
    КонецЕсли;
    
    Сообщить(фРезультат);
    КонецЦикла;
1 ikbokov
 
03.02.15
15:05
при том если в строке ОрганизационнаяЕдиницаВладелецОбъект.Create("OrganizationalUnit", "OU="+Подразделение);
поменять "OU="+Подразделение на "OU = Нужное мне имя"
все отрботает
2 tesei
 
03.02.15
15:14
Вельзевул в шоке. Конфигурация какая?