Question

我们有一个旧的ASP经典应用程序，它使用ldapsearch二进制文件（属于openldap二进制文件套件）来检索LDAP属性。我们正在尝试获取用户“ myuser”的电子邮件和其他一些属性，并使用以下语法通过另一个用户“ adminuser”登录。

ldapsearch.exe -bcn=myuser,ou=someou,o=mydivision -s base -Dcn=adminuser,ou=mydivision,o=somevalue -h myldapServerHostname  -z10 -w adminuserpassword mail

可以找到语法的含义：https://www.freebsd.org/cgi/man.cgi?query=ldapsearch&manpath=SuSE+Linux/i386+11.3

如何使用VBScript检索邮件和其他属性？当前，我们正在使用GetObject（“ LDAP”）和openDSOObject语法。

当以myuser身份登录时，我设法使用以下代码获取电子邮件。但是，如何使用另一个用户的登录名和密码凭据呢？我使用adminuser的原因是它是作为属性查找功能实现的。

当前，我使用“ myuser”登录凭据运行以下代码。

Const ADS_SECURE_AUTHENTICATION = 1
Const ADS_USE_ENCRYPTION = 2
Const ADS_USE_SSL = 3

' Turn off error Handling
On Error Resume Next

Set dso = GetObject("LDAP:")

'this uses SSL connections.
Set ou = dso.OpenDSObject("LDAP://myldapServerHostname:636/CN=myuser,OU=someou,DC=somedc", "myuser", "myuserpassword", ADS_SECURE_AUTHENTICATION )

If Err.Number <> 0 Then

    Response.Write (Err.Description  & "<BR>")   
    Response.Write ("login failed" & "<BR>")

Else
   Response.Write ("login successful" & "<BR>")  
   Response.write ( "Email: " & ou.mail & " <BR>" ) 
   Response.write ( "Title:" & ou.title  & " <BR>" ) 
End If

我如何使用另一个用户登录凭据来执行类似的操作？我应该阅读和关注的任何样本或网站吗？

参考： Binding with Encryption selfadsi get attributes

检索属性

0 个答案: