Username

[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

 

[Bob Phillips]

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

 

[Jako]

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!

 

[Michel Pierron]

Hi Alvin,
Quite symply:
MsgBox CreateObject("Wscript.Network").UserName

MP