Удалить пользователя из группы AD - PullRequest
Новая
       111

Удалить пользователя из группы AD

1 голос
/ 06 октября 2010

Я пытаюсь удалить пользователя из группы Active Directory с помощью кода. Получение полезной ошибки:

Исключение было выброшено целью вызова "

Трассировка: трассировка стека: в System.DirectoryServices.DirectoryEntry.Invoke (String methodName, Object [] args) в Active_Directory.RemoveUserFromGroup (String sInUserName, String sInGroupName) в C: \ Documents and Settings \ пользователь \ мой Документы \ Visual Studio 2010 \ WebSites \ имя_приложения \ App_Code \ Common \ Active_Directory.vb: линия 192

вот моя функция:

Проверить строку вызова: oGroup.Invoke («Удалить», Новый объект () {oUser.Path}) 

Public Shared Sub RemoveUserFromGroup(ByVal sInUserName As String _
                                      , ByVal sInGroupName As String)
    Dim entry1 As DirectoryEntry
    Dim de As DirectoryEntry
    Dim deSearch As DirectorySearcher
    Dim results As SearchResult
    Dim comeon As String
    Dim oUser As DirectoryEntry
    Dim oGroup As DirectoryEntry
    Dim sr As SearchResult

    Try

        entry1 = New DirectoryEntry("LDAP://rootDSE")
        comeon = entry1.Properties("DefaultNamingContext").Item(0)
        de = New DirectoryEntry("LDAP://" & comeon)

        deSearch = New DirectorySearcher()
        deSearch.SearchRoot = de
        deSearch.Filter = "(sAMAccountName=" + sInUserName + ")"
        deSearch.PropertiesToLoad.Add("cn")
        sr = deSearch.FindOne()

        If sr Is Nothing Then
            oUser = Nothing
        Else
            oUser = sr.GetDirectoryEntry()
        End If

        deSearch.Dispose()
        deSearch = Nothing
        sr = Nothing

        If Not (oUser Is Nothing) Then

            deSearch = New DirectorySearcher()
            deSearch.SearchRoot = de
            deSearch.Filter = "(&(objectClass=group) (CN=" & sInGroupName & "))"
            deSearch.SearchScope = SearchScope.Subtree

            results = deSearch.FindOne()

            If results IsNot Nothing Then

                oGroup = results.GetDirectoryEntry()

                Try

                    oGroup.Invoke("Remove", New Object() {oUser.Path})
                    oGroup.CommitChanges()
                    oGroup.Close()

                Catch ex As Exception
                    Dim s As String
                    s = ex.ToString
                    s = ""
                End Try

            End If

            entry1.Dispose()
            de.Dispose()

            entry1 = Nothing
            de = Nothing
            deSearch = Nothing
            results = Nothing

        End If

        oUser.Close()

    Catch ex As Exception

        Dim myerror As New MyError
        myerror.showMeTheError(ex)

    End Try

End Sub

1 Ответ

2 голосов
/ 06 октября 2010

Вы, кажется, делаете это чрезвычайно сложно - излишне так.

Проверьте, что H делает почти все в Active Directory Статья CodeProject - отличные вещи.Вот фрагмент, необходимый для удаления пользователя (заданного его DN) из группы (также определенной DN): 

public void RemoveUserFromGroup(string userDn, string groupDn)
{
    try
    {
        DirectoryEntry dirEntry = new DirectoryEntry("LDAP://" + groupDn);
        dirEntry.Properties["member"].Remove(userDn);
        dirEntry.CommitChanges();
        dirEntry.Close();
    }
    catch (System.DirectoryServices.DirectoryServicesCOMException E)
    {
        //doSomething with E.Message.ToString();

    }
}

Это работает для вас ??

...