Trying to find a 32 and 64 bit compatible method to get logged in user's information.

[psycoperl]

Happy New Year!

I am trying to determine if the command : CreateObject("WSCript.Network").username is compatible with both the 32 and 64bit versions of office or is there a better way to get the logged in username?

Thanks

 

[mole999]

have a look for ENVIRONS("username")

http://www.mrexcel.com/forum/excel-questions/505370-application-username-environ-username.html

 

[psycoperl]

Thanks!

 

[Micron]

I know somebody who used to use that function and had to re-write a lot of stuff when it stopped working. Sorry I cannot recall why; likely some sort of IS modification to the network. I've also read elsewhere how others found it wonky. There is an easy to use API call that MANY use, for which I've never heard or read of any issues and it's been around for a long, long time. API: Get Login name
You might also want to check out Declare PtrSafe for declaring 32 bit calls safe for 64 bit platforms. My new syntax for calling this function will be

#If VBA7 Then
Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#Else
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#End If

 

[psycoperl]

I know somebody who used to use that function and had to re-write a lot of stuff when it stopped working. Sorry I cannot recall why; likely some sort of IS modification to the network. I've also read elsewhere how others found it wonky. There is an easy to use API call that MANY use, for which I've never heard or read of any issues and it's been around for a long, long time. API: Get Login name
You might also want to check out Declare PtrSafe for declaring 32 bit calls safe for 64 bit platforms. My new syntax for calling this function will be

#If VBA7 Then
Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#Else
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
#End If

Ok thank I will look into this when I have fresh eyes...