UTILISATEUR CONNECTÉ

' API
' pour la récupération du user de connexion NT,
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

' --------------------------------------
' Récupération du user de connexion
'
' Creation: webcyril - Janvier 2000
' --------------------------------------
Public Function PRGetLoggedInUser() As String
    Dim sBuff   As String * 255
    Dim lRet    As Long
    Dim UserName As String
    
    PRGetLoggedInUser = ""
    
    'on retire les NULLs et espaces inutiles
    lRet = GetUserName(sBuff, 255)
    UserName = Trim$(Left(sBuff, InStr(sBuff, Chr(0)) - 1))
    'Retourne false si aucun nom n'est retourne
    If UserName = vbNullString Then
       PRGetLoggedInUser = False
       UserName = ""
    End If
    PRGetLoggedInUser = UserName
End Function