OVH Cloud OVH Cloud

Récupérer le nom d'utilisateur et les groupes

4 réponses
Avatar
Ziggy
Bonjour,

je cherche un moyen en VBA de récupérer le username et les groupes auxquels
appartient un utilisateur. Attention je ne parle pas du groupe de travail
access, mais des infos d'authentification Windows et des groupes de l'Active
Directory.

Si quelqu'un a une idée...

Merci

4 réponses

Avatar
Jessy Sempere [MVP]
Bonjour

Pour le nom de l'utilisateur :
Environ("UserName")

Pour le groupe je ne sais pas...

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Ziggy" a écrit dans le message de news:

Bonjour,

je cherche un moyen en VBA de récupérer le username et les groupes
auxquels
appartient un utilisateur. Attention je ne parle pas du groupe de travail
access, mais des infos d'authentification Windows et des groupes de
l'Active
Directory.

Si quelqu'un a une idée...

Merci


Avatar
Ziggy
Merci Jessy,

mais est ce que tu pourrais un peu préciser dans quel cadre utiliser le
environ("Username")

Merci de ton aide


Bonjour

Pour le nom de l'utilisateur :
Environ("UserName")

Pour le groupe je ne sais pas...

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Ziggy" a écrit dans le message de news:

Bonjour,

je cherche un moyen en VBA de récupérer le username et les groupes
auxquels
appartient un utilisateur. Attention je ne parle pas du groupe de travail
access, mais des infos d'authentification Windows et des groupes de
l'Active
Directory.

Si quelqu'un a une idée...

Merci







Avatar
3stone
Salut,

"Ziggy"
| mais est ce que tu pourrais un peu préciser dans quel cadre utiliser le
| environ("Username")


ben, dans le VBA...

machin = Environ("Username")


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Avatar
bjf
Salut.
Ci-dessous, un bout de code pour récupérer toutes les variables
d'environnement.

Dim EnvString, Indx, Msg, PathLen ' Déclare les variables.
Indx = 1 ' Initialise l'index à 1.
Do
EnvString = Environ(Indx) ' Extrait la variable d'environnement.
If Left(UCase(EnvString), 8) = "USERNAME" Then ' Vérifie l'entrée .
PathLen = Len(Environ("username")) ' Extrait la longueur.
EnvString = Environ("username")
Exit Do
Else
Indx = Indx + 1 ' Pas d'entrée recherchée,
End If ' donc incrémente.
Loop Until EnvString = ""
If PathLen = 0 Then
EnvString = "DefautLogin" ' Enregistre le défaut.
End If




Salut,

"Ziggy"
| mais est ce que tu pourrais un peu préciser dans quel cadre utiliser le
| environ("Username")


ben, dans le VBA...

machin = Environ("Username")


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/