Récupération du nom complet de l'utilisateur sur un réseau.
deyrol
Messages postés2Date d'inscriptionvendredi 20 janvier 2006StatutMembreDernière intervention13 février 2006
-
20 janv. 2006 à 14:33
deyrol
Messages postés2Date d'inscriptionvendredi 20 janvier 2006StatutMembreDernière intervention13 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
A voir également:
Récupération du nom complet de l'utilisateur sur un réseau.
deyrol
Messages postés2Date d'inscriptionvendredi 20 janvier 2006StatutMembreDernière intervention13 février 20061 13 févr. 2006 à 10:05
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... ?
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 20 janv. 2006 à 16:05
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