Читайте Exchange используя VBScript - PullRequest
Новая
       11

Читайте Exchange используя VBScript

1 голос
/ 10 сентября 2009

Я написал этот код в ColdFusion для чтения данных из Exchange, и мне интересно, может ли кто-нибудь помочь мне кодировать это с помощью скрипта Visual Basic: 

<cfldap
  server="insert_my_server_name_here"
  username="zzz\zzzzzz"
  password="xxxx"
  port = "123"
  action = "query"
  name = "data"
  attributes = "company"
  filter = "(&(objectclass=group))"
  returnAsBinary = "objectSID"
>

Я получил это далеко, но он возвращает таблицу не найдена ошибка: 

Dim UserID
UserID = "my_user_ID"

Set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"

Dim Base, Filter, Attr, Level, Server
Server = "insert_my_server_name_here"

Base = "<LDAP://" & Server & "/DC=dot,DC=com>;"
Filter = "(&(objectClass=user)(objectCategory=person)(samAccountName=" & UserID & "));" 
Attr = "distinguishedName;"
Level = "SubTree"

Set RecordSet = objConn.Execute(Base & Filter & Attr & Level)

RecordSet.MoveFirst
While Not RecordSet.EOF
  Wscript.echo RecordSet.Fields(0).Value
  RecordSet.MoveNext
Wend

1 Ответ

1 голос
/ 11 сентября 2009

Код, который вы опубликовали, в порядке.

Я думаю, у вас должна быть неправильная ссылка на ваш домен в строке запроса LDAP. Вы используете переменную «Сервер», чтобы предоставить имя контроллера домена, которое подходит (но обычно не требуется), но меняете ли вы «DC = точка, DC = com» для отображения имени вашего домена? Например, если ваш домен My.Domain, он должен быть «DC = My, DC = Domain»

...