Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TugboatEng on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!
PC User Name 1
- Thread starter Cooky
- Start date
-
1
- #2
You can access the login name using several methods.
Via Windows API (preferred and most reliable method)
Via Environment Variables:
DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.
Via Windows API (preferred and most reliable method)
Code:
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Sub Main()
Dim sUser As String
Dim lpBuff As String * 1024
'Get the Login User Name
GetUserName lpBuff, Len(lpBuff)
sUser = Left$(lpBuff, (InStr(1, lpBuff, vbNullChar)) - 1)
MsgBox "Login User: " & sUser
End Sub
Code:
Sub Main()
Dim sUser As String
sUser = VBA.Environ("USERNAME")
MsgBox "Login User: " & sUser
End SubDimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.
' API function for getting user name
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'----------------------------------------------------------------------------------------------------
' Get user name
'----------------------------------------------------------------------------------------------------
Public Function GetAccount() As String
Dim cName As String
Dim cSize As Long
cName = Space(255)
cSize = 255
If GetUserName(cName, cSize) <> 0 Then
GetAccount = Left(cName, cSize - 1)
Else
GetAccount = ""
End If
End Function
dongxiao PEng
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'----------------------------------------------------------------------------------------------------
' Get user name
'----------------------------------------------------------------------------------------------------
Public Function GetAccount() As String
Dim cName As String
Dim cSize As Long
cName = Space(255)
cSize = 255
If GetUserName(cName, cSize) <> 0 Then
GetAccount = Left(cName, cSize - 1)
Else
GetAccount = ""
End If
End Function
dongxiao PEng
- Status
