Добавить пользователя в список групп Active Directory

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Try
            Using ctx As New PrincipalContext(ContextType.Domain)
                Dim user As UserPrincipal = UserPrincipal.FindByIdentity(ctx, "Имя пользователя")
                If user IsNot Nothing Then
                    Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(ctx, "Имя группы")
                    If group IsNot Nothing Then
                        group.Members.Add(user)
                        group.Save()
                    End If
                End If
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

 "Имя группы"

  For Each row As DataGridViewRow In DataGridView1.Rows
            Try
                Using ctx As New PrincipalContext(ContextType.Domain)
                    Dim user As UserPrincipal = UserPrincipal.FindByIdentity(ctx, "Имя пользователя")
                    If user IsNot Nothing Then
                        Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(ctx, row.Cells(0).Value.ToString)
                        If group IsNot Nothing Then
                            group.Members.Add(user)
                            group.Save()
                        End If
                    End If
                End Using
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Next