LDAP + 1C: редактирование свойств пользователя

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v8.3

1. Xephone 03.06.14 02:13 Сейчас в теме

Пытаюсь записать свойства у пользователя (mail, подразделение и т.п.), но на этапе получения объекта выходит ошибка

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

1) Поиском пользовался, ни у кого такой проблемы не встретил
2) При запросе к структуре LDAP свойство "mail" находит
3) Сбой идет при вызове метода "OpenDSObject()"
4) Права админа есть

Код:

SuperUser = "Admin@SERVER.LOCAL"; 
    SuperUserPWD = "123456"; 
    strCN = "OU=Пользователи,CN=Иванов";
    objRootLDAP = ПолучитьCOMОбъект("LDAP://rootDSE");  

    попытка    
        strDC = objRootLDAP.Get("defaultNamingContext"); 
        dso = ПолучитьCOMОбъект("LDAP:");
        obj = dso.OpenDSObject("LDAP://" +  strDC + "," + strCN , SuperUser, SuperUserPWD, 1);

        obj.Put("mail", "email@mail.ru");
        obj.SetInfo();
    Исключение
        Сообщить(ОписаниеОшибки());
    КонецПопытки;

Показать

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. ser6702 175 02.02.22 11:56 Сейчас в теме

(1) так и не нашлась причина?

3. nomad_irk 81 06.04.23 12:22 Сейчас в теме

(1)

obj = dso.OpenDSObject("LDAP://" + strDC + "," + strCN , SuperUser, SuperUserPWD, 1);

необходимо изменить на:

obj = dso.OpenDSObject("LDAP://" +  strCN + "," + strDC, SuperUser, SuperUserPWD, 1);

4. maksa2005 555 28.06.24 10:50 Сейчас в теме

(3){ВнешняяОбработка.craft1c_ЗагрузкаПользователейИзAD.Форма.Форма.Форма(293)}: Ошибка при вызове метода контекста (OpenDSObject): Произошла исключительная ситуация (Active Directory): Такой объект на сервере отсутствует.

5. maksa2005 555 02.07.24 11:46 Сейчас в теме

решился кодом:

dso = ПолучитьCOMОбъект("LDAP:");     
	Попытка
		newObject = dso.OpenDSObject(Доп.AdsPath, Пользователь,Пароль, 1);
	Исключение
		ВызватьИсключение ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
	КонецПопытки;        
	
	МассивФИО = СтрРазделить(НовоеИмя," ");
	Если МассивФИО.Количество()=1 Тогда
		newObject.samaccountname	 = "samaccountname";//МассивФИО[0];	
	ИначеЕсли МассивФИО.Количество()>1 Тогда  
		newObject.samaccountname	 = "samaccountname";//МассивФИО[0]; //ФАМИЛИЯ
		newObject.givenName  		 = "givenName";//МассивФИО[1];    //ИМЯ
	КонецЕсли;
	
	newObject.samaccountname 	= "samaccountname";//НовоеИмя;
	newObject.displayName 		= "displayName";//НовоеИмя; //ВЫВОДИМОЕ ИМЯ
	
	newObject.userPrincipalName = "userPrincipalName";  //???? 
	newObject.department		= "department";      //отдел
	newObject.mail              = ""+НовоеИмя+"@mail.ru";  //эл. почта 
	newObject.telephoneNumber   = "79355555555";  //телефон
	newObject.sn              	= "sn";     //полное имя 
	
	Попытка       	      
		newObject.SetInfo();
	Исключение
		ВызватьИсключение ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
	КонецПопытки;

Показать

Оставьте свое сообщение

E-mail: