#0
by Ivan093
День добрый! Знает ли кто-нибудь, как можно подключиться к LDAP, который на линуксе, из vbs и получить оттуда данные? К виндовому актив директори подключаюсь, а вот к линуксовому не получается. Вот код для подключения к AD, может тут что поправить? Set objShell = CreateObject("WScript.Shell") Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objConnection.Open "10.0.0.22:389" Set objCommand.ActiveConnection = objConnection objCommand.CommandText = "Select * from 'LDAP://cn=Users,dc=kinetika,dc=local' " 'Where objectClass ='mailUser'" ' objCommand.Properties("Page Size") = 1000 'objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF Str = objRecordSet.Fields("ADsPath").Value objRecordSet.MoveNext Loop
#2
by Fragster
ошибок не выдает? тогда проверь регистр - он к нему чувствительный.. (mailuser, MailUser и тд...)
#3
by Platon
А разве ADODB умеет работать с линуксовым LDAP? По моему нет. Я помню прогу виндовую писал для работы с MySQL и то это стало возможно только при установке специального драйвера и настройки именованных каналов а ты LDAP
#9
by Ivan093
едрен-батон! :( Линукс не получится: стоит задача загрузить юзерам в аутлук все контакты из линуксового почтовика (там привязка к LDAP)
#12
by Ivan093
да он самый Вообще сам аутлук умеет искать инфу в службе каталогов LDAP. Может через его объектную модель можно подключиться к LDAP, но к сожалению, в хелпе я не нашел чего-то значимого про LDAP.
#14
by Ivan093
Получилось подключиться к LDAP с помощью ADO! Вот скрипт на vbs, не уверен только по поводу правильности свойства Provider, но работает: Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText = "Select cn,mail,mailStatus from 'LDAP://10.0.0.22/ou=domains,dc=kinetika,dc=local' where mailStatus <> FALSE" Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF cn = objRecordSet.Fields("cn").Value mail = objRecordSet.Fields("mail").Value mailStatus = objRecordSet.Fields("mailStatus").Value objRecordSet.MoveNext Loop
#17
by Ivan093
Подниму тему, т.к. возник еще один вопрос по ходу: Можно ли программно в аутлуке отключить вопросы по поводу запуска скриптов и доступа к адресной книге извне (в хелпе аутлука не нашел)? Просто иначе придется админу обходить все компы и на каждом ставить параметры безопасности...
#19
by Ivan093
Админ наш говорит, что вроде нет этих настроек в АД. Ведь офис -- стороннее приложение. Я имею ввиду аутлук из офиса, а не аутлук экспресс.
#20
by smaharbA
параметры безопасности ставятся в реестре, но даже если он ножками протопает, это не спасет, нужен либо доппакет для секурити доверия либо искать тут на форуме методу (с готовой обработкой) для того, чтобы обломать оутлук
Тэги: Unix / Linux
Ответить:
Комментарии доступны только авторизированным пользователям
Похожие вопросы 1С
В этой группе 1С
- Передача в запрос(.ДобПараметр(1,8,8,0)) даты сопровождается ошибкой
- УТ. Универсальный отчет. Детальные записи.
- Ошибка при обновлении типовой конфигурации Бухалтерия 8.1
- Как вывести Макет на экран.
- Как посчитать цену в запросе?
- Выгрузка данных из БП 1.6 в УТ 10.3
- v7: Фирма переходит на УСН как переделать Бухгалтерию и перенести остатки!
- При Тестировании из Конфигуратора выдает сообщение Режим замещения ведущих объектов
- Как в запросе представить несколько полей в виде строки
- ЗУП - годовая премия в отпуске
- v8: Обновление УТ с 10.3.5.1 на 10.3.6.8 Ошибка!
- Предоплата в реализации
- Защита конфигурация GoldenKey
- Обратный порядок обхода результата запроса
- v7: Выгрузка данных из ЗУП, ред. 2.5 в Бух v8
- Хранитель 1С
- Печать из 1С word документов. не получается
- УПП Можно ли в Упп посмотреть проводки по группе док-в?
- Курсовые разницы при расчетах в у.е.
- AppName: 1cv7.exe AppVer:7.70.0.27, Mod Name: dbeng 32 dll, Mod Ver 7.70.0.14, Offset