Работа с Active Directory из 1С

38 Comments

1. poyson 07.05.2014 at 09:24

   Большое спасибо. Будем пробовать….

   Reply ↓
2. EvgeniuXP 07.05.2014 at 23:56

   права на папки можно через командную строку установить — сам не раз так делал, только какая команда сейчас не вспомню, т.к. делал лет 5 назад…

   Reply ↓
3. ksuman 11.05.2014 at 06:18

   Наш суд общественности — самый гуманный суд в мире!
   
   Может хватит морочить людям голову задачами, не имеющими практического значения.
   
   Все эти операции: удалить, добавить, назначить права — отлично делаются специальными инструментами администрирования.
   
   Единственное что могло бы пригодиться, это вычисление: входит ли текущий пользователь в указанную группу AD и, получение списка доступных групп AD для назначения прав своим внутренним объектам 1С.

   Reply ↓
4. migele 11.05.2014 at 12:36

   (3) ksuman,
   
   Ну на счет практического использования это Ваше сугубо субъективное мнение.
   
   Алгоритмы используются на вполне боевой системе провижининга. А специальными инструментами администрирования попробуйте пакетно создать 100 пользователей AD, 100 пользователей 1с в 30 различных базах и привязать их к соответствующим учеткам.

   Reply ↓
5. stanru1 12.05.2014 at 16:44

   Спасибо за потраченное время! Я тоже проводил похожие исследования для импорта пользователей из AD, но с созданием так и не хватило терпения разобраться 🙂 Обязательно в будущем воспользуюсь идеями!

   Reply ↓
6. Gulf_Stream 12.05.2014 at 19:56

   (3) ksuman, немного не согласен, вы видимо не администрировали АД с хотя бы 1000 пользователей. На основании этого кода очень удобно выполнять массовые действия над учетными записями. Тоже накатал под свои нужды конфу для работы с LDAP но выложить на общее обозрение не рискну ибо код там уж больно неряшлив 🙁

   Reply ↓
7. user_2010 15.05.2014 at 12:30

   Нужно в 1С.ЗУП для физических лиц формировать сетевое имя пользователя, e-mail, а потом уже глобальная задача: создавать пользователя в AD.

   Вот вопрос: я сформирую для физ лица сетевое имя — мне же нужно проверить, что такого пользователя еще нет в AD. Как это сделать?

   Reply ↓
8. Mi4man 27.05.2014 at 14:29

   (7) user_2010, для этого необходимо выполнить запрос

   ТекстЗапроса = «SELECT ADsPath FROM ‘LDAP://»+Домен+»‘ WHERE objectClass=’User’ AND userPrincipalName='»+ДоменноеИмя+»‘»;

   Если результат пустой, то соответственно в базе нет такого юзера.

   Reply ↓
9. Mi4man 27.05.2014 at 14:35

   (4) есть ли у Вас реализация поиска по ГУИДу в запросе?

   Reply ↓
10. brr 27.05.2014 at 16:27

    (9) Mi4man, SELECT ADsPath FROM ‘LDAP://10.0.0.254’ WHERE objectGUID=’4e1e1853a15ac4b816db44051411­’

    Reply ↓
11. Mi4man 27.05.2014 at 16:41

    (10) brr, что-то я пробовал, но никак не получалось. Эх…

    Reply ↓
12. brr 27.05.2014 at 16:55

    (11) Mi4man, а ГУИД именно такое имел представление? Пример: b4e1e1853a15ac4b8106db44b0051411.

    Reply ↓
13. Mi4man 27.05.2014 at 18:25

    (12) brr, нет, вот такое: 4e1e1853a15ac4b816db44051411 (строка).

    А надо было просто b4e1e1853a15ac4b8106db44b0051411 ?

    Reply ↓
14. KroVladS 28.05.2014 at 09:47

    гдеб найти примеры работы с openLDAP из под Linux?

    Reply ↓
15. harmer 28.05.2014 at 09:54

    Спасибо.
    
    Небольшое замечание: SID формируется с символами НПП.
    

    SID    = SID + Строка(Даш);

    Reply ↓
