在多个 Active Directory 单元中搜索用户

问题描述

 Dim ou1 As String = "OU=Usr,OU=Users,OU=VLS,DC=domain,DC=local"
    '    Dim ou2 As String = OU=Usr1,DC=local"
        Using context = New PrincipalContext(ContextType.Domain,"domain.local",ou1)
            Dim userPrin As New UserPrincipal(context) With {
                .Enabled = True
            }
            Using searcher = New PrincipalSearcher(New UserPrincipal(context))
                searcher.QueryFilter = userPrin

                For Each result In searcher.FindAll()
                    Dim de As DirectoryEntry = TryCast(result.GetUnderlyingObject(),DirectoryEntry)

                    Dim dn1 As String = de.Properties("cn").Value
                    ComboBox1.Items.Add(dn1)
                   
                Next result
            End Using
        End Using

此代码仅查找一个指定单位的活跃用户。如何跨多个单元执行此操作？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）