使用DirectoryServices将成员添加到组

Question

我使用DirectoryServices在Active Directory中创建一个组。

Imports System.DirectoryServices
Imports ActiveDs

Module Module1

Sub Main()

    Dim dom As New DirectoryEntry()

    Dim ou As DirectoryEntry = dom.Children.Find("OU=projects")

    Dim group As DirectoryEntry = ou.Children.Add("CN=pracmans", "group")

    group.Properties("Description").Value = "Red Bull"

    group.Properties("groupType").Value = ActiveDs.ADS_GROUP_TYPE_ENUM.ADS_GROUP_TYPE_UNIVERSAL_GROUP Or ADS_GROUP_TYPE_ENUM.ADS_GROUP_TYPE_SECURITY_ENABLED

    group.Properties("samAccountName").Value = "pracmans"

    group.CommitChanges()

End Sub

End Module

资料来源： msdn

这很完美。

现在，我想将现有用户添加为该组的成员。 （如descripted 这里 ）

所以我加了

group.Properties("member").Add("CN=John Doe,OU=Employee,OU=London,DC=me,DC=intra")

如果我现在运行脚本，它将在CommitChanges()处停止，并告诉我服务器无法执行我的请求。

我想念什么吗？

在此先感谢您的任何建议。

Answer 1

我自己解决了。

我的第一个错误是我要添加的用户的DN错误。

Active Directory资源管理器是一个了不起的工具，它帮助我找到了正确的DN。

第二个错误实际上不是我的错，因为MSDN文章是错误的。 他们与小组的联系方式无效。

在这里，您的代码如下：“如何使用DirectoryServices将成员添加到AD组”

Imports System.DirectoryServices


Module Module1

Sub Main()

    Dim dom As New DirectoryEntry()

    Dim ou As DirectoryEntry = dom.Children.Find("OU=projects")

    Dim group As DirectoryEntry = ou.Children.Find("CN=pracmans", "group")

    group.Properties("member").Add("CN=John Doe,OU=employee,OU=London,DC=me,DC=intra")

    group.CommitChanges()

End Sub

End Module