Comment récupérer le nom du user connecté à windows ?

Commenter

Contenu du snippet

C'est dans le titre :-)

Source / Exemple : 


'1.En utilisant l'API 'GetUserName':

'API permettant de récupérer le nom d'utilisateur
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" ( _
                 ByVal lpBuffer As String, _
                 nSize As Long) As Long

Public Function UserName() As String
    'Retourne le nom de l'utilisateur courant de l'ordinateur
    Dim stTmp As String, lgTmp As Long
    stTmp = Space$(250)
    lgTmp = 251
    Call GetUserName(stTmp, lgTmp)
    UserName = Mid$(stTmp, 1, InStr(1, stTmp, Chr$(0)) - 1)
End Function

'2.Beaucoup plus simplement avec la variable d'environnement 'UserName':

'par exemple :
Text1.Text = Environ("UserName")

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 (cs_nono1135)