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


Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
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 ;-)
Signaler
AtomiKiller
Messages postés
127
Date d'inscription
lundi 28 juillet 2003
Statut
Membre
Dernière intervention
11 juin 2008
 -
Text1.Text = Winsock1.LocalHostName
Signaler
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")
Signaler
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
Signaler
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 ""
Afficher les 18 commentaires
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 (Nix)