Dim objADAM As DirectoryEntry
Dim objEntry As DirectoryEntry
Dim objSearchADAM As DirectorySearcher
Dim objSearchResults As SearchResultCollection
Dim strFilter As String
Dim strPath As String
' Construct the binding string.
' Specify filter.
strFilter = "(&(objectClass=group))"
' Get AD LDS object.
Try
objADAM = New DirectoryEntry("LDAP://BIZONE/OU=bizone", "DOMAINE\administrator", "admin", AuthenticationTypes.Secure)
objADAM.RefreshCache()
Catch ev As Exception
label1.text = "Error: Bind failed."
Return
End Try
' Get search object,
' specify filter and scope,
' perform search.
Try
objSearchADAM = New DirectorySearcher(objADAM)
objSearchADAM.Filter = strFilter
objSearchADAM.SearchScope = SearchScope.Subtree
objSearchResults = objSearchADAM.FindAll()
Catch ev As Exception
label1.text = "Error: Search failed."
Return
End Try
' Enumerate filtered objects.
Try
If objSearchResults.Count <> 0 Then
label1.text = "Results: Following objects found."
Dim objResult As SearchResult
For Each objResult In objSearchResults
objEntry = objResult.GetDirectoryEntry()
dropdownlistgpe.items.add(objEntry.name)
Next objResult
Else
label1.text = "Results: No objects found."
End If
Catch ev As Exception
label1.text = "Error: Enumerate failed."
Return
End Try
Partager