Retrieving users email address

[CJM]

I'm trying to retrieve the users email address via ADSI in ASP.

So far, I have the following code:

Set oUser = GetObject("WinN T://domain/" & Request.Form("U ID") & ",user")
Response.Write oUser.EmailAddr ess

But I get the following message:

"The directory property cannot be found in the cache. "

Any ideas where I am going wrong?

Thanks

[Jeff Cochran]

On Fri, 19 Nov 2004 16:33:30 -0000, "CJM"
<cj*******@news groups.nospam> wrote:

I'm trying to retrieve the users email address via ADSI in ASP.

So far, I have the following code:

Set oUser = GetObject("WinN T://domain/" & Request.Form("U ID") & ",user")
Response.Wri te oUser.EmailAddr ess

But I get the following message:

"The directory property cannot be found in the cache. "

Any ideas where I am going wrong?

First guess is you're looking for a directory property that isn't in
the cache... :)

You're going to need to get specific and tell us versions of OS,
Active Directory or not, etc. Also, if the email address isn't in
your directory, you're still not going to get anything.

Jeff

[Richard Mueller [MVP]]

CJM wrote:

I'm trying to retrieve the users email address via ADSI in ASP.

So far, I have the following code:

Set oUser = GetObject("WinN T://domain/" & Request.Form("U ID") & ",user")
Response.Write oUser.EmailAddr ess

But I get the following message:

"The directory property cannot be found in the cache. "

Any ideas where I am going wrong?

Hi,

I find that EmailAddress is not supported by the WinNT provider. You need to
uses the LDAP provider.

EmailAddress is actually a property method that returns the value of the
mail attribute (which also is not supported by WinNT).

--
Richard
Microsoft MVP Scripting and ADSI
HilltopLab web site - http://www.rlmueller.net
--

[CJM]

"Jeff Cochran" <je*********@zi na.com> wrote in message
news:41******** *********@msnew s.microsoft.com ...

On Fri, 19 Nov 2004 16:33:30 -0000, "CJM"
<cj*******@news groups.nospam> wrote:

I'm trying to retrieve the users email address via ADSI in ASP.

So far, I have the following code:

Set oUser = GetObject("WinN T://domain/" & Request.Form("U ID") & ",user")
Response.Writ e oUser.EmailAddr ess

But I get the following message:

"The directory property cannot be found in the cache. "

Any ideas where I am going wrong?

First guess is you're looking for a directory property that isn't in
the cache... :)

You're going to need to get specific and tell us versions of OS,
Active Directory or not, etc. Also, if the email address isn't in
your directory, you're still not going to get anything.

Jeff

Jeff,

My development server is XPSP2 and we are using Active Directory 2003
(Native mode).

All the email address are populated.

Thanks

Chris

[CJM]

"Richard Mueller [MVP]" <rl************ **@ameritech.NO SPAM.net> wrote in
message news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

Hi,

I find that EmailAddress is not supported by the WinNT provider. You need
to
uses the LDAP provider.

EmailAddress is actually a property method that returns the value of the
mail attribute (which also is not supported by WinNT).

--
Richard

Thanks Richard, but can you point me in the right direction for the LDAP
code. I gather its more involved than just swapping 'WinNT' for 'LDAP' - a
different string entirely?

Cheers

Chris

[Jeff Cochran]

On Tue, 23 Nov 2004 12:39:53 -0000, "CJM"
<cj*******@news groups.nospam> wrote:

"Jeff Cochran" <je*********@zi na.com> wrote in message
news:41******* **********@msne ws.microsoft.co m...

On Fri, 19 Nov 2004 16:33:30 -0000, "CJM"
<cj*******@news groups.nospam> wrote:

I'm trying to retrieve the users email address via ADSI in ASP.

So far, I have the following code:

Set oUser = GetObject("WinN T://domain/" & Request.Form("U ID") & ",user")
Response.Wri te oUser.EmailAddr ess

But I get the following message:

"The directory property cannot be found in the cache. "

Any ideas where I am going wrong?

First guess is you're looking for a directory property that isn't in
the cache... :)

You're going to need to get specific and tell us versions of OS,
Active Directory or not, etc. Also, if the email address isn't in
your directory, you're still not going to get anything.

Jeff

Jeff,

My development server is XPSP2 and we are using Active Directory 2003
(Native mode).

All the email address are populated.

In AD? If so, you'll want to use LDAP to retrieve them instead of
WMI.

Jeff

[Jeff Cochran]

On Tue, 23 Nov 2004 12:42:03 -0000, "CJM"
<cj*******@news groups.nospam> wrote:

"Richard Mueller [MVP]" <rl************ **@ameritech.NO SPAM.net> wrote in
message news:%2******** ********@TK2MSF TNGP12.phx.gbl. ..

Hi,

I find that EmailAddress is not supported by the WinNT provider. You need
to
uses the LDAP provider.

