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]

Visual Studio Team Foundation Server 2017/2015 (TFS) für Administratoren - Kompakt

Nach dieser Schulung beherrschen Sie die Grundlagen des TFS. Sie erledigen administrative Aufgaben schnell und sicher.

Visual Studio Team Foundation Server 2017/2015 (TFS) für Entwickler - Kompakt

Nach Teilnahme an dieser Schulung kennen Sie alle wesentlichen Funktionen des TFS für Entwickler. Sie setzen Software-Entwicklung mit dem Visual Studio Team Foundation Server erfolgreich um.

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!