Est-il possible de récupérer les groupes Windows auxquels appartient
l'utilisateur connecté à une base ACCESS 2003 ?
Je parle bien de groupes Windows (login de connexion réseau au domaine) et
non de groupe ACCESS.
Merci d'avance de vos conseils,
Richard.
PS : j'ai reposté car, bizarrement, j'ai posté, une première fois,
directement sur le site de Microsoft, mais mon post n'apparaît pas dans
Outlook Express... vraiment bizarre... ouvert, également, pour une
explication.
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
3stone
Salut,
"Richard_35" | Est-il possible de récupérer les groupes Windows auxquels appartient | l'utilisateur connecté à une base ACCESS 2003 ? | | Je parle bien de groupes Windows (login de connexion réseau au domaine) et | non de groupe ACCESS.
Regarde ceci chez Jessy : http://access.fr.free.fr/articles.php?lng=fr&pg"
| PS : j'ai reposté car, bizarrement, j'ai posté, une première fois, | directement sur le site de Microsoft, mais mon post n'apparaît pas dans | Outlook Express... vraiment bizarre... ouvert, également, pour une | explication.
"Richard_35"
| Est-il possible de récupérer les groupes Windows auxquels appartient
| l'utilisateur connecté à une base ACCESS 2003 ?
|
| Je parle bien de groupes Windows (login de connexion réseau au domaine) et
| non de groupe ACCESS.
Regarde ceci chez Jessy :
http://access.fr.free.fr/articles.php?lng=fr&pg"
| PS : j'ai reposté car, bizarrement, j'ai posté, une première fois,
| directement sur le site de Microsoft, mais mon post n'apparaît pas dans
| Outlook Express... vraiment bizarre... ouvert, également, pour une
| explication.
"Richard_35" | Est-il possible de récupérer les groupes Windows auxquels appartient | l'utilisateur connecté à une base ACCESS 2003 ? | | Je parle bien de groupes Windows (login de connexion réseau au domaine) et | non de groupe ACCESS.
Regarde ceci chez Jessy : http://access.fr.free.fr/articles.php?lng=fr&pg"
| PS : j'ai reposté car, bizarrement, j'ai posté, une première fois, | directement sur le site de Microsoft, mais mon post n'apparaît pas dans | Outlook Express... vraiment bizarre... ouvert, également, pour une | explication.
Merci pour ta réponse : je la teste au boulot dès lundi et je te tiens courant. Mais, je crains que ce bout de code affiche les groupes ACCESS et non les groupes Windows.
D'autre part, je te confirme que je ne vois pas mon post du 17/07/2008 à 16:11... d'ailleurs, aucun post du 17/07/2008 n'apparaît dans mon Outlook Express... bizarre... Par contre, je le vois bien sur le site de MS.
A bientôt, Richard.
"3stone" a écrit dans le message de news:
Salut,
"Richard_35" | Est-il possible de récupérer les groupes Windows auxquels appartient | l'utilisateur connecté à une base ACCESS 2003 ? | | Je parle bien de groupes Windows (login de connexion réseau au domaine) et | non de groupe ACCESS.
Regarde ceci chez Jessy : http://access.fr.free.fr/articles.php?lng=fr&pg"
| PS : j'ai reposté car, bizarrement, j'ai posté, une première fois, | directement sur le site de Microsoft, mais mon post n'apparaît pas dans | Outlook Express... vraiment bizarre... ouvert, également, pour une | explication.
Merci pour ta réponse : je la teste au boulot dès lundi et je te tiens
courant.
Mais, je crains que ce bout de code affiche les groupes ACCESS et non
les groupes Windows.
D'autre part, je te confirme que je ne vois pas mon post du 17/07/2008 à
16:11... d'ailleurs, aucun post du 17/07/2008 n'apparaît dans mon Outlook
Express... bizarre... Par contre, je le vois bien sur le site de MS.
A bientôt,
Richard.
"3stone" <home@sweet_home.be> a écrit dans le message de news:
O78bV1Z6IHA.4352@TK2MSFTNGP03.phx.gbl...
Salut,
"Richard_35"
| Est-il possible de récupérer les groupes Windows auxquels appartient
| l'utilisateur connecté à une base ACCESS 2003 ?
|
| Je parle bien de groupes Windows (login de connexion réseau au domaine)
et
| non de groupe ACCESS.
Regarde ceci chez Jessy :
http://access.fr.free.fr/articles.php?lng=fr&pg"
| PS : j'ai reposté car, bizarrement, j'ai posté, une première fois,
| directement sur le site de Microsoft, mais mon post n'apparaît pas dans
| Outlook Express... vraiment bizarre... ouvert, également, pour une
| explication.
Merci pour ta réponse : je la teste au boulot dès lundi et je te tiens courant. Mais, je crains que ce bout de code affiche les groupes ACCESS et non les groupes Windows.
D'autre part, je te confirme que je ne vois pas mon post du 17/07/2008 à 16:11... d'ailleurs, aucun post du 17/07/2008 n'apparaît dans mon Outlook Express... bizarre... Par contre, je le vois bien sur le site de MS.
A bientôt, Richard.
"3stone" a écrit dans le message de news:
Salut,
"Richard_35" | Est-il possible de récupérer les groupes Windows auxquels appartient | l'utilisateur connecté à une base ACCESS 2003 ? | | Je parle bien de groupes Windows (login de connexion réseau au domaine) et | non de groupe ACCESS.
Regarde ceci chez Jessy : http://access.fr.free.fr/articles.php?lng=fr&pg"
| PS : j'ai reposté car, bizarrement, j'ai posté, une première fois, | directement sur le site de Microsoft, mais mon post n'apparaît pas dans | Outlook Express... vraiment bizarre... ouvert, également, pour une | explication.
Un codeur a trouvé la solution, pour ceux que ça intéresse (voir en fin de post).
J'ai donc créé un module dans lequel j'ai copié ce code. J'ai voulu créer une macro avec "ExécuterCode" mais ta routine n'apparaît pas.
Comment faire pour exécuter ton code (à partir d'un formulaire ou d'une macro) ? Désolé pour la puérilité de la question... mais, je ne sais utiliser que les assistants...
Merci d'avance de vos conseils, Richard.
Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal sUsername As String) Dim oGroup As Object Dim oUser As Object Dim sAdsPath As String Dim sMsg As String
If sComputer = "" Then sComputer = Environ("COMPUTERNAME") If sUsername = "" Then sUsername = Environ("USERNAME")
Un codeur a trouvé la solution, pour ceux que ça intéresse (voir en fin
de post).
J'ai donc créé un module dans lequel j'ai copié ce code.
J'ai voulu créer une macro avec "ExécuterCode" mais ta routine
n'apparaît pas.
Comment faire pour exécuter ton code (à partir d'un formulaire ou d'une
macro) ?
Désolé pour la puérilité de la question... mais, je ne sais utiliser que
les assistants...
Merci d'avance de vos conseils,
Richard.
Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal
sUsername As String)
Dim oGroup As Object
Dim oUser As Object
Dim sAdsPath As String
Dim sMsg As String
If sComputer = "" Then sComputer = Environ("COMPUTERNAME")
If sUsername = "" Then sUsername = Environ("USERNAME")
Un codeur a trouvé la solution, pour ceux que ça intéresse (voir en fin de post).
J'ai donc créé un module dans lequel j'ai copié ce code. J'ai voulu créer une macro avec "ExécuterCode" mais ta routine n'apparaît pas.
Comment faire pour exécuter ton code (à partir d'un formulaire ou d'une macro) ? Désolé pour la puérilité de la question... mais, je ne sais utiliser que les assistants...
Merci d'avance de vos conseils, Richard.
Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal sUsername As String) Dim oGroup As Object Dim oUser As Object Dim sAdsPath As String Dim sMsg As String
If sComputer = "" Then sComputer = Environ("COMPUTERNAME") If sUsername = "" Then sUsername = Environ("USERNAME")
Toujours pour ceux que cela intéresse, le code en fin de post donne la liste des groupes de sécurité Windows d'un utilisateur.
L'instruction Environ() traite la liste des valeurs système apparaissant en tapant "set" en ligne de commande (Démarrer/Exécuter puis cmd").
Merci à tous, Richard.
Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal sUsername As String) Dim oGroup As Object Dim oUser As Object Dim sAdsPath As String Dim sMsg As String
If sComputer = "" Then sComputer = Environ("USERDOMAIN") If sUsername = "" Then sUsername = Environ("USERNAME")
sMsg = "Liste des groupes de [" & sUsername & "] :" For Each oGroup In oUser.Groups sMsg = sMsg & vbCrLf & " >> " & oGroup.Name Next oGroup
MsgBox sMsg End Sub
"Richard_35" a écrit :
Bonjour à tous,
Un codeur a trouvé la solution, pour ceux que ça intéresse (voir en fin de post).
J'ai donc créé un module dans lequel j'ai copié ce code. J'ai voulu créer une macro avec "ExécuterCode" mais ta routine n'apparaît pas.
Comment faire pour exécuter ton code (à partir d'un formulaire ou d'une macro) ? Désolé pour la puérilité de la question... mais, je ne sais utiliser que les assistants...
Merci d'avance de vos conseils, Richard.
Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal sUsername As String) Dim oGroup As Object Dim oUser As Object Dim sAdsPath As String Dim sMsg As String
If sComputer = "" Then sComputer = Environ("COMPUTERNAME") If sUsername = "" Then sUsername = Environ("USERNAME")
sMsg = "Liste des groupes de [" & sUsername & "] :"
For Each oGroup In oUser.groups sMsg = sMsg & vbCrLf & " >> " & oGroup.Name Next oGroup
MsgBox sMsg End Sub
"Richard_35" a écrit dans le message de news:
> Bonjour Pierre, > > Existe-t-il une solution ? > > Merci d'avance de tes conseils, > Richard. > > "3stone" a écrit dans le message de news: > >> "Richard_35" >> [...] >> | Mais, je crains que ce bout de code affiche les groupes ACCESS et >> non >> | les groupes Windows. >> >> >> Tout à fait... >> Désolé, lu trop vite ;-( >> >> -- >> A+ >> Pierre (3stone) Access MVP >> Perso: http://www.3stone.be/ >> MPFA: http://www.mpfa.info/ (infos générales) >> > >
Bonjour à tous,
Toujours pour ceux que cela intéresse, le code en fin de post donne la liste
des groupes de sécurité Windows d'un utilisateur.
L'instruction Environ() traite la liste des valeurs système apparaissant en
tapant "set" en ligne de commande (Démarrer/Exécuter puis cmd").
Merci à tous,
Richard.
Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal
sUsername As String)
Dim oGroup As Object
Dim oUser As Object
Dim sAdsPath As String
Dim sMsg As String
If sComputer = "" Then sComputer = Environ("USERDOMAIN")
If sUsername = "" Then sUsername = Environ("USERNAME")
sMsg = "Liste des groupes de [" & sUsername & "] :"
For Each oGroup In oUser.Groups
sMsg = sMsg & vbCrLf & " >> " & oGroup.Name
Next oGroup
MsgBox sMsg
End Sub
"Richard_35" a écrit :
Bonjour à tous,
Un codeur a trouvé la solution, pour ceux que ça intéresse (voir en fin
de post).
J'ai donc créé un module dans lequel j'ai copié ce code.
J'ai voulu créer une macro avec "ExécuterCode" mais ta routine
n'apparaît pas.
Comment faire pour exécuter ton code (à partir d'un formulaire ou d'une
macro) ?
Désolé pour la puérilité de la question... mais, je ne sais utiliser que
les assistants...
Merci d'avance de vos conseils,
Richard.
Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal
sUsername As String)
Dim oGroup As Object
Dim oUser As Object
Dim sAdsPath As String
Dim sMsg As String
If sComputer = "" Then sComputer = Environ("COMPUTERNAME")
If sUsername = "" Then sUsername = Environ("USERNAME")
sMsg = "Liste des groupes de [" & sUsername & "] :"
For Each oGroup In oUser.groups
sMsg = sMsg & vbCrLf & " >> " & oGroup.Name
Next oGroup
MsgBox sMsg
End Sub
"Richard_35" <nospam@nospam.nospam> a écrit dans le message de news:
uHOlnok6IHA.1420@TK2MSFTNGP06.phx.gbl...
> Bonjour Pierre,
>
> Existe-t-il une solution ?
>
> Merci d'avance de tes conseils,
> Richard.
>
> "3stone" <home@sweet_home.be> a écrit dans le message de news:
> OOYPkwd6IHA.2348@TK2MSFTNGP06.phx.gbl...
>> "Richard_35"
>> [...]
>> | Mais, je crains que ce bout de code affiche les groupes ACCESS et
>> non
>> | les groupes Windows.
>>
>>
>> Tout à fait...
>> Désolé, lu trop vite ;-(
>>
>> --
>> A+
>> Pierre (3stone) Access MVP
>> Perso: http://www.3stone.be/
>> MPFA: http://www.mpfa.info/ (infos générales)
>>
>
>
Toujours pour ceux que cela intéresse, le code en fin de post donne la liste des groupes de sécurité Windows d'un utilisateur.
L'instruction Environ() traite la liste des valeurs système apparaissant en tapant "set" en ligne de commande (Démarrer/Exécuter puis cmd").
Merci à tous, Richard.
Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal sUsername As String) Dim oGroup As Object Dim oUser As Object Dim sAdsPath As String Dim sMsg As String
If sComputer = "" Then sComputer = Environ("USERDOMAIN") If sUsername = "" Then sUsername = Environ("USERNAME")
sMsg = "Liste des groupes de [" & sUsername & "] :" For Each oGroup In oUser.Groups sMsg = sMsg & vbCrLf & " >> " & oGroup.Name Next oGroup
MsgBox sMsg End Sub
"Richard_35" a écrit :
Bonjour à tous,
Un codeur a trouvé la solution, pour ceux que ça intéresse (voir en fin de post).
J'ai donc créé un module dans lequel j'ai copié ce code. J'ai voulu créer une macro avec "ExécuterCode" mais ta routine n'apparaît pas.
Comment faire pour exécuter ton code (à partir d'un formulaire ou d'une macro) ? Désolé pour la puérilité de la question... mais, je ne sais utiliser que les assistants...
Merci d'avance de vos conseils, Richard.
Public Sub MsgBoxGroups(Optional ByVal sComputer As String, Optional ByVal sUsername As String) Dim oGroup As Object Dim oUser As Object Dim sAdsPath As String Dim sMsg As String
If sComputer = "" Then sComputer = Environ("COMPUTERNAME") If sUsername = "" Then sUsername = Environ("USERNAME")
sMsg = "Liste des groupes de [" & sUsername & "] :"
For Each oGroup In oUser.groups sMsg = sMsg & vbCrLf & " >> " & oGroup.Name Next oGroup
MsgBox sMsg End Sub
"Richard_35" a écrit dans le message de news:
> Bonjour Pierre, > > Existe-t-il une solution ? > > Merci d'avance de tes conseils, > Richard. > > "3stone" a écrit dans le message de news: > >> "Richard_35" >> [...] >> | Mais, je crains que ce bout de code affiche les groupes ACCESS et >> non >> | les groupes Windows. >> >> >> Tout à fait... >> Désolé, lu trop vite ;-( >> >> -- >> A+ >> Pierre (3stone) Access MVP >> Perso: http://www.3stone.be/ >> MPFA: http://www.mpfa.info/ (infos générales) >> > >