16. brr 28.05.2014 at 11:33

    (13) Mi4man, нет, просто я не понял какое представление ГУИД вы использовали

    Reply ↓
17. It-developer 27.02.2015 at 19:34

    Не получается создать пользователя. Пишет «Ошибка получения объекта COM: Сервер возвратил ссылку». Что может быть?
    
    Вроде все по схеме
    
    element_group = ПолучитьCOMОбъект(«LDAP://OU=Папка 2,OU=Пользователи домена,OU=sim,DC=dc,DC=my_company,DC=com)»);

    Reply ↓
18. jake_qwert 23.03.2015 at 10:52

    А каким кодом можно изменить организационную единицу (OrganizationalUnit) у существующего пользователя? Т.е. мне нужно перенести в другую папку пользователя. Пробывал изменить distinguishedName, выдает ошибку.

    Reply ↓
19. jake_qwert 23.03.2015 at 12:09

    Разобрался сам, вот так, если кому-то интересно (первая строка куда перемещаем, вторая откуда)
    
    set cont = GetObject(«LDAP://dc=dom,dc=com»)
    
    set newobj = cont.MoveHere(«LDAP://cn=jeffsmith,ou=sales,dc=dom,dc=com», «cn=jeffsmith»)

    Reply ↓
20. i_rebel 10.01.2016 at 08:37

    Как получить список групп пользователя из AD ? хочу открывать пользователя AD и видеть его группы AD? ; нужно видеть все группы и те которые присвоены данному пользователю

    Reply ↓
21. Armando 11.01.2016 at 00:33

    (20) i_rebel, код на vbs для получения своих групп:
    

    Set objADSysInfo = CreateObject(«ADSystemInfo»)
    Set objUser = GetObject(«LDAP://» & objADSysInfo.UserName)
    For Each objGroup in objUser.memberOf
    NameGroup = GetObject(«LDAP://» & objGroup).cn
    Next

    Reply ↓
22. imbaZeratul 15.01.2016 at 07:31

    каким кодом можно считать данные пользователя, допустим описание, телефон и так далее

    Reply ↓
23. i_rebel 20.01.2016 at 12:30

    (21) Armando, мне нужно все группы, чтобы потом мог сделать интерактивно добавление или удаление из группы
    

    Reply ↓
24. jake_qwert 10.02.2016 at 12:50

    Все получилось всем спасибо.

    Reply ↓
25. Danila-Master 02.06.2016 at 14:25

    Весь инет перерыл, так и не смог найти нормального примера/описания как переименовать пользователя в AD.
    
    Задача такая:
    
    В 1С сотрудник сменил ФИО, зная ее доменное имя, как поменять на новое ФИО в самом AD?

    Reply ↓
26. blackhole321 02.06.2016 at 16:25

    (25) Danila-Master,
    
    Попробуйте через PowerShell. Set-ADUser (https://technet.microsoft.com/en-us/library/ee617215.aspx)

    Reply ↓
27. Danila-Master 30.06.2016 at 11:15

    Помогите разобтаться. Почему-то не хочет работать powershell.

    В 1С делаю ЗапуститьПриложение(«powershell.exe -Command {Set-ADUser -Identity «»1ctest»» -Surname «»Иванов»» -GivenName «»Иван»»}»);
    
    Имя учетни не меняется.
    
    В cmd.exe пишу строку: powershell.exe -Command {Set-ADUser -Identity «1ctest» -Surname «Иванов» -GivenName «Иван»}
    
    Так же, имя учетки не меняется.
    
    Но если в самой консоле PowerShell’а написать строку: Set-ADUser -Identity «1ctest» -Surname «Иванов» -GivenName «Иван»
    
    То все ништяк, Имя в учетке поменялось.

    1С, cmd и консоль PowerShell запущенны от именю учетки, у которой есть права на изменение данных в домене. Так что этот момент стразу отсекаю.

    Reply ↓
28. blackhole321 30.06.2016 at 12:38

    (27) Danila-Master, в 1С код выполняется на том же компьютере, где Вы открывали консоль PowerShell? (М.б. Вы открывали консоль на своей клиентской машине, а ЗапуститьПриложение выполняли на сервере)

    Reply ↓
29. Danila-Master 01.07.2016 at 06:39

    (28) blackhole321,

    (М.б. Вы открывали консоль на своей клиентской машине, а ЗапуститьПриложение выполняли на сервере)

    Так оно и есть и будет. Но запуск происходит от одной и той же учетки, что на моем компе, что на сервере.
    
    Но перед тем как писать в 1С, мне нужно из командной строки добится результата. Поэтому пока делаю все на своем компе.

    Столкнулся с интересной ситуацией:
    
    В cmd пишу powrshell.exe, проваливаюсь в сам сонсоль PS.
    
    Далее в PS пишу: Get-ADUser -Identity «1ctest»
    
    Выдает ошибку, что команда Get-ADUser не найдена.
    
    Как оказалось нужно подключить модуль для работы с AD.
    
    > Import-Module ActiveDirectory
    
    > Get-ADUser -Identity «1ctest»
    
    о чудо, Get-ADUser выдал результат. но при этом, даже после подключения модуля, команда Set-ADUser -Identity «1ctest» -Surname «Иванов» -GivenName «Иван»
    
    так и выполнилась. И ошибок нет.

    Reply ↓
30. Danila-Master 01.07.2016 at 11:11

    В общем разобрался я 🙂
    
    1. Нужно поставить PowerShell версии 4.0 (по-умолчанию у windows 7 и 2008 R2 стоит версия 2.0)
    
    В версии 4.0 не нужно импортировать разные модули, shell сама все делает.
    
    2. Рабочая команда в cmd: powershell.exe Set-ADUser -Identity ‘1ctest’ -Surname ‘Иванов’ -GivenName ‘Иван’ -DisplayName ‘Иванов Иван’
    
    где
    
    Identity — параметр поиска (в данном случае доменное имя пользователя)
    
    Surname — Фамилия
    
    GivenName — Имя
    
    DisplayName — Отображаемое имя

    Reply ↓
31. Danila-Master 15.07.2016 at 08:41

    Все, разобралися.
    
    Вдруг кому пригодится, вот рабочий код:
    

    ТекстКоманды = «powershell.exe -command «»$user = Get-ADUser -Identity ‘» + ДоменноеИмя + «‘»;
    ТекстКоманды = ТекстКоманды + » ; Set-ADUser -Identity $user -Surname ‘» + ТРег(ФамилияEn) + «‘ -GivenName ‘» + ТРег(ИмяEn) + «‘ -DisplayName ‘» + ПолноеИмя + «‘»;
    ТекстКоманды = ТекстКоманды + » ; Rename-ADObject -Identity $user -NewName ‘» + ПолноеИмя + «‘»»»;
    
    ЗапуститьПриложение(ТекстКоманды);
    

    Reply ↓
32. user695952_stepanyan 10.03.2017 at 11:02

    Какой командой можно добавить роль в список ролей MemberOf ? И как получить ссылку на саму группу?

    Reply ↓
33. Neverpoint 29.10.2017 at 05:52

    (3) Вы далеки от реального управления бизнесом. В частности у нас в 1С создают новых клиентов, карточки и они автоматом прописываются в AD который как LDAP раздает в FreePBX и еще ряд специальных услуг для клиентов пароли и юзернеймы. Вы не понимаете о чем речь

    Reply ↓
34. burstmashine 22.11.2018 at 11:17

    Подскажите: Документ, в нет по параметром выходит список (на картинке. студент , создается пользователь в домене и пароль ). Код брал отсюда для создания пользователе. Как сделать так , чтобы при создании пользователя он проверял и выдавал предупреждение(ошибку или не создовал такого пользака) есть ли уже такой пользователь(так как студент может учится в двух разнух факультетах например.)

    Reply ↓
35. Danila-Master 22.11.2018 at 14:57

    Можно так проверить:

    objConnection = Новый COMОбъект(«ADODB.Connection»);
    objConnection.Provider = «ADSDSOObject»;
    objConnection.Open(«Active Directory Provider»);
    Домен1 = «dm»;
    Домен2 = «bc»;
    ДоменноеИмя = «Ivanov_Ivan»;
    
    query = «<LDAP://DC=» + Домен1 + «,DC=» + Домен2 + «>;(&(objectCategory=person)(objectClass=user)(sAMAccountName=» + ДоменноеИмя + «));name,AdsPath,sAMAccountName,mail,pwdLastSet; SubTree»;
    
    objRS = objConnection.Execute(query);
    
    Если Не rs.EOF Тогда
    Сообщить(«Пользователь существует»);
    КонецЕсли;
    
    conn.Close();

    Показать

    Reply ↓
36. burstmashine 26.12.2018 at 14:54

    Ещё раз сдравствуйте, а как добавить пользователей в группу, по пункту 4 не получается .Все пользователи в группе Учащиеся, в ней группа Студенты с подпиской. я пробывал и так и сяк, что не так делаю?)

    Reply ↓
37. triviumfan 12.03.2019 at 17:36

    Может вы в курсе почему стандартный метод ПользователиОС() возвращает массив структур доменов с ограничением массива пользователей в 100 элементов?

    Reply ↓
38. MSK_Step 02.07.2019 at 18:26

    (0) Для автора, преобразование objectGUID в строку, может кому пригодиться
    
    //https://support.microsoft.com/en-us/help/325649/how-to-retrieve-the-guid-of-an-object-from-the-active-directory

    МассивГУИД = ПреобразоватьВМассивГУИДНаСервере(ПользовательAD.objectGUID);
    
    СтрокаGUID  = СтрСоединить(МассивГУИД,»»);
    СтрокаGUID = ConvertHexStringGUIDToStringGUID(СтрокаGUID);
    

    Функция ConvertHexStringGUIDToStringGUID(strOctet = «»)
    
    tmpGUID = «»;
    GUIDStr = «»;
    
    GUIDStr = Mid(strOctet, 7, 2);
    GUIDStr = GUIDStr + Mid(strOctet,  5, 2);
    GUIDStr = GUIDStr + Mid(strOctet,  3, 2);
    GUIDStr = GUIDStr + Mid(strOctet,  1, 2);
    GUIDStr = GUIDStr + Mid(strOctet, 11, 2);
    GUIDStr = GUIDStr + Mid(strOctet,  9, 2);
    GUIDStr = GUIDStr + Mid(strOctet, 15, 2);
    GUIDStr = GUIDStr + Mid(strOctet, 13, 2);
    GUIDStr = GUIDStr + Mid(strOctet, 17, СтрДлина(strOctet));
    
    tmpGUID = «{» + Mid(GUIDStr,  1,  8) + «-» + Mid(GUIDStr,  9, 4)
    + «-» + Mid(GUIDStr, 13,  4) + «-» + Mid(GUIDStr, 17, 4)
    + «-» + Mid(GUIDStr, 21, 15) + «}»;
    
    Возврат tmpGUID;
    КонецФункции
    

    Показать

    Функция ПреобразоватьВМассивГУИДНаСервере(objectGUID)
    
    МассивGUID    = Новый Массив;
    Для Каждого ЭлементGUID Из objectGUID Цикл
    МассивGUID.Добавить(DecToAny(ЭлементGUID,16));
    КонецЦикла;
    
    Возврат  МассивGUID;
    КонецФункции
    
    

    Показать

    Функция DecToAny(Знач тЗначение, Знач тОснование)
    тРезультат = «»;
    
    Пока тЗначение > 0 Цикл
    тРезультат = Сред(«0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ», тЗначение%тОснование + 1, 1) + тРезультат;
    тЗначение = Цел(тЗначение/тОснование) ;
    КонецЦикла;
    
    Возврат тРезультат;
    КонецФункции
    
    

    Показать

    Reply ↓