Username

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi!!
I use this
name = Environ("username")
Its work allright on a standalone PC but when i try on a PC there loog on to
a server then username is the name there been used when Windoes was install
first time. And not the "real" user

Hope someone can help

Best regards alvin
 
Alvin,

Try this

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

Public Function UserName() As String
Dim sName As String * 256
Dim cChars As Long
cChars = 256
If GetUserName(sName, cChars) Then
UserName = Left(sName, cChars - 1)
End If
End Function
 
I was given this code ages ago and works fine:

Option Explicit


' Windows API Initialisation for the Log in Name

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

Function OSUserName() As String
Dim Buffer As String * 256
Dim BuffLen As Long
BuffLen = 256
If GetUserName(Buffer, BuffLen) Then _
OSUserName = Left(Buffer, BuffLen - 1)
End Function

Hope this is of help!
 
Back
Top