VB.net - Active Directory连接字符串

Dim connectionString As String = "LDAP://<AD服务器地址>/<根目录>"

Dim directoryEntry As New DirectoryEntry(connectionString)
Dim directorySearcher As New DirectorySearcher(directoryEntry)
directorySearcher.Filter = "(objectClass=user)"
Dim searchResultCollection As SearchResultCollection = directorySearcher.FindAll()

For Each searchResult As SearchResult In searchResultCollection
    ' 处理搜索结果
Next

Dim directoryEntry As New DirectoryEntry(connectionString)
Dim newUser As DirectoryEntry = directoryEntry.Children.Add("CN=NewUser", "user")
newUser.Properties("samAccountName").Value = "newuser"
newUser.Properties("givenName").Value = "New"
newUser.Properties("sn").Value = "User"
newUser.CommitChanges()

Dim directoryEntry As New DirectoryEntry(connectionString)
Dim user As DirectoryEntry = directoryEntry.Children.Find("CN=ExistingUser", "user")
user.Properties("givenName").Value = "Updated"
user.CommitChanges()