从以组名开头的组中删除Active Directory用户

Question

我在尝试克服VB.net中的问题时遇到了麻烦。 我要实现的是从所有以“ Google”开头的组中删除一个特定的AD用户。

如果我知道该小组的全名，那么这很简单，我可以执行以下操作：

Dim ctx As DirectoryServices.AccountManagement.PrincipalContext = New DirectoryServices.AccountManagement.PrincipalContext(DirectoryServices.AccountManagement.ContextType.Domain, "Company.co.uk")
Dim googleremove As DirectoryServices.AccountManagement.GroupPrincipal = DirectoryServices.AccountManagement.GroupPrincipal.FindByIdentity(ctx, "Google-Group1")
googleremove.Members.Remove(ctx, DirectoryServices.AccountManagement.IdentityType.SamAccountName, "UserID")
googleremove.Save()

但是问题是我的应用程序并不总是知道需要从哪个特定组中删除用户。 有28个不同的组，每个组有数千个用户，组名以“ Google-”开头。 有没有一种有效的方法可以将用户从所有以“ Google-”开头的组中删除，而这不会使速度变慢？

Answer 1

我解决了！ 这是我为其他人设法解决的问题：

Dim ctx As DirectoryServices.AccountManagement.PrincipalContext = New DirectoryServices.AccountManagement.PrincipalContext(DirectoryServices.AccountManagement.ContextType.Domain, "MyCompany.co.uk")
Dim usr As DirectoryServices.AccountManagement.UserPrincipal = DirectoryServices.AccountManagement.UserPrincipal.FindByIdentity(ctx, "User ID")
Dim grp As DirectoryServices.AccountManagement.GroupPrincipal = New DirectoryServices.AccountManagement.GroupPrincipal(ctx)
grp.Name = "Google-*"
grp.Members.Contains(usr)
Dim srch As DirectoryServices.AccountManagement.PrincipalSearcher = New DirectoryServices.AccountManagement.PrincipalSearcher(grp)
For Each s As DirectoryServices.AccountManagement.GroupPrincipal In srch.FindAll()
    s.Members.Remove(ctx, DirectoryServices.AccountManagement.IdentityType.SamAccountName, "User ID")
    s.Save()
Next

Answer 2

您说您知道如何获取MemberOf信息。 您是否会遍历该数组以查找以“ Google”开头的组。

但是请记住，MemberOf数组是专有名称的数组，因此组名的前缀为“ CN =“。 因此，您确实需要执行以下操作：

For Each groupDn as String in memberOf
    If groupDn.StartsWith("CN=Google"))
        //remove user from this group
    End If
Next

我已经有一段时间没有使用VB了，所以可能无法按原样工作。 但这就是想法。