Guten Tag,ich habe folgendes Problem: Ich möchte alle AD-Gruppen, welche im Namen die Wörter "FS-NF-Projekte" enthalten, auslesen. Dazu sollen noch die beiden Felder managedby und info ausgelesen werden. Dies funktioniert leider nur zum Teil. Es werden nur die Gruppen ausgelesen, bei denen die beiden Felder auch gefüllt sind. Ich möchte aber auch die Gruppen ausgegeben bekommen, bei denen die Felder leer sind. Das Ergebnis soll in einem Datagridview dargestellt werden: Gruppe - Managedby - Info. Mein bisheriger Code sieht folgendermaßen aus:
Vielen Dank für eure Hilfe
VB.NET-Quellcode
- Dim objADAM As DirectoryEntry ' Binding object.
- Dim objGroupEntry As DirectoryEntry ' Group Results.
- Dim objSearchADAM As DirectorySearcher ' Search object.
- Dim objSearchResults As SearchResultCollection ' Results collection.
- Dim strPath As String ' Binding path.
- ' OU die durchsucht werden soll
- strPath = "LDAP://OU=Root,DC=nordsh,DC=local"
- objSearchADAM = New DirectorySearcher(objADAM)
- objSearchADAM.Filter = "(&(objectClass=group)(name=FS-NF-projekte*))"
- objSearchADAM.SearchScope = SearchScope.Subtree
- objSearchResults = objSearchADAM.FindAll()
- ' Gruppen auflisten
- If objSearchResults.Count <> 0 Then
- Dim objResult As SearchResult
- For Each objResult In objSearchResults
- objGroupEntry = objResult.GetDirectoryEntry()
- For Each objManagedBy In objGroupEntry.Properties("managedby")
- For Each objinfo In objGroupEntry.Properties("info")
- DataGridView1.Rows.Add((objGroupEntry.Name), objManagedBy, objinfo)
- Next objinfo
- Next objManagedBy
- Next objResult
- Else
- MsgBox("Gruppe nicht gefunden", vbCritical, "Fehler")
- End If
Vielen Dank für eure Hilfe