#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 ""