|
Отказывается создавать подразделение в АД | ☑ | ||
---|---|---|---|---|
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
|
Вельзевул в шоке. Конфигурация какая?
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |