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
-
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

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 ?
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
testé sur réseau d'entreprise, sur Xp (SP2).....

étrange que cela bloque chez toi. Je testerai chez moi
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)
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
sous quel OS es-tu ?
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 ?
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
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
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 ?
Messages postés
50
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
8 mars 2007

cool ^^
10/10
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
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
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.
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.
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