Code Check: Active Directory

[Rob Meade]

Hi all,

I have some code which I cobbled together from some examples online, so its
probably wrong, although I did have it working a little while ago,
unfortunately for some reason it seems to have stopped working..nothin g's
change infrastructure wise, the only thing that has changed is that my
project has been converted to VS2005 - I'm not suggesting this has caused a
problem - just stating its the only change (that I can remember!)...

The code (snipped from the class):

Public Sub Search(ByVal samaccountname As String, ByVal activeDirectory As
String)

' declare variables
Dim DirectoryEntry As DirectoryEntry = New
DirectoryEntry( LDAP://myActiveDirecto ry)
Dim DirectorySearch er As DirectorySearch er = New
DirectorySearch er(DirectoryEnt ry)
Dim Results As DirectoryServic es.SearchResult Collection
Dim Result As DirectoryServic es.SearchResult
Dim ResultPropertyC ollection As ResultPropertyC ollection
Dim ResultProperty As String

' define search properties
With (DirectorySearc her)
.Filter =
"(&(objectClass =User)(objectCa tegory=User)(sa maccountname=" & samaccountname
& "))"
.SearchScope = SearchScope.Sub tree
End With

' search
Results = DirectorySearch er.FindAll

' check number of results
If Results.Count > 0 Then

' iterate through results
For Each Result In Results

' exception handling
Try

' populate collection
ResultPropertyC ollection = Result.Properti es

' set class variables
Me.SetRawData(R awData)

' exception handling
Try

Me.SetGivenName (Result.Propert ies("givenname" ).Item(0).ToStr ing)

Catch ex As System.NullRefe renceException

Me.SetGivenName ("")

End Try

' exception handling
Try

Me.SetSurname(R esult.Propertie s("sn").Item(0) .ToString)

Catch ex As System.NullRefe renceException

Me.SetSurname(" ")

End Try

End If

End Sub
This is a cut down version of what I'm currently using, but only in that I
was pulling more properties out..

Can anyone spot anything which would prevent the search from working? I'm
not getting any errors, but equally I'm not getting any values out of the ad
either - really frustrating as I was dead impressed with myself when I had
it working originally! :o)

Also, I'm sure this is nothing to do with it but are there any specific
ports that would need to be open on a LAN to enable this? I'd imagine I'd
have received an error somewhere if so - and I'm pretty sure that there
haven't been any infrastructure changes since it was working..

Regards

Rob

[Rob Meade]

Oh, I should add, it seems to be that where I test for the results > 0 - it
never is, its always 0....but as I mentioned, no error?

[Rob Meade]

Update:

I just ran my old .exe written in .net 1.1 and it fires up and searches
without any problems at all? Anyone got any ideas - it appears to only be a
problem because of .net 2.0

Regards

Rob

[Rob Meade]

Fixed it!