Вот пример, который подключится к серверу 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"
}
}