ADSI

[Miguel Orrego]

Hi,

I have found some code that authenticates users agains a domain using ADSI.
I then redirect to another page and pass the username they have entered as a
string. However, it would be nice to also get their full name from Active
Directory once authenticated. Can anyone suggest how I may modify this code
to achieve this? I would also like to pass their full name to the next page
as a string. The code I found:

<%

if (not strADsPath= "") then

' bind to the ADSI object. If user has supplied a username, then
' authenticate too
strADsPath = "WinNT://" & strADsPath
Dim oADsObject
Dim tempstr
tempstr = strDomain & "\" & strUserName


Set oADsObject = GetObject(strADsPath)


Dim strADsNamespace
Dim oADsNamespace
strADsNamespace = left(strADsPath, instr(strADsPath, ":"))
set oADsNamespace = GetObject(strADsNamespace)

Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, tempstr,
strPassword, 0)

' we've only managed to bind if err.number = 0
if not (Err.number = 0) then
Response.Write "Login Failed, please try again</strong><br>"

else
'If the password is correct then set the session variable to True
Session("blnIsUserGood") = True

'Close Objects before redirecting
Set adoCon = Nothing
Set strCon = Nothing
Set rsCheckUser = Nothing

'Redirect to the authorised user page and send the users name

response.redirect "success.asp?username="&strUserName
%>

 

[Tom B]

http://www.15seconds.com/issue/011127.htm
refers to User.fullname under
"Changing User-Properties"

 

[Miguel Orrego]

Thanks Tom,

After checking that article I added the following code and it works a treat.
Thanks again.

Dim FullName
Dim User
Set User = GetObject("WinNT://" & strDomain & "/" & strUserName & ",user")
FullName = User.Fullname

 

[J P Singh]

Is it possible to retrieve the email address as well

any help

 

[Tom B]

http://www.15seconds.com/issue/020130.htm

That's the one I meant.

 

[Tom B]

This page
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netdir/adsi/iadsuser.asp
suggests a property called emailaddress
where do they get these crazy names.

 

[Tom B]

And this looks interesting..
http://www.4guysfromrolla.com/webtech/041800-1.shtml