i am using the following codes to obtain a user name:

Function ThisUser()
ThisUser = Environ("UserName")
End Function
Function MyName()
MyName = Application.UserName
End Function

both work, ThisUser returns my login id (ex. jat) and MyName returns my name
that i have entered in Excel's Personalization area (ex. jat man)

What i would like is to get the MyName to be retrieved from my actual
profile. When i go to Start, my name shows at the top (first last name), and
that is set up when my profile is created. How do i retrieve this in a macro?

jat

Dear

Try the below and feedback...

Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
MsgBox objUser.displayName

If this post helps click Yes
---------------
Jacob Skaria


"jatman" wrote:

i am using the following codes to obtain a user name:

Function ThisUser()
ThisUser = Environ("UserName")
End Function
Function MyName()
MyName = Application.UserName
End Function

both work, ThisUser returns my login id (ex. jat) and MyName returns my name
that i have entered in Excel's Personalization area (ex. jat man)

What i would like is to get the MyName to be retrieved from my actual
profile. When i go to Start, my name shows at the top (first last name), and
that is set up when my profile is created. How do i retrieve this in a macro?

jat

i put the code provided in the Private Sub Workbook_Open event with the rest
of the open events...

Error message received is:
Run-time error '-2147023541 (8007054b)':
Automation error
The specified domain either does not exist or could not be contacted.

i press Debug, and the macro opens with the following line highlighted:
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)

jat




"Jacob Skaria" wrote:

Dear

Try the below and feedback...

Dim objSysInfo, objUser
Set objSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
MsgBox objUser.displayName

If this post helps click Yes
---------------
Jacob Skaria


"jatman" wrote:

i am using the following codes to obtain a user name:

Function ThisUser()
ThisUser = Environ("UserName")
End Function
Function MyName()
MyName = Application.UserName
End Function

both work, ThisUser returns my login id (ex. jat) and MyName returns my name
that i have entered in Excel's Personalization area (ex. jat man)

What i would like is to get the MyName to be retrieved from my actual
profile. When i go to Start, my name shows at the top (first last name), and
that is set up when my profile is created. How do i retrieve this in a macro?

jat

I added the code to the Workbook Open events. when the workbook is opened, i
get the following error:

Run-time error '-2147023541 (8007054b))':
Automation error
The specified domain either does not exist or could not be contacted.

when i press the debug button, i the code is displayed with the following
highlighted:
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)

jat


"jatman" wrote:

i am using the following codes to obtain a user name:

Function ThisUser()
ThisUser = Environ("UserName")
End Function
Function MyName()
MyName = Application.UserName
End Function

both work, ThisUser returns my login id (ex. jat) and MyName returns my name
that i have entered in Excel's Personalization area (ex. jat man)

What i would like is to get the MyName to be retrieved from my actual
profile. When i go to Start, my name shows at the top (first last name), and
that is set up when my profile is created. How do i retrieve this in a macro?

jat

This works only if you are logged in to a network domain.

If this post helps click Yes
---------------
Jacob Skaria


"jatman" wrote:

I added the code to the Workbook Open events. when the workbook is opened, i
get the following error:

Run-time error '-2147023541 (8007054b))':
Automation error
The specified domain either does not exist or could not be contacted.

when i press the debug button, i the code is displayed with the following
highlighted:
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)

jat


"jatman" wrote:

i am using the following codes to obtain a user name:

Function ThisUser()
ThisUser = Environ("UserName")
End Function
Function MyName()
MyName = Application.UserName
End Function

both work, ThisUser returns my login id (ex. jat) and MyName returns my name
that i have entered in Excel's Personalization area (ex. jat man)

What i would like is to get the MyName to be retrieved from my actual
profile. When i go to Start, my name shows at the top (first last name), and
that is set up when my profile is created. How do i retrieve this in a macro?

jat