Отправка данных из 1С в AD

1. user1934472 15.10.24 15:47 Сейчас в теме
Доброго дня!
Подскажите как можно отправить данные из 1С через COMОбъект в AD.
Необходимо из базы ЗУП отправлять номера телефонов в AD.

И может быть есть лучше решение вообще не через COMОбъект
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
3. starik-2005 3082 15.10.24 17:13 Сейчас в теме
Чито. опять на инфостарте поиск перестал работать?)))

ЗЫ: в списке рекомендованного ндаже оказалось похожее что-то. Топикастер, зацени! )))
4. user1934472 16.10.24 09:28 Сейчас в теме
(3) Да я видел все эти статьи, мне не нужно удалять, создавать пользователя вопрос ли в том как работать с существующим.
6. starik-2005 3082 16.10.24 10:16 Сейчас в теме
(4)
вопрос ли
Вопрос ли это, или не вопрос - вот в чем вопрос ))) Пушкина сходи с Толстым зацени )))
7. user1934472 16.10.24 10:21 Сейчас в теме
5. user1934472 16.10.24 09:40 Сейчас в теме
Даже больше вопрос в том, можно ли получил выборку пользователей домена в обходе ее работать с пользователем. Там где ! знаки.

КомандаАДО    = Новый COMОбъект("ADODB.Command");
    СоединениеАДО = Новый COMОбъект("ADODB.Connection");
     
    СоединениеАДО.Provider = "ADSDSOObject";
    Попытка
        СоединениеАДО.Open("Active Directory Provider");    
    Исключение
        Сообщить("Ошибка при открытии Active Directory Provider: " + ОписаниеОшибки());
        Возврат "не удалось получить пользователя домена";
    КонецПопытки;
     
    КомандаАДО.ActiveConnection = СоединениеАДО;
     
    Попытка
        RootDSE = ПолучитьCOMОбъект("LDAP://RootDSE");
    Исключение
        Сообщить("Ошибка ПолучитьCOMОбъект(LDAP://RootDSE): " + ОписаниеОшибки());
        Возврат "не удалось получить пользователя домена";
    КонецПопытки;
     
    ТекущийДомен = RootDSE.Get("defaultNamingContext");
    Сообщить("ТекущийДомен: " + ТекущийДомен);
     
    Попытка
        ОбъектТекущегоДомена = ПолучитьCOMОбъект("LDAP://" + ТекущийДомен); 
    Исключение
        Сообщить("Ошибка ПолучитьCOMОбъект "+"LDAP://" + ТекущийДомен+": " + ОписаниеОшибки());
        Возврат "не удалось получить пользователя домена";
    КонецПопытки;
          
	ДоменноеИмя = "TestUser";
	
	//Фильтр = "(&(objectCategory=person)(objectClass=user))";
	
	КомандаАДО.CommandText = "SEL ECT ADsPath,userAccountControl,displayName,sAMAccountName,Mail,givenName,sn,telephoneNumber FR OM 'LDAP://"+"SYN.local"+"' WHERE objectClass='"+"user"+"'"+" and sAMAccountName='"+ДоменноеИмя+"'";    
    КомандаАДО.Properties("Page Size").Value     = 100;
    КомандаАДО.Properties("Timeout").Value       = 30;
    КомандаАДО.Properties("Cache Results").Value = Ложь;
		
    Попытка
        ВыборкаАДО = КомандаАДО.Execute();  
    Исключение
        Сообщить("Ошибка Execute(): " + ОписаниеОшибки());
        Возврат "не удалось получить пользователя домена";
	КонецПопытки;    
		
	Пока НЕ ВыборкаАДО.EOF Цикл
         
        Если ВыборкаАДО.Fields("userAccountControl").Value = 514 ИЛИ
            ВыборкаАДО.Fields("userAccountControl").Value = 546 ИЛИ
            ВыборкаАДО.Fields("userAccountControl").Value = 66050 Тогда
              
            //Сообщить("Заблокирован");
        Иначе
		Если НЕ ЗначениеЗаполнено(СокрЛП(ВыборкаАДО.Fields("telephoneNumber").Value)) Тогда
		
		!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

		КонецЕсли;	
			
        КонецЕсли;
         
        ВыборкаАДО.MoveNext();
        		
    КонецЦикла;

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

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот