获取Active Directory用户并使用F#遍历它们以返回新列表

open System.DirectoryServices

let getUsersFromActiveDirectory() =
    let directoryEntry = new DirectoryEntry("LDAP://your-domain-controller")
    let directorySearcher = new DirectorySearcher(directoryEntry)
    directorySearcher.Filter <- "(&(objectCategory=User)(objectClass=person))"
    let searchResults = directorySearcher.FindAll()
    let userList = new ResizeArray<string>()
    for result in searchResults do
        let user = result.GetDirectoryEntry()
        let username = user.Properties.["sAMAccountName"].Value.ToString()
        userList.Add(username)
    userList

let activeDirectoryUsers = getUsersFromActiveDirectory()