LDAP bind user to objUser

[fresod]

Hi.

I want the user to be able to change his/hers password trough LDAP. But I`m having trouble to bind the user to objUser. I`ve tried this:

Set objUser = GetObject("LDAP://cn=USERS NAME,ou=OU, dc=DOMAIN,dc=COM")

but how can I get the USERS NAME of a logged user? I can get the sAMAccountName trough request.servervariables("auth_user") but I dont think I can bind a user to objUser with sAMAccountName.


Any suggestions?

 

[tsuji]

Try this instead.
[tt]
dim ouser, otrans, sdn
set ouser=nothing
if request.servervariables("auth_user")<>"" then
with server.createobject("nametranslate")
.init 3,""
.set 3,request.servervariables("auth_user")
sdn=.get(1)
end with
set ouser=getobject("LDAP://" & sdn)
end if
if not (ouser is nothing) then
'do things with user object
else
'do things when you cannot bind to the user object
end if
[/tt]

 

[fresod]

Thanks Tsuji.

I found a solution before you posted your reply so have not tried your solution, but thanks anyway.

My own solution can be found here:

http://www.microsoft.com/technet/scriptcenter/resources/qanda/apr05/hey0412.mspx