COMMENT RÉCUPÉRER LE NOM DU USER CONNECTÉ À WINDOWS ?

Signaler
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
-
bibi1981
Messages postés
3
Date d'inscription
mardi 14 janvier 2003
Statut
Membre
Dernière intervention
23 octobre 2004
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20850-comment-recuperer-le-nom-du-user-connecte-a-windows

thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
5
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
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
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
fcdconnect
Messages postés
40
Date d'inscription
vendredi 27 décembre 2002
Statut
Membre
Dernière intervention
13 mars 2006

et comment récuperer le nom du compte de windows XP (celui qui s'affiche en haut du menu démarrer ?
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
une solution possible est :

Public Function GetFullUserName() As String
Dim oSystemInfo As Object
Dim oUser As Object
On Error Resume Next
Set oSystemInfo = CreateObject("ADSystemInfo")
Set oUser = GetObject("LDAP://" & oSystemInfo.username)
GetFullUserName = oUser.fullname
End Function

Private Sub Form_Load()
MsgBox "Bienvenue, " & GetFullUserName & "."
End Sub
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 ?
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

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
testé sur réseau d'entreprise, sur Xp (SP2).....

étrange que cela bloque chez toi. Je testerai chez moi
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 ?