用于在ActiveDirectory上列出和更改用戶組的VB.NET工具

我正在嘗試制作一個工具來根據經理控制的組列出和更改活動目錄上的用戶組。我被困在串列功能上，它不斷給我這個錯誤：

System.DirectoryServices.DirectoryServicesCOMException
Hresult=0x80072032 訊息=指定的專有名稱 (DN) 語法無效

行：將搜索結果調暗為搜索...

Public Class Form1

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click

        Dim managerID As String
        managerID = mngID.Text
        Dim employeeID As String
        employeeID = empID.Text
        Dim emptybox
        emptybox = mngID.Text.Length
        If emptybox < 8 Then
            MsgBox("ManagerID Inválido")
        End If
        Dim emptybox2
        emptybox2 = empID.Text.Length
        If emptybox2 < 8 Then
            MsgBox("EmployeeID Inválido")
        End If

        If emptybox = 8 Then
            Dim domain = New PrincipalContext(ContextType.Domain)
            Dim user = UserPrincipal.FindByIdentity(domain, managerID)
            Dim userDN
            userDN = user.DistinguishedName

            Dim ADEntry As New DirectoryEntry
            ADEntry.Path = "LDAP://domain/CN:Users;DC:domain"
            Dim Groups As New Collection
            Dim mySearcher As DirectorySearcher = New DirectorySearcher(ADEntry)
            Dim arrList As New ArrayList()

            mySearcher.Filter = "(&(ObjectClass=user)(DistinguisedName=" & userDN & "))"
            mySearcher.PropertiesToLoad.Add("MemberOf")

            Dim searchResults As SearchResultCollection = mySearcher.FindAll()
            If searchResults.Count = 0 Then
                MsgBox("ManagerID inválido2")
            End If
            If searchResults.Count > 0 Then
                    Dim group As New DirectoryEntry(searchResults(0).Path)
                    For Each member As Object In group.Properties("MemberOf")
                        groupbox.Items.Add(member)
                    Next
                End If
        End If
    End Sub

uj5u.com熱心網友回復：

你的錯誤

錯誤 0x80072032 - ERROR_DS_INVALID_DN_SYNTAX 指定了無效的“dn”語法

這里有一些東西可以讓你前進。

連接到 Active Directory 的示例 VB 腳本

Imports System
Imports System.Data
Imports System.Linq
Imports System.IO
Imports System.DirectoryServices
Imports System.DirectoryServices.AccountManagement
Imports System.DirectoryServices.ActiveDirectory
Imports System.Security
Imports System.Security.Permissions
Imports System.Text
Imports System.Collections
Imports System.ComponentModel
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls

    Public Function EnumerateDomains() As ArrayList
        Dim alDomains As New ArrayList()
        Dim currentForrest As Forest = Forest.GetCurrentForest()
        Dim myDomains As DomainCollection = currentForrest.Domains
        For Each objDomain As Domain In myDomains
            alDomains.Add(objDomain.Name)
        Next
        Return alDomains
    End Function

    Public Function EumerateDomainUsers() As ArrayList
        Dim domainUsers As New ArrayList()
        Dim usr As String
        'Dim fqdns As String = DropDownList1.SelectedItem.ToString()
        Dim fqdns As String = DropDownList1.SelectedItem.Text
        Dim adStrng As String = "LDAP://" & fqdns
        Dim adEntry As DirectoryEntry = GetObject(adStrng)
        Dim searcher As DirectorySearcher = New DirectorySearcher(adEntry)
        searcher.Sort.PropertyName = "cn"
        Dim results As SearchResultCollection
        Dim result As SearchResult
        searcher.PropertiesToLoad.Add("cn")
        results = searcher.FindAll
        For Each result In results
            usr = result.GetDirectoryEntry().Properties("cn").Value
            domainUsers.Add(usr)
        Next
        Return domainUsers
    End Function

uj5u.com熱心網友回復：

有一個拼寫錯誤，應該是“DistinguishedName”而不是“DistinguisedName”：

mySearcher.Filter = "(&(ObjectClass=user)(DistinguishedName=" & userDN & "))"

標籤：网络

上一篇：如何將事件添加到通過單擊按鈕VB.NET動態創建的PictureBox

下一篇：通過回圈發送郵件會在同一地址發送多封郵件