Excel -NT Username 3

[lochmant]

Does anyone know how I can get the Windows NT User Logon Name using VBA in MS Office? (I already posted this in the access Forum)

 

[Loomah]

If Environ("Username&quot doesn't do it it's an API call which I don't have a record of!

;-)

If a man says something and there are no women there to hear him, is he still wrong?
The faqs ma'am, just the faqs. Get the best from these forums : faq222-2244

 

[DrBowes]

This should do it:

Function GetUser
GetUser = Environ("Username&quot
End Function

Sub Test
MsgBox GetUser
End Sub

Regards

 

[PHV]

Have you tried Environ("USER&quot ?

Hope This Help
PH.

 

[Bowers74]

View FAQ faq707-4296 - List environment variables

The API function for this is:

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

Function ReturnComputerName() As String
Dim rString As String * 255, sLen As Long, tString As String
tString = ""
On Error Resume Next
sLen = GetComputerName(rString, 255)
sLen = InStr(1, rString, Chr(0))
If sLen > 0 Then
tString = Left(rString, sLen - 1)
Else
tString = rString
End If
On Error GoTo 0
ReturnComputerName = UCase(Trim(tString))
End Function
[/tt]

I hope that these posts have helped you!



Peace!!

Mike

Didn't get the answers that you wanted? Take a look at FAQ219-2884

 

[waynerenaud]

I just had to give a star to Loomah for the Environ("Username&quot and also to DrBowes for demonstrating how to use it as a function. This has helped me solve a problem I had with obtaining username, computername etc
I now use:

Function GetUser()
GetUser = Environ("Username&quot
End Function

Function GetComputer()
GetComputer = Environ("Computername&quot
End Function

Function GetOS()
GetOS = Environ("OS&quot
End Function

Is there a list anywhere that shows what arguments you can use with environ ? I couldn't find anything in the help

 

[PHV]

In a console windows execute the SET command.
All the words at the left of an equal sign (=) are candidate

 

[waynerenaud]

Thanks for the quick reponse PHV. That is just what I was looking for. A star for you to as I believe this will be helpful to many users.

 

[xlbo]

waynerenaud - See Mike's (Bowers74) post - his 1st comment is a link to a FAQ on just this subject

Rgds, Geoff
[blue]Si hoc signum legere potes, operis boni in rebus Latinus alacribus et fructuosis potiri potes![/blue]
Want the [red]best[/red] answers to your questions ? faq222-2244