Функция GetUserName

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

GetUserName возвращает имя пользователя. Имя пользователя содержится в строке lpBuffer. Фукция также передает размер возвращаемой строки в переменную nSize

lpBuffer

Строка, содержащая имя пользователя

nSize

Длина строки, передаваемой функции

Пример

Dim username As String  ' имя пользователя
Dim slength As Long  ' длина строки
Dim retval As Long  ' возвращаемое значение

' отводим место для получения строки в буфере
username = Space(255)  
slength = 255  
' получаем имя пользователя
 ' slength сейчас является длиной возвращаемой строки
retval = GetUserName(username, slength)
' извлекаем информацию из буфера,отбрасывая Null 
username = Left(username, slength - 1)  

Debug.Print "Имя пользователя "; username

Категория

Системная информация