How to get Windows Username ?

N

ngan

Option Compare Text
Option Explicit
Declare Function GetUserName Lib "advapi32.dll"
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As
Long) As Long

Public Function UserName() As String
'this gets the network user login
Dim lpBuff As String * 25
Dim Ret
Ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function
 
G

Guest

It works !!!!!
Thanks NGAN......
-----Original Message-----
Option Compare Text
Option Explicit
Declare Function GetUserName Lib "advapi32.dll"
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As
Long) As Long

Public Function UserName() As String
'this gets the network user login
Dim lpBuff As String * 25
Dim Ret
Ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function

.
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Get domain username 2
Environ("Username") 2
username in adp 3
Forgot Username Feature 0
Getting a message box program to run (Page 43 of 'BeginningProgramming with VBA' by Duane Birnham) 11
SQL Username/Password Prompt Doesn't Appear 1
How to get the current logged in username 2
How to Read login username from ADP 2

Top