Small vb.NET/Active Directory FindOne Problem

  • Thread starter Thread starter Phil Kelly
  • Start date Start date
P

Phil Kelly

Hi!

I hope someone can help me here because I'm tearing my hair out (what little
there is of it!) trying to figure out what's going on with the code below.

I'm passing an Active Directory CN of a user object (like
CN=Phil,OU=Users,DC=Test,DC=local) to the doRep() function, then have the
function search for the user in AD ('FindOne')

Then, I'm trying to get the code to msgbox the directory entry name.... but
we never seem to get that far; nothing turns up in a msgbox

Now, I'm not that au fait with vb .NET but I'm finding the challenge to be
superb. I really hope someone will show me the error of my ways...!

Thanks

Phil


Public Sub doRep(ByVal objectName As String)

' Create a 'DirectoryEntry' object to search.

Dim mySearchRoot As New DirectoryEntry("LDAP://DC=test,DC=local")


Dim myRepDirectorySearcher As New DirectorySearcher(mySearchRoot)

myRepDirectorySearcher.Filter = objectName

' Get the first entry of the search.

Dim myRepSearchResult As SearchResult = myRepDirectorySearcher.FindOne()

MsgBox(myRepDirectorySearcher.Filter)



If Not (myRepSearchResult Is Nothing) Then

' Get the 'DirectoryEntry' that corresponds to 'myRepSearchResult'.

Dim myDirectoryEntry As DirectoryEntry =
myRepSearchResult.GetDirectoryEntry()

MsgBox(myDirectoryEntry.Name)

Dim myRepSearchResultPath As String = myRepSearchResult.Path

MsgBox(myRepSearchResultPath)

End If

End Sub
 
Phil
If you already know the distinguished name then you don't have to search for
it.

Dim MyEntry As New DirectoryEntry("LDAP://" & objectName)

Give me a few min and I will give you an example on searching.

Jared
 
Phill,
I hope this helps, I haven't tested this exact code, it should work
though. I have a simple control inherited from treeview that lets you get
the search root. Just drop it on your form, call one method and it will let
you select and OU or container. If you are interested let me know.

Jared

Sub doRep(ByVal UserName As String) 'User name - NOT display name

Dim Entry As New DirectoryEntry("LDAP://RootDSE")
Dim DomainPath As String = "LDAP://" &
Entry.Properties("defaultNamingContext").Value
Dim Results As SearchResultCollection, Result As SearchResult
'Domain Naming Context
'DC=MyDomain,DC=com
Entry = New DirectoryEntry(DomainPath)
'I've tried to set the path directly but it is empty, so I started
using a path variable
Dim Searcher As New DirectorySearcher(Entry)
With Searcher
.SearchScope = SearchScope.Subtree
.Filter = "(&(objectClass=person)(sAMAccountName=" & UserName &
"))"
'Only works when threaded. Keep this in mind.
'Default size returned is 1000 (server set)
.PageSize = 100
.PropertiesToLoad.AddRange(New String() {"sAMAccountName",
"displayName"})
Result = .FindOne
End With
If Not Result Is Nothing Then
'Watch for multivalued properties
If TypeOf Result.GetDirectoryEntry.Properties("displayName") Is
System.Array Then
MessageBox.Show(Result.GetDirectoryEntry.Properties("displayName")(0).Value)
Else
MessageBox.Show(Result.GetDirectoryEntry.Properties("displayName").Value)
End If
End If
With Searcher
'You can use wild cards, Look up the RFC on LDAP for more info
.Filter = "(&(objectClass=person)(sAMAccountName=" & UserName &
"*))"
Results = Searcher.FindAll
End With
For Each Result In Results
'Same as before
If TypeOf Result.GetDirectoryEntry.Properties("displayName") Is
System.Array Then
Console.WriteLine(Result.GetDirectoryEntry.Properties("displayName")(0).Value)
Else
Console.WriteLine(Result.GetDirectoryEntry.Properties("displayName").Value)
End If
Next
End Sub
 
Back
Top