Trouver le nom de d'utilisateur connecte sur le pc

Soyez le premier à donner votre avis sur cette source.

Vue 23 939 fois - Téléchargée 921 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

Commenter la réponse de Aramiil
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)