VB.NET 从活动目录中删除用户

Question

您好，我正在尝试创建一个 VB.NET 应用程序，该应用程序将（希望）减少在我的某些部门帮助台电话上花费的一些时间。我坚持的部分是如何使用 VB.NET 从组中删除用户。以下是我一直在玩的代码：

Public Shared Sub RemoveUserFromGroup(ByVal deUser As String, ByVal GroupName As String)
    Dim entry As DirectoryEntry = ADEntry()
    Dim mySearcher As DirectorySearcher = New DirectorySearcher(entry)

    mySearcher.Filter = "(&(ObjectClass=Group)(CN=" & GroupName & "))"
    mySearcher.PropertiesToLoad.Add("OrganizationalUnit")
    mySearcher.PropertiesToLoad.Add("DistinguishedName")
    mySearcher.PropertiesToLoad.Add("sAMAccountName")

    Dim searchResults As SearchResultCollection = mySearcher.FindAll()
    If searchResults.Count > 0 Then
        Dim group As New DirectoryEntry(searchResults(0).Path)
        Dim members As Object = group.Invoke("Members", Nothing)
        For Each member As Object In CType(members, IEnumerable)
            Dim x As DirectoryEntry = New DirectoryEntry(member)
            MessageBox.Show(x.Properties("sAMAccountName").Value)
            If x.Properties("sAMAccountName").Value = deUser Then
                MessageBox.Show(searchResults.Item(0).Path.ToString)
                MessageBox.Show(x.Properties("sAMAccountName").Value)
                'group.Invoke("Remove", New Object() {x.Properties("OrganizationalUnit").Value})
                group.Properties("member").Remove(x.Properties("OrganizationalUnit").Value)
            End If

        Next
    End If

当我运行程序时，我在 group.properties 行收到一个 COMException is unhandled, unspecified 错误。使用 group.invoke 时，我收到错误 TargetInvocationException 未处理。

我的目标是将用户名 (sAMAccountName) 和组名 (sAMAccountName) 作为字符串传递给将定位用户并将其从组中删除的函数。

我是 VB.NET 的新手，如果有人能提供任何帮助，我将不胜感激。

我正在使用 .NET 2.0 进行编码，因为我不确定它所在的服务器是否会安装 3.5。

Answer 1

嗯，错误消息0x80004005 E_FAIL Unspecified failure 不是很有帮助。使用 Active Directory 时，我经常感到沮丧。

换行试试：

group.Properties("member").Remove(x.Properties("OrganizationalUnit").Value)

到

group.Invoke("Remove", New Object() {x.Path.ToString()})

如果您需要更多参考，请查看 Erika Ehrli 在VB.net Heaven 上的这篇文章。本文介绍了 Active Directory 的各种用例。

希望对你有帮助。