Функция GetUserName

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

Платформа

Win 95/98, Win NT

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

Параметры

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

Категория

Системная информация
В начало.