Problem im Active Directory einen User in eine Gruppe hinzuzufügen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von AntiMatterQ.

    Problem im Active Directory einen User in eine Gruppe hinzuzufügen

    Guten Morgen zusammen,

    ich hoffe mir kann hier jemand helfen, nach einer Wochen rumprobieren bekomme ich es nicht hin einen bestehenden User im ActiveDirectory einer Gruppe hinzuzufügen.
    Es kommt ständig der Fehler: Der Server kann die Anforderung nicht ausführen.
    Ich habe schon jede erdenkliche Möglichkeit versucht, aber vielleicht übersehe ich etwas.

    VB.NET-Quellcode

    1. Public Function AddUserToGroup(ByVal Username As String, ByVal Gruppe As String)
    2. Try
    3. createLogEntry("1: " & Username & " :: " & Gruppe)
    4. Dim DE As DirectoryEntry = New DirectoryEntry("LDAP://DOMAIN.XX/ou=xxxx,ou=xxxx,dc=xxxxx,dc=xx")
    5. Dim deSearch As DirectorySearcher = New DirectorySearcher()
    6. deSearch.SearchRoot = DE
    7. deSearch.Filter = "(&(objectCategory=group)(name=" + Gruppe.ToString + "))"
    9. Dim result As SearchResult = deSearch.FindOne
    10. Dim isGroupMember As Boolean = False
    11. Dim group As New DirectoryEntry(result.Path)
    12. 'Dim members As Object = group.Invoke("Members", Nothing)
    13. createLogEntry("2: " & group.Path.ToString)
    15. deSearch.Filter = "(&(objectCategory=user)(msSFU30Name=" + Username.ToString + "))"
    16. result = deSearch.FindOne
    17. Dim deUser As New DirectoryEntry(result.Path)
    18. createLogEntry("3: " & deUser.Properties("distinguishedname").Value.ToString)
    20. Try
    21. 'group.Properties("member").Add(deUser.Path)
    22. 'group.Properties("member").Add(deUser.Properties("distinguishedname").Value.ToString)
    23. 'group.Invoke("Add", New Object() {deUser.Path.ToString})
    24. 'group.Invoke("Add", New Object() {deUser.Properties("distinguishedname").Value.ToString})
    25. group.Invoke("Add", New Object() {deUser.Path.ToString()})
    26. group.CommitChanges()
    27. Catch ex As Exception
    28. createLogEntry(ex.Message)
    29. End Try
    31. group.Close()
    32. deUser.Close()
    33. Return True
    34. Catch ex As Exception
    35. createLogEntry("[ActiveDirectory :: AddUserToGroup] - " & ex.Message)
    36. Return Nothing
    37. End Try
    38. End Function


    Gruß
    Keyboard nicht gefunden, bitte drücken sie ENTER

    Okay antwort selber gefunden für die die das gleiche Problem haben,
    es nützt nicht das Programm oder in meinem Fall den Service als Admin auszuführen sondern:

    VB.NET-Quellcode

    1. Dim group As New DirectoryEntry(result.Path, Username, Passwort, AuthenticationTypes.Secure)
    Keyboard nicht gefunden, bitte drücken sie ENTER