Добавить участника в группу с DirectoryServices

Question

Я создаю группу в своем Active Directory с помощью DirectoryServices.

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 here)

Поэтому я добавил

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

Если я бегу сценарий теперь останавливается на CommitChanges() говорит мне, что сервер не в состоянии выполнить мою просьбу.

Пропустить что-нибудь?

Заранее благодарим за любые советы.

Answer 1

Решил сам.

Моя первая ошибка была неправильным DN пользователя, которого я хотел добавить.

Active Directory Explorer - удивительный инструмент, который помог мне найти нужный DN.

Вторая ошибка на самом деле не моя ошибка, так как статья MSDN неверна. Способ подключения к группе не работает.

Здесь у вас есть свой код на: «Как добавить элемент в группу AD с помощью DirectoryServices»

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