EmailAddress is actually a property method that returns the value of the
mail attribute (which also is not supported by WinNT).

--
Richard

Thanks Richard, but can you point me in the right direction for the LDAP
code. I gather its more involved than just swapping 'WinNT' for 'LDAP' - a
different string entirely?

Lots of sampels availble, try:

http://www.4guysfromrolla.com/webtech/041800-1.shtml

Jeff

[CJM]

Here's the solution I ended up with:

<%@language="vb script" %>
<%
Option Explicit

Dim objRootDSE, strDNSDomain, objConnection, strQuery
Dim objRecordSet, strName, strDN
Dim strBase, strFilter, strAttributes

' Determine DNS domain name from RootDSE object.
Set objRootDSE = GetObject("LDAP ://RootDSE")
strDNSDomain = objRootDSE.Get( "defaultNamingC ontext")

' Use ADO to search Active Directory.
Set objConnection = CreateObject("A DODB.Connection ")
objConnection.P rovider = "ADsDSOObje ct"
objConnection.P roperties("User ID") = "domain\usernam e"
objConnection.P roperties("Pass word") = "password"
objConnection.O pen "Active Directory Provider"

' Search for all user objects. Sort recordset by DisplayName.
strBase = "<LDAP://" & strDNSDomain & ">"
strFilter = "(&(objectCateg ory=person)(obj ectClass=user)( sAMAccountName= " &
Session("UID") & "))"
strAttributes = "mail"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"

Set objRecordSet = objConnection.E xecute(strQuery )

If objRecordSet.EO F Then
response.Write "bolox"
End If

' Loop through results
Do Until objRecordSet.EO F
response.Write "Email Address: " & objRecordSet.Fi elds("mail")
objRecordSet.Mo veNext
Loop

' Clean up.
objConnection.C lose
Set objRootDSE = Nothing
Set objConnection = Nothing
Set objRecordSet = Nothing

%>
I was told that the mail property is not always reliable, ie may not be
populated, and that the proxyaddresses field would be better, but that
returns a multi-value responsew which I can't seem to handle. Besides, mail
seems to work OK for me...

Thanks

Chris

[Richard Mueller [MVP]]

Hi,

Some comments.

1. If you know "mail" is populated, use it.
2. You don't need to specify a userID and password unless you are running
the code with an account that does not have permisssion to read the
attributes.
3. To read a multi-valued attribute, you can loop through the collection
with a "For Each" loop. However, you must account for the possibility that
the attribute will have no values. For example:

' Retrieve a multi-valued attribute .
strAttributes = "proxyAddresses "

Do Until adoRecordset.EO F
colMail = adoRecordset.Fi elds("proxyAddr esses")
If IsEmpty(colMail ) Then
' The attribute is empty (has no values).
Response.Write "No Email address"
Else
' The attribute has one or more values - enumerate.
For Each strMail In colMail
Response.Write "Email Address: " & strMail
Next
End If
Loop

--
Richard
Microsoft MVP Scripting and ADSI
HilltopLab web site - http://www.rlmueller.net
--

"CJM" <cj*******@news groups.nospam> wrote in message
news:eN******** ******@TK2MSFTN GP15.phx.gbl...

Here's the solution I ended up with:

<%@language="vb script" %>
<%
Option Explicit

Dim objRootDSE, strDNSDomain, objConnection, strQuery
Dim objRecordSet, strName, strDN
Dim strBase, strFilter, strAttributes

' Determine DNS domain name from RootDSE object.
Set objRootDSE = GetObject("LDAP ://RootDSE")
strDNSDomain = objRootDSE.Get( "defaultNamingC ontext")

' Use ADO to search Active Directory.
Set objConnection = CreateObject("A DODB.Connection ")
objConnection.P rovider = "ADsDSOObje ct"
objConnection.P roperties("User ID") = "domain\usernam e"
objConnection.P roperties("Pass word") = "password"
objConnection.O pen "Active Directory Provider"

' Search for all user objects. Sort recordset by DisplayName.
strBase = "<LDAP://" & strDNSDomain & ">"
strFilter = "(&(objectCateg ory=person)(obj ectClass=user)( sAMAccountName= " & Session("UID") & "))"
strAttributes = "mail"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"

Set objRecordSet = objConnection.E xecute(strQuery )

If objRecordSet.EO F Then
response.Write "bolox"
End If

' Loop through results
Do Until objRecordSet.EO F
response.Write "Email Address: " & objRecordSet.Fi elds("mail")
objRecordSet.Mo veNext
Loop

' Clean up.
objConnection.C lose
Set objRootDSE = Nothing
Set objConnection = Nothing
Set objRecordSet = Nothing

%>
I was told that the mail property is not always reliable, ie may not be
populated, and that the proxyaddresses field would be better, but that
returns a multi-value responsew which I can't seem to handle. Besides, mail seems to work OK for me...

Thanks

Chris