Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #r "System.DirectoryServices.AccountManagement.dll"
- open System.DirectoryServices.AccountManagement
- let testSearch fullName =
- let ctx = new PrincipalContext(ContextType.Domain)
- let u = new UserPrincipal(ctx)
- u.Surname <- fullName
- use ps = new PrincipalSearcher(u)
- ps.FindAll()
- |> Seq.cast<System.DirectoryServices.AccountManagement.UserPrincipal>
- for r in testSearch "Ivanov" do
- printfn "DistinguishedName: %s;" r.DistinguishedName
- printfn "Guid: %A;"r.Guid
- printfn "Name: %s:" r.Name
- printfn "SamAccountName: %s;" r.SamAccountName
- printfn "Sid: %A;" r.Sid
- printfn "UserPrincipalName: %s;" r.UserPrincipalName
- printfn ""
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement