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

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

1. user1934472 15.10.24 15:47 Сейчас в теме

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

И может быть есть лучше решение вообще не через COMОбъект

По теме из базы знаний

Ответы

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

Свернуть все

2. user-z99999 71 15.10.24 15:55 Сейчас в теме

(1)
https://infostart.ru/1c/articles/275916/

3. starik-2005 3089 15.10.24 17:13 Сейчас в теме

Чито. опять на инфостарте поиск перестал работать?)))

ЗЫ: в списке рекомендованного ндаже оказалось похожее что-то. Топикастер, зацени! )))

4. user1934472 16.10.24 09:28 Сейчас в теме

(3) Да я видел все эти статьи, мне не нужно удалять, создавать пользователя вопрос ли в том как работать с существующим.

6. starik-2005 3089 16.10.24 10:16 Сейчас в теме

(4)

вопрос ли

Вопрос ли это, или не вопрос - вот в чем вопрос ))) Пушкина сходи с Толстым зацени )))

7. user1934472 16.10.24 10:21 Сейчас в теме

(6) классная шутка....

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();
        		
    КонецЦикла;

Показать

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

E-mail: