Как подключиться из VBS к LDAP на линуксе? #387574


#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
#1 by Ivan093
Апа-ап!
#2 by Fragster
ошибок не выдает? тогда проверь регистр - он к нему чувствительный.. (mailuser, MailUser и тд...)
#3 by Platon
А разве ADODB умеет работать с линуксовым LDAP? По моему нет. Я помню прогу виндовую писал для работы с MySQL и то это стало возможно только при установке специального драйвера и настройки именованных каналов а ты LDAP
#4 by Ivan093
нет, этот скрипт работает, но коннектится к серверу AD, а мне надо к линуксовому LDAP
#5 by Ivan093
а почему бы и нет? вроде виндовый AD это тоже LDAP? или это кривой LDAP? :)
#6 by Ivan093
Если не умеет то надо искать другой способ...
#7 by Platon
LDAP это не AD - вариант использовать линуксовые средства
#8 by Platon
У вас OpenLDAP?
#9 by Ivan093
едрен-батон! :( Линукс не получится: стоит задача загрузить юзерам в аутлук все контакты из линуксового почтовика (там привязка к LDAP)
#10 by Fragster
php... или egroupware - к нему аутлук по опенсинку цепляется....
#11 by Fragster
или синкэмэлю... не помню...
#12 by Ivan093
да он самый Вообще сам аутлук умеет искать инфу в службе каталогов LDAP. Может через его объектную модель можно подключиться к LDAP, но к сожалению, в хелпе я не нашел чего-то значимого про LDAP.
#13 by Ivan093
Ап!
#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
#15 by smaharbA
а нафих ненужен адо, можно и без него
#16 by Ivan093
Как?
#17 by Ivan093
Подниму тему, т.к. возник еще один вопрос по ходу: Можно ли программно в аутлуке отключить вопросы по поводу запуска скриптов и доступа к адресной книге извне (в хелпе аутлука не нашел)? Просто иначе придется админу обходить все компы и на каждом ставить параметры безопасности...
#18 by Fragster
а в AD один раз параметры безопасности не прописаь?
#19 by Ivan093
Админ наш говорит, что вроде нет этих настроек в АД. Ведь офис -- стороннее приложение. Я имею ввиду аутлук из офиса, а не аутлук экспресс.
#20 by smaharbA
параметры безопасности ставятся в реестре, но даже если он ножками протопает, это не спасет, нужен либо доппакет для секурити доверия либо искать тут на форуме методу (с готовой обработкой) для того, чтобы обломать оутлук
Тэги: Unix / Linux
Ответить:
Комментарии доступны только авторизированным пользователям

В этой группе 1С