Feedback

VB - OU´s aus Active Directory auslesen

Veröffentlicht von am 04.11.2015
(0 Bewertungen)
Es kommt vor, das man gerne die OU Container im Active Directory angezeigt bekommen möchte. :-)
Imports System.DirectoryServices
Sub GetOU()
Dim objRootDSE As New DirectoryEntry("LDAP://RootDSE")
Dim dom = objRootDSE.Properties("DefaultNamingContext").Value.ToString()
Dim ds As DirectorySearcher = New DirectorySearcher("LDAP://" & dom)
ds.SearchScope = DirectoryServices.SearchScope.OneLevel
ds.Filter = "(OU=*)"
Dim dirSearchResults As SearchResult
For Each dirSearchResults In ds.FindAll()
console.writeline(dirSearchResults.GetDirectoryEntry().Path.ToString)
Next

End Sub
GFU-Schulungen  [Anzeige]

XML und .NET Überblick

Um auf dem neuesten Wissensstand zu sein, sollten Sie unser aktuelles ASP .NET Komplett Seminar belegen.
Nach dem Seminar kennen Sie die wichtigsten Strömungen in der Software-Technologie

C# Aufbaukurs

Sie haben grundlegende .NET- und C#-Kenntnisse und und wollen diese nun erweitern. Der Aufbaukurs C# führt Sie ein die Arbeit mit Interfaces und Delegates, Generics und Parallel Computing.

Imports System.DirectoryServices
Sub GetOU()
Dim objRootDSE As New DirectoryEntry("LDAP://RootDSE")
        Dim dom = objRootDSE.Properties("DefaultNamingContext").Value.ToString()
        Dim ds As DirectorySearcher = New DirectorySearcher("LDAP://" & dom)
        ds.SearchScope = DirectoryServices.SearchScope.OneLevel
        
        ds.Filter = "(OU=*)"
        Dim dirSearchResults As SearchResult
        For Each dirSearchResults In ds.FindAll()
            console.writeline(dirSearchResults.GetDirectoryEntry().Path.ToString)
        Next

    End Sub
Abgelegt unter ActiveDirectory, OU.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!