Get the current username

Posted On 2007-05-22 by FortyPoundHead
Tags: Visual Basic 6 
Views: 1695

Get the username of the currently logged on user.

Option Explicit

Private Const UNKNOWN = "(Value Unknown Because System Call Failed)"
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize _ As Long) As Long

Public Function GetCurrentUserName() As String

  Dim l As Long
  Dim sUser As String

  sUser = Space$(255)
  l = GetUserName(sUser, 255)
  ' strip null terminator

  If l <> 0 Then
    GetCurrentUserName = Left(sUser, InStr(sUser, Chr(0)) - 1)
    Err.Raise Err.LastDllError, , _ "A system call returned an error code of " _ & Err.LastDllError
  End If

End Function

About the Author

FortyPoundHead has posted a total of 1974 articles.


Comments On This Post

No comments on this post yet!

Do you have a thought relating to this post? You can post your comment here. If you have an unrelated question, you can use the Q&A section to ask it.

Or you can drop a note to the administrators if you're not sure where you should post.

Your IP address is:

Before you can post, you need to prove you are human. If you log in, this test goes away.

Recent Forum Posts

SSL Now Active
dwirch posted on June 16, 2017 at about 8:40 in Site News

SSL Now Active
dwirch posted on June 13, 2017 at about 7:59 in Site News

Coding Archive?
dwirch posted on June 3, 2017 at about 12:54 in Site News

Job Spammer: Bharti Jigyasi
dwirch posted on June 2, 2017 at about 16:57 in Spammers

Coding Archive?
dwirch posted on May 25, 2017 at about 12:38 in Site News

BWASL returns
dwirch posted on May 13, 2017 at about 15:24 in Site News