Récupération du nom complet de l'utilisateur sur un réseau.

Messages postés
2
Date d'inscription
vendredi 20 janvier 2006
Statut
Membre
Dernière intervention
13 février 2006
- - Dernière réponse : deyrol
Messages postés
2
Date d'inscription
vendredi 20 janvier 2006
Statut
Membre
Dernière intervention
13 février 2006
- 13 févr. 2006 à 10:05
Bonjour,

Je recherche actuellement comment récupérer le nom complet d'un utilisateur connecté au réseau.

La fonction GetUserName ne renvoie que le login de l'utilisateur (celui stocké sur la machine locale) et qui est différent de de la zone "Nom affiché" ou "Nom" et "Prénom" que l'on retrouve dans l'AD.

Existe-t-il une ou plusieurs fonctions, API, qui permettraient d'obtenir ces informations depuis un poste connecté au réseau et qui irait interroger l'AD (ou autre) ?

Exemple:
Mon log réseau est "dr"
Mon "nom affiché" dans les propriétés de l'AD, au niveau Users est :
"Denys ROLLAND".

Merci de votre aide.

Deyrol
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
2
Date d'inscription
vendredi 20 janvier 2006
Statut
Membre
Dernière intervention
13 février 2006
1
1
Merci
Merci Renfield,

Je vais de ce pas mettre en application. Je pense que par ce biais il est tout aussi possible de retrouver tous les renseignements reliés à l'utilisateur, comme son appartenance à des groupes, compte Email, etc... ?

Deyrol

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 202 internautes nous ont dit merci ce mois-ci

Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
58
0
Merci
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

http://www.vbfrance.com/code.aspx?ID=20850

Renfield
Admin CodeS-SourceS - MVP Visual Basic
Messages postés
65
Date d'inscription
lundi 1 décembre 2003
Statut
Membre
Dernière intervention
19 juin 2009
-1
Merci
Bonjour,
Est-ce que cette sloution fonctionne sur tous les OS ou uniquement sur XP ?
Merci