John's Tech Tips

Code: Select all

function userDisplayName(loginID)
dim objDomain,auser

  Set objDomain = GetObject("WinNT://[DOMAIN NAME]")
  objDomain.Filter = Array("User")
    For Each aUser In objDomain
       if lcase(aUser.Name) = lcase(loginID) then userDisplayName = aUser.FullName
    Next
  Set objDomain = Nothing
end function