Re: Getting list of users(mail,sn) from Active Directory using LDAP question

Yes i did Joe and thx for the reply
I added 4 properties to Load you can see it in my code below
But i get it to working only if i filter using:-
Mysearcher.Filter = "(&(anr=username)(objectCategory=person))"
but with
Mysearcher.Filter = "(&(objectClass=user)(objectCategory=user))"
i don't get any result using
"result.Properties("sn")(0)"
Is my filter wrong!!!
Are you getting me?
Patrick



"Joe Kaplan (MVP - ADSI)" <joseph.e.kaplan@xxxxxxxxxxxxxxxxxxxxxxxx> wrote
in message news:OOJZKbQIGHA.208@xxxxxxxxxxxxxxxxxxxxxxx
> Did you add SN and givenName to the PropertiesToLoad on the
> DirectorySearcher?
>
> You are correct that you really don't want to call GetDirectoryEntry for a
> simple property reader. That should only be done if you need to modify
the
> object.
>
> Joe K.
>
> "Patrick.O.Ige" <naijacoder@xxxxxxxxxxx> wrote in message
> news:OUQw54KIGHA.2680@xxxxxxxxxxxxxxxxxxxxxxx
> > The code below works fine but if i use
> > Response.Write("First Name=" + result.Properties("givenname")(0) +
> > "<br>Last
> > Name=" + result.Properties("sn")(0) + "")
> > To display the results it doesn't work unless i do
> > "result.GetDirectoryEntry.Properties("sn").Value"
> > to get a value and using GetDirectoryEntry makes the query very slow.
> >
> > But if i filter by using :-
> > Mysearcher.Filter = "(&(anr=username)(objectCategory=person))"
> > I can retrieve result by doing :
> > Response.Write("First Name=" + result.Properties("givenname")(0) +
> > "<br>Last
> > Name=" + result.Properties("sn")(0) + "")
> >
> > What am i doing wrong?
> > Any advice?
> >
> >
> >
> > Dim Mysearcher As New DirectorySearcher(rootEntry)
> >
> > 'Mysearcher.Filter = "(&(anr=username)(objectCategory=person))"
> >
> > Mysearcher.Filter = "(&(objectClass=user)(objectCategory=user))"
> >
> > Mysearcher.PropertiesToLoad.Add("samaccountname")
> >
> > Mysearcher.PropertiesToLoad.Add("givenname")
> >
> > Mysearcher.PropertiesToLoad.Add("sn")
> >
> > Mysearcher.PropertiesToLoad.Add("mail")
> >
> >
> >
> > Dim Myresults As SearchResultCollection
> >
> > Myresults = Mysearcher.FindAll()
> >
> > Dim result As SearchResult
> >
> > For Each result In Myresults
> >
> > Response.Write("" &
> > result.GetDirectoryEntry().Properties("samaccountname").Value & "<br>")
> >
> > 'Response.Write("First Name=" + result.Properties("givenname")(0) +
> > "<br>Last Name=" + result.Properties("sn")(0) + "")
> >
> > 'Response.Write("" & result.Properties("sn")(0) & "")
> >
> > 'Response.Write("<br>Email=" + result.Properties("mail")(0) + "<br>")
> >
> > Response.Write("" + result.GetDirectoryEntry.Properties("sn").Value +
> > "<br>")
> >
> > Next
> >
> >
> >
> >
>
>


.

Relevant Pages