Ovo ti je fn za dobijanje trenutnog Usera
Code:
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function CurrentUser() As String
On Error Resume Next
Dim UserName As String, NameLength As Long, ReturnVal As Long
UserName = Space$(255)
NameLength = 255
ReturnVal = GetUserName(UserName, NameLength)
If ReturnVal <> 0 Then
CurrentUser = Mid(UserName, 1, NameLength)
Else
CurrentUser = "N/A"
End If
CurrentUser = Replace(CurrentUser, Chr(0), "")
End Function