在添加到组之前检查用户是否在活动目录组中

Question

   Private Sub AddUserToGroup1(ByVal UserName As String, ByVal GroupName As String)
        Using ctx As New PrincipalContext(ContextType.Domain)
            ' find your user
            Dim user As UserPrincipal = UserPrincipal.FindByIdentity(ctx, UserName)
            If user IsNot Nothing Then
                ' find the group in question
                Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(ctx, GroupName)
                ' if found....
                If group IsNot Nothing Then
                    ' add user to group
                    group.Members.Add(user)
                    group.Save()

                End If
            End If
        End Using
    End Sub

您要添加用户的组列表在列表框中

  For Each lb As String In LB1.Items
            AddUserToGroup("TestUser", lb)
        Next

代码完全可以工作，但如果用户已经是其中一个组的成员，则会发生错误，即 Object 已存在

告诉我如何检查用户是否已经存在于组中，然后不要再添加，如果它在组中不存在，那么添加它？

我还发现了一个 function 来检查组中是否有用户（返回 True/False）。 但我不知道如何组合这两个代码。 请帮忙。 提前非常感谢。

Public Function IsUserInGroup(ByVal userName As String, ByVal groupName As String) As Boolean
        Using context = New PrincipalContext(ContextType.Domain)
            Using searcher = New PrincipalSearcher(New UserPrincipal(context) With {.SamAccountName = userName})
                Using user = TryCast(searcher.FindOne(), UserPrincipal)
                    Return user IsNot Nothing AndAlso user.IsMemberOf(context, IdentityType.SamAccountName, groupName)
                End Using
            End Using
        End Using
    End Function

Answer 1

只需在使用Add() Contains() ) ：

If Not group.Members.Contains(user) Then
    group.Members.Add(user)
    group.Save()
End If