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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 887 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

bibi1981
Messages postés
3
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
23 octobre 2004

Ce code fonctionne parfaitement en local mais comment faire si on l'utiliser pour connaitre 'utilisateur connécté à un poste en reseau dont on connait le hostname ?
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
testé sur réseau d'entreprise, sur Xp (SP2).....

étrange que cela bloque chez toi. Je testerai chez moi
fcdconnect
Messages postés
40
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
13 mars 2006

plusieurs postes XP Version pro et familiale (SP1 et SP2)
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
sous quel OS es-tu ?
fcdconnect
Messages postés
40
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
13 mars 2006

je viens de tester et petit probleme à ce niveau :
Set oUser = GetObject("LDAP://" & oSystemInfo.UserName)
"le mappage entre les noms de compte et les ID de sécurité n'a pas été éffectué."

kézako ?

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.