使用CGI + TCL进行LDAP认证

Question

如何使用CGI/TCL堆栈通过LDAP认证用户？

如果可能，请提供示例代码片段。

---

我在RHEL 5.0上使用Apache Web服务器; AD存在于远程Win2003服务器上。

Answer 1

这里是一个将连接到LDAP服务器并获取所有的信息LDAP的大约有电子邮件地址的例子：

package require ldap 
set sEmailAddress "user@example.com" 

set handle [::ldap::connect example.com 3268] 
ldap::bind $handle 

set result [::ldap::search $handle "dc=example,dc=com" "(mail=$sEmailAddress)" {sAMAccountName}] 

foreach {object attributes} $result { 
    foreach {name val} $attributes { 
    puts "$name\t$val" 
    } 
} 

Answer 2

这里是ldap package。你首先使用一些可以看到每个人的“绑定用户”进行绑定。然后，您根据某个属性（如电子邮件地址或sAMAccountName）搜索用户。如果用户存在，则使用给定的密码和用户的完整路径重新绑定。