environ username vs. application username
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
|