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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 817 fois - Téléchargée 26 fois

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

Ajouter un commentaire

Commentaires

thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
4 -
10 / 10

y'a les deux solutions bon code pour memo ou pour les nouveaux
cs_legion91
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010
-
Pour environ(ji est pensez des k jai vu le nom de ta source) sa ma fait pensez, à l'aide de "labout", que cette fonctionpeu donnez plus d'info que sa donc voici son code:

dim i as integer
for i = 1 to 42
msgbox environ(i)
doevents
next i

si sa peut servir.
cs_nono1135
Messages postés
52
Date d'inscription
jeudi 5 septembre 2002
Statut
Membre
Dernière intervention
2 mars 2006
-
Merci pour la note.
j'en ai eu besoin perso, et j'ai pensé que sa pourrais servir à d'autres.
C'est vrai que cette petite fonction peu donner plein de renseignements.
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58 -
On pourrais coder ca autrement, en tirant davantage parti de la fonction, et de tout ce qu'elle fait :

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function UserName() As String
'# On créé une variable tampon, pour contenir ce que renverra la fonction
Dim Buffer As String * 250
'# Cette variable va permettre de spécifier et de récupérer la taille de notre tampon
Dim Size As Long: Size = 251
'# Si la fonction renvoie une valeur <> 0, elle a fait son oeuvre...
If GetUserName(Buffer, Size) Then
'# Size contient maintenant le nombre de caractères copiés dans Buffer
UserName = Left$(Buffer, Size)
End If
End Function
spycollege
Messages postés
50
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
8 mars 2007
-
cool ^^
10/10

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.