package require Ldap
LdapInit

set host ldap.chapman.edu
set port 389
set userDN ""
set passwort ""

set con [LdapBind $host $port $userDN $passwort]

set resultat [LdapSearch $con base never \
   "uid=aanderso,ou=People,o=chapman.edu" 1 \
   "(objectclass=person)" \
   [list cn sn uid givenname]
]
puts $resultat\n

set resultat2 [LdapSearch $con sub never \
   "ou=People,o=chapman.edu" 10 \
   "(&(objectclass=person)(sn=a*))" \
   [list cn uid ]
]
puts $resultat2

LdapUnBind $con