Windows Domains anzeigen

  • VB.NET

    Windows Domains anzeigen

    Hallo com.....

    Wie kann ich mir die verfügbaren Windowsdomänen in einem DropDown anzeigen lassen? so ähnlich wie bei der WindowsXP anmeldung...

    Habe zwar ein Code der mit die DC´s anzeigt... aber..... ich muss die Domains sehen.....

    Hat vieleich jemand eine Idee???


    VB.NET-Quellcode

    1. Dim DCList As New List(Of String)()
    2. Public Function GetDCs() As List(Of String)
    3. If IsDomainMember() = True Then
    4. Dim Domain As System.DirectoryServices.ActiveDirectory.Domain = System.DirectoryServices.ActiveDirectory.Domain.GetComputerDomain()
    5. For Each Server As System.DirectoryServices.ActiveDirectory.DomainController In Domain.DomainControllers
    6. DCList.Add(Server.Name)
    7. Next
    8. Else
    9. DCList.Add(System.Environment.MachineName)
    10. End If
    11. Return DCList
    12. End Function