Question

我正试图将 Thunderbird/ Firefox 配置的定制脚本从 OS X 到 Windows 7. 在 OS X 上,它们非常简单, 使用 < code> ldapsearch - x - h ldap.place.edu uid= "username" 从 OpenLDAP 服务器上检索电子邮件地址、真实姓名等, 然后在应用程序装入前将这些变量丢入各种配置文件。

在 Windows 上,这要复杂得多, 我开始尝试使用与 Windows Server 2003 相联的 search.vbs 活动目录/ Ldap 工具, 但它不正确, 我还试图简单地写一个快速 vbs 脚本来连接和查询, 但我总是会收到错误, 要么服务器将不处理请求, 要么只是失败... 这是我最新的 vbs 脚本, 完全无法跳出...

Dim oConn,oRS,vSearch,vCount,vMailList,vValue,vProblem,vMsg

vProblem = False

vSearch = "(uid=username)"

Set oConn = CreateObject("ADODB.Connection")
oConn.Provider = "ADsDSOObject"
oConn.Open "ADs Provider", "ou=people,dc=place,dc=edu"

Set oRS = oConn.Execute("<LDAP://ldap.place.edu/dc=edu/dc=place>;" & vSearch &_";cn,mail")

vCount = 1
While not oRS.EOF

   For Each vValue in oRS.Fields(0).value
      WScript.Echo vValue
   Next

vCount = vCount + 1
oRS.MoveNext
Wend

Answer 1

稍早之前就想通了,完全忘记了这一点,所以是这样的。我意识到我试图连接到一个匿名服务器,但提供了一个 DN,而意味着一个密码级别的认证,而不是我需要的简单版本。

 Server name
sRoot = "LDAP://server"    
Dim oDS: Set oDS = GetObject("LDAP:")
 Don t provide a DN for anonymous authentication, also &H0010 implies simple auth mode
Dim oAuth: Set oAuth = oDS.OpenDSObject(sRoot, "", "", &H0010)
Dim oConn: Set oConn = CreateObject("ADODB.Connection")
oConn.Provider = "ADSDSOObject"
oConn.Open "Ads Provider", sDN
Dim rs
 Execute query
Set rs = oConn.Execute("<" & sRoot & ">;(uid=testuser);cn,mail;subtree")
 retrieve values
z = rs.Fields.Item(0).Value
x = rs.Fields.Item(1).Value

友情链接