Sub Benutzer_zu_Kundengruppe_hinzufuegen(ByVal gruppe As String)
        Dim objGruppe As DirectoryEntry = New DirectoryEntry("LDAP://cn=" & _
          gruppe & ",ou=Gruppen,dc=kopper,dc=lan")
        Dim str_Benutzer As String
        Dim i As String
 
        Dim arr(ListBox_alle_benutzer_anzeigen.SelectedItems.Count - 1) As _
          String
        ListBox_alle_benutzer_anzeigen.SelectedItems.CopyTo(arr, 0)
 
        For Each i In arr
            str_Benutzer = i.ToString
            Dim objSearch As New DirectorySearcher()
            objSearch.SearchRoot = New DirectoryEntry( _
              "LDAP://192.168.9.1/dc=kopper,dc=lan", _
                                        "admin", _
                                        "geheim", _
                                        AuthenticationTypes.Secure)
            objSearch.Filter = "(&(objectclass=user)(|(name=" & _
              IS_GmbH_Benutzer & ")))"
            objSearch.SearchScope = SearchScope.Subtree
            objSearch.PropertiesToLoad.Add("cn")
 
            Dim colQueryResults As SearchResultCollection
            colQueryResults = objSearch.FindAll
 
            Dim objResult As SearchResult
            For Each objResult In colQueryResults
                Dim Properties_user As String = objResult.Properties("cn")( _
                  0).ToString
                Dim strgruppe As String = "LDAP://192.168.9.1/cn=" & gruppe & _
                ",ou=Gruppen,dc=kopper,dc=lan"
                Dim Path_user As String = objResult.Path
                Dim objUser_zu_Gruppe As DirectoryEntry = New DirectoryEntry( _
                  strgruppe)
                Dim isMember As Boolean = Convert.ToBoolean( _
                objUser_zu_Gruppe.Invoke("IsMember", New Object() {Path_user}))
 
                If isMember = False Then
                    Dim objProjektleiter As DirectoryEntry
                    objProjektleiter = New DirectoryEntry(Path_user)
                    objGruppe.Invoke("Add", Path_user)
                    objGruppe.CommitChanges()
                End If
            Next
        Next
End Sub