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]

C# 2017/2015/2013 Grundlagen

Nach Abschluss des Kurses sind Ihnen die Datentypen und Klassenbibliotheken von C# bekannt. Außerdem sind Sie in der Lage, mit Variablen umzugehen und deren Typen zu konvertieren. Sie definieren Namespaces und setzen diese ein, Sie erstellen eigene Klassen  und bauen Trouble Shooting ein.

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

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!