|
Jméno uživatele lze zjistit třeba pomocí API :
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
'Jméno přihlášeného uživatele
Public Function getCurrWinUserName() As String
Dim strNameOfCurUser As String
strNameOfCurUser = Space(255)
GetUserName strNameOfCurUser, 255
getCurrWinUserName = Mid(strNameOfCurUser, 1, InStr(1, strNameOfCurUser, Chr(0), vbTextCompare) - 1)
End Function
|