Как узнать имя пользователя?

459

06 декабря 2004 года

gacol

273 / / 12.02.2003

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

Function username() As String
Dim retval As Long
Dim slength As Long

username = Space(255)
slength = 255

retval = GetUserName(username, slength)

username = Left(username, slength - 1)

MsgBox username

End Function