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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
Bonjour
Pour le nom de l'utilisateur :
Environ("UserName")
Pour le groupe je ne sais pas...
--
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Ziggy" <Ziggy@discussions.microsoft.com> a écrit dans le message de news:
EF36EFFF-C3A5-456B-9A9C-1F4B3C9A4A11@microsoft.com...
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.
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
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
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
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Ziggy" <Ziggy@discussions.microsoft.com> a écrit dans le message de news:
EF36EFFF-C3A5-456B-9A9C-1F4B3C9A4A11@microsoft.com...
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.
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
3stone
Salut,
"Ziggy" | mais est ce que tu pourrais un peu préciser dans quel cadre utiliser le | environ("Username")
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")
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")
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")