Get user name

[gjadcock]

How do I get the NT Username and insert this into a table.

I have tried using a shell command and "cmd.exe /c ECHO %USERNAME%" but I seem to get a nonsense number instead of the actual name in the table even though in DOS the username is returned!!


Thanks in advance

Graham

 

[Russell Hauf]

This should work:

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

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If lngX <> 0 Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = ""
    End If
End Function

HTH,

Russell