Utilisateur connecté

Commenter

Contenu du snippet

Connaitre l'utilisateur connecté

Source / Exemple : 


' 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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (webcyril)