Как узнать Login?

648

23 октября 2003 года

Tiraspolsky

220 / / 23.07.2003

Вызвать функцию LookupAccountName

478

23 октября 2003 года

XtreamAll

279 / / 01.10.2003

Через API:

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

Sub UserName()
Dim retval As Long
Dim username As String ' èìÿ ïîëüçîâàòåëÿ
Dim slength As Long ' äëèíà ñòðîêè

username = Space(255)
slength = 255

retval = GetUserName(username, slength)

username = Left(username, slength - 1)

MsgBox username
end sub