windows user name, please! 1

[kingz2000]

Hi,

using VBA code, how do I obtain the login name of the user. As in, the user name.
Thanks in advance.

 

[PHV]

You may try Environ("USERNAME")

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[fumei]

Try? Try? Hmmmm, how odd. I am not sure what trying has to do with it. Environ("UserName") returns the login name...whether you try, or not.

Just kidding.

Gerry
My paintings and sculpture

 

[PHV]

Environ("UserName") returns the login name
Not in a Win9x environment ...

 

[cresbydotcom]

this may sound a bit naff but could you ask the user who pressed the button to start the macro? eg
fred = inputbox("blahblah")
providing they know who they are (hot desking and all that)

 

[djj55]

By asking a name you get into a security.
djj

 

[strongm]

Environ("UserName") returns the login name
Not in a Win9x environment ...

And not on any of the NT-based systems if the user has chosen to change the environment string, which they are perfectly at liberty to do.

Here's one (of several) alternatives:

CreateObject("Wscript.Network").UserName

 

[fumei]

Uh....I really really should learn to shut up.

Gerry
My paintings and sculpture

 

[KenPuls]

Just to throw it out there...

I have an article at my site which gives a function to return the MS Office username, Windows login name or Computer name. It can be found at

http://www.excelguru.ca/node/2.

I believe that Chip Pearson also has an example of how to get the Windows username using an API, as an alternate to the Environ("Username") method.

Ken Puls, CMA

http://www.excelguru.ca

 

[KenPuls]

Actually, Chip doesn't have it. An example of the API route here though:

Option Explicit

Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function CurrentUser() As String
'*********************************************************
'* Function to get the current logged on user in windows *
'*********************************************************

Dim strBuff As String * 255
Dim X As Long

CurrentUser = ""
X = GetUserName(strBuff, Len(strBuff) - 1)
If X > 0 Then
'Look for Null Character, usually included
X = InStr(strBuff, vbNullChar)
'Trim off buffered spaces too
If X > 0 Then
CurrentUser = UCase(Left$(strBuff, X - 1)) 'UCase is optional ;)
Else
CurrentUser = UCase(Left$(strBuff, X))
End If
End If

End Function

Sourced from VBForums:

http://www.vbforums.com/archive/index.php/t-357723.html

Ken Puls, CMA

http://www.excelguru.ca

 

[strongm]

Well, if we want to use the API, here's the short version:

Public Function CurrentUser() As String

Dim UserName As String * 1024
Dim lenUserName As Long

lenUserName = Len(UserName)
If GetUserName(UserName, lenUserName) Then CurrentUser = Left(UserName, lenUserName - 1)

End Function