Trouver le nom de d'utilisateur connecte sur le pc

Soyez le premier à donner votre avis sur cette source.

Vue 23 983 fois - Téléchargée 937 fois

Description

Comment puis-je connaître le nom d'utilisateur de l'utilisateur loggé ?

Mettez ce code dans un Module :

Source / Exemple :


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

' Puis Utilisez ce code dans votre Formulaire dans le Form_Load par Exemple :

Private Sub Form_Load()
    Dim Ch As String
    Dim a As Long
    Dim b As Long
    Dim Utilisateur As String

    a = 199
    Ch = String$(200, 0)
    b = GetUserName(Ch, a)
    If b <> 0 Then Utilisateur = Left$(Ch, a) Else Utilisateur = ""

    MsgBox ("Utilisateur loggé : " & Utilisateur)
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Aramiil
Messages postés
48
Date d'inscription
samedi 5 avril 2003
Statut
Membre
Dernière intervention
21 avril 2008
-
Enfin un moyen de conaitre le nom d'utilisateur! je cherchais depuis 2 heure et j'avais pas trouvé! Bon je comprend strictement rien mais tant pis ;-)
AtomiKiller
Messages postés
127
Date d'inscription
lundi 28 juillet 2003
Statut
Membre
Dernière intervention
11 juin 2008
-
Text1.Text = Winsock1.LocalHostName
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
API pas utile ici...

la fonction environ s'en charge :

MsgBox environ$("username")
nycoss
Messages postés
86
Date d'inscription
lundi 17 novembre 2003
Statut
Membre
Dernière intervention
9 mars 2006
-
eu le code marche mais je n'arrive pas a ajouter des caractére a la chaine

utilisateur = utilisateur + "Ajout"
msgbox utilisateur

resultat : juste le nom de l'utilisateur

merci si vous avez une solution
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
utilises pas l'API ici... , c'est inutile sous VB....

sinon, fais simplement

If b <> 0 Then Utilisateur Left$(Ch, b) Else Utilisateur ""

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.