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]

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

"Miguel Orrego" <miguel@stressedmonkey.net-nospam> wrote in message
news:3f5f3825$0$253$cc9e4d1f@news.dial.pipex.com.. .

> 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
> %>
>
>
>

[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


"Tom B" <shuckle@hotmail.com> wrote in message
news:#eFskt6dDHA.748@TK2MSFTNGP10.phx.gbl...

> [url]http://www.15seconds.com/issue/011127.htm[/url]
> refers to User.fullname under
> "Changing User-Properties"
>
> "Miguel Orrego" <miguel@stressedmonkey.net-nospam> wrote in message
> news:3f5f3825$0$253$cc9e4d1f@news.dial.pipex.com.. .

> > 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
> > %>
> >
> >
> >

>
>

[J P Singh]

Is it possible to retrieve the email address as well

any help


"Miguel Orrego" <miguel@stressedmonkey.net-nospam> wrote in message
news:3f5f41df$0$248$cc9e4d1f@news.dial.pipex.com.. .

> 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
>
>
> "Tom B" <shuckle@hotmail.com> wrote in message
> news:#eFskt6dDHA.748@TK2MSFTNGP10.phx.gbl...

> > [url]http://www.15seconds.com/issue/011127.htm[/url]
> > refers to User.fullname under
> > "Changing User-Properties"
> >
> > "Miguel Orrego" <miguel@stressedmonkey.net-nospam> wrote in message
> > news:3f5f3825$0$253$cc9e4d1f@news.dial.pipex.com.. .

> > > 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]

[url]http://www.15seconds.com/issue/020130.htm[/url]

That's the one I meant.

"Miguel Orrego" <miguel@stressedmonkey.net-nospam> wrote in message
news:3f5f41df$0$248$cc9e4d1f@news.dial.pipex.com.. .

> 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
>
>
> "Tom B" <shuckle@hotmail.com> wrote in message
> news:#eFskt6dDHA.748@TK2MSFTNGP10.phx.gbl...

> > [url]http://www.15seconds.com/issue/011127.htm[/url]
> > refers to User.fullname under
> > "Changing User-Properties"
> >
> > "Miguel Orrego" <miguel@stressedmonkey.net-nospam> wrote in message
> > news:3f5f3825$0$253$cc9e4d1f@news.dial.pipex.com.. .

> > > 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]

This page
[url]http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netdir/adsi/iadsuser.asp[/url]
suggests a property called emailaddress
where do they get these crazy names.
"J P Singh" <noemail@asIhatespam> wrote in message
news:eHjiVC7dDHA.1728@TK2MSFTNGP09.phx.gbl...

> Is it possible to retrieve the email address as well
>
> any help
>
>
> "Miguel Orrego" <miguel@stressedmonkey.net-nospam> wrote in message
> news:3f5f41df$0$248$cc9e4d1f@news.dial.pipex.com.. .

> > 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
> >
> >
> > "Tom B" <shuckle@hotmail.com> wrote in message
> > news:#eFskt6dDHA.748@TK2MSFTNGP10.phx.gbl...

> > > [url]http://www.15seconds.com/issue/011127.htm[/url]
> > > refers to User.fullname under
> > > "Changing User-Properties"
> > >
> > > "Miguel Orrego" <miguel@stressedmonkey.net-nospam> wrote in message
> > > news:3f5f3825$0$253$cc9e4d1f@news.dial.pipex.com.. .
> > > > 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]

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

"J P Singh" <noemail@asIhatespam> wrote in message
news:eHjiVC7dDHA.1728@TK2MSFTNGP09.phx.gbl...

> Is it possible to retrieve the email address as well
>
> any help
>
>
> "Miguel Orrego" <miguel@stressedmonkey.net-nospam> wrote in message
> news:3f5f41df$0$248$cc9e4d1f@news.dial.pipex.com.. .

> > 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
> >
> >
> > "Tom B" <shuckle@hotmail.com> wrote in message
> > news:#eFskt6dDHA.748@TK2MSFTNGP10.phx.gbl...

> > > [url]http://www.15seconds.com/issue/011127.htm[/url]
> > > refers to User.fullname under
> > > "Changing User-Properties"
> > >
> > > "Miguel Orrego" <miguel@stressedmonkey.net-nospam> wrote in message
> > > news:3f5f3825$0$253$cc9e4d1f@news.dial.pipex.com.. .
> > > > 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
> > > > %>
> > > >
> > > >
> > > >
> > >
> > >

> >
> >

>
>