I have been strugling with this one for few weeks now.  I hope to get
some help here.

Following code works fine, except that I have to hard-code the user's
fullpath (2nd parameter of the OpenDSObject() method).

Here is the code:

--------------------------


sub login5(uid, password)

Dim userName, ldapserver, dso, lobjUser, ldap_path

ldap_path = "LDAP://servername/dc=domain,dc=com"

userName =
" uid=#userid#,ou=int7,ou=internal,ou=peop
le,c=us,cn=users,dc=campbells,dc=co
m"

userName = Replace(userName, "#userid#", uid)

' Connect to the LDAP Directory
Set dso = GetObject("LDAP:")


'Validate the User Name and Password
Set lobjUser = dso.OpenDSObject(ldap_path, userName, password, 0)

If Err.number <> 0 Then
Response.Write "AUTHENTICATION FAILURE!"
Set lobjUser = nothing
Set dso = nothing
Else
Response.Write "SUCCESS!"
end if

end sub

-------------------------

For this this work, I need to know exact path of the user (i.e.
userName =
" uid=#userid#,ou=int7,ou=internal,ou=peop
le,c=us,cn=users,dc=campbells,dc=co
m")

Is there anyway to do something like:

userName = " uid=#userid#,ou=*,ou=*,ou=*,c=*,cn=*,dc=
campbells,dc=com"
Thanks

[ Post a follow-up to this message ]