1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
|
private Declare function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
sub command1_click()
dim Buffer as string, UsrName as String
buffer = string(255,chr(0))
call GetUsername (buffer, len(buffer))
UsrName=left(Buffer,instr(1, Buffer, chr(0))-1)
msgbox UsrName, 0, "Benutzername"
end sub |