Public Function ADsFullName() As String
'This function requires a reference to _
Active DS Type Library (activeds.tlb)
'Will work in any office application that will _
allow you to write and run a macro
Dim objIADsUser As ActiveDs.IADsUser
Dim strUserID As String, strComputerName As String
strComputerName = Environ$("COMPUTERNAME")
strUserID = Environ$("USERNAME")
Set objIADsUser = GetObject("WinNT://" & _
strComputerName & "/" & strUserID & ",user")
ADsFullName = objIADsUser.FullName
Set objIADsUser = Nothing
End Function