Discussion :

[Richard_35]

Bonjour à tous,

Est-il possible de récupérer les groupes Windows auxquels appartient
l'utilisateur connecté à une base ACCESS 2003 ?

Attention, je parle bien des groupes Windows (auxquels appartient l'identifiant d'entrée sur le réseau Windows), et non des groupes ACCESS.

Merci d'avance de vos conseils,
Richard

[argyronet]

Bonjour,

Ma visionneuse pourrait-elle faire l'affaire ?

Argy

[Richard_35]

Bonjour Argyronet,

Bravo pour ton site !... joli graphisme.

La fenêtre que tu présentes affiche bien les utilisateurs mais, pas leur(s)groupe(s) Windows. Par "groupes de sécurité Windows", j'entends "Administrateur", "Invité", "Service XXX", "Service YYY", etc...
Attention, je rappelle qu'un utilisateur peut appartenir à plusieurs groupes Windows.

Est-ce possible ?
Si oui, je vous remercie d'avance de me copier le petit bout de code VBA qui va bien...

A bientôt,
Richard.

[argyronet]

Mouais...
Là, je n'ai pas poussé jusque là car cela deviendrait hors sujet.

Tu dois pouvoir aboitir à tes fins en t'inspirant de ce qui existe avec le fichier xcacls.vbs sur la page support de Microsoft.

Argy

[Richard_35]

Bonjour Argyronet,

Visiblement, des posts ont été perdus.

Je reprends, donc.

Le code pour récupérer les groupes de sécurité Windows est le suivant :

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")

sAdsPath = "WinNT://" & sComputer & "/" & sUsername & ",user"
' sAdsPath = "WinNT://" & sComputer & "/" & "rcohen.Starinvest.local" & ",user"

Set oUser = GetObject(sAdsPath)

sMsg = "Liste des groupes de [" & sUsername & "] :"

For Each oGroup In oUser.Groups
sMsg = sMsg & vbCrLf & " >> " & oGroup.Name
Next oGroup

MsgBox sMsg
End Sub

Le problème est qu'il se plante à "Set oUser = GetObject(sAdsPath)", avec le message suivant :
"Erreur d'exécution '2147022675 (800708ad)
Erreur Automation
Le nom d'utilisateur est introuvable."

à l'instruction :
"Set oUser = GetObject(sAdsPath)"


Merci d'avance de tes conseils,
Richard.

[=JBO=]

Bonjour Richard_35 et argyronet,

Effectivement des posts ont disparus !

Richard_35, je te propose d'essayer une autre procédure MsgBoxGroupsUsersEtc qui liste tout ce qui est accessible sur ton PC ; comme ça tu verras tout ce à quoi tu a accès et l'orthographe de ces classes.

La procédure est déclarée en tant que fonction, ainsi tu peux directement l'utiliser dans une macro.

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
' Classes extraites:  User, Group, Service, PrintQueue, etc.
'
Public Function MsgBoxGroupsUsersEtc(Optional ByVal sComputer As String) As String
    Dim oSAM As Object
    Dim oItem As Object
    Dim sClass As String
    Dim sAdsPath As String
    Dim sMsg As String
 
    If sComputer = "" Then sComputer = Environ("COMPUTERNAME")
 
    sMsg = "Liste des utilisateurs, des groupes sur [" & sComputer & "]:"
 
    sAdsPath = "WinNT://" & sComputer & ",computer"
    Set oSAM = GetObject(sAdsPath)
 
    For Each oItem In oSAM
        sClass = oItem.Class
        sMsg = sMsg & vbCrLf & sClass & " [" & oItem.Name & "]"
    Next
 
    MsgBoxGroupsUsersEtc = sMsg
 
    MsgBox sMsg
End Function

[Richard_35]

Bonjour =JBO=,

Merci de ta réponse.
Ton code marche à merveille.

Mais j'aurais besoin de connaître les groupes de sécurité Windows de l'utilisateur connecté et je ne vois pas comment faire, à partir de ton code. Désolé, je ne suis pas un spécialiste VBA.

J'ai simplement besoin, d'une routine qui, en entrée, reçoit le code utilisateur Windows connecté, et, en sortie, me donne la liste des groupes de sécurité Windows auxquels il appartient. Par exemple, chaque utilisateur appartient à un groupe Windows correspondant au service dans lequel il travaille.

Merci d'avance de tes conseils,
Richard.

[=JBO=]

Avec la procédure MsgBoxGroupsUsersEtc, mon objectif était que tu puisses vérifier l'othographe des noms d'utilisateurs.

Ensuite, tu peux utiliser à nouveau la procédure MsgBoxGroups avec ces noms d'utilisateurs "validés".

Merci d'essayer encore et de *vérifier* que tu ne te trompes pas d'orthographe.

Autres questions:
* quels sont tes droits sur le PC où tu fais tes tests, es-tu membre du groupe des administrateurs ?
* les PC sont-ils dans un domaine ou dans un groupe de travail ?
* quelle est ta version de Windows ?

Ces aspects sont cruciaux lorsqu'on veut accéder à ce type d'information.
_

[Richard_35]

=JBO=,

Merci de ta réponse.
Je ne me tromperai jamais d'orthographe puisque, je veux prendre le code user de l'utilisateur connecté (variable système).
La routine me donnera, en sortie, la liste des groupes Windows auxquels il appartient.

Concernant tes questions :
* quels sont tes droits sur le PC où tu fais tes tests, es-tu membre du groupe des administrateurs ?
Je suis administrateur. Mais, l'appli sera déclenchée par les users et c'est dans l'appli ACCESS que j'ai besoin de connaître les groupes Windows du user en question.

* les PC sont-ils dans un domaine ou dans un groupe de travail ?
Ils sont dans un domaine.

* quelle est ta version de Windows ?
Les PC tournent sur Windows XP Pro - Version 2002 - SP2

Merci encore,
Richard.

[=JBO=]

Bonjour,

Je ne me tromperai jamais d'orthographe puisque, je veux prendre le code user de l'utilisateur connecté (variable système).
La routine me donnera, en sortie, la liste des groupes Windows auxquels il appartient.

Il se trouve que tu as obtenu un message d'erreur qui pourrait s'expliquer par une mauvaise orthographe du nom d'utilisateur:

[à propos de la procédure MsgBoxGroups]

Le problème est qu'il se plante à "Set oUser = GetObject(sAdsPath)", avec le message suivant :
"Erreur d'exécution '2147022675 (800708ad)
Erreur Automation
Le nom d'utilisateur est introuvable."

à l'instruction :
"Set oUser = GetObject(sAdsPath)"

C'est pourquoi je te demande de vérifier/tester à nouveau que, lorsque tu fais appel à la procédure MsgBoxGroups, tu utilises bien un des noms d'utilisateur retourné par la procédure MsgBoxGroupsUsersEtc.

Avec la procédure MsgBoxGroupsUsersEtc, mon objectif était que tu puisses vérifier l'othographe des noms d'utilisateurs.

Ensuite, tu peux utiliser à nouveau la procédure MsgBoxGroups avec ces noms d'utilisateurs "validés".

Sinon, si ce n'est pas un problème d'orthographe, ni un problème d'autorisation, comment expliquer que ce code ne fonctionne pas ?
_

[Richard_35]

Bonjour =JBO=,

Je ne peux pas m'être trompé d'orthographe, puisque j'appelle cette routine sans paramètre d'entrée : elle prend, donc, les valeurs systèmes trouvées.

Mais, ta remarque m'a, effectivement, mis sur une piste.
Il y a une inversion entre user et computer, dans le code que j'ai récupéré :
ce n'est pas :
sAdsPath = "WinNT://" & sComputer & "/" & sUsername & ",user"
mais :
sAdsPath = "WinNT://" & sUsername & "/" & sComputer & ",user"

En inversant, je n'ai plus le message :
"Le nom d'utilisateur est introuvable."

Malheureusement, j'ai un autre message (mais, je pense qu'on avance) :
"Le chemin réseau n'a pas été trouvé."

Je pense que la syntaxe de "WinNT..." n'est pas correcte.

Merci de ton aide,
Richard.

[argyronet]

Je pense que la syntaxe de "WinNT..." n'est pas correcte.

Non Richard, cette syntaxe est by design...
C'est un mot clé. Cette syntaxe est imposé pour établir le GetObject().

Argy

[Richard_35]

Bonjour Argy,

OK.
Alors le problème est ailleurs (comme la vérité...).

Si tu as une idée, je suis preneur.
Merci,
Richard.

[argyronet]

Bien j'ai exécuté les 2 procédures d =JBO= qui fonctionnent aussi bien l'une que l'autre...

La fontion MsgBoxGroupsUsersEtc() fonctionne directement et dans n'importe quel module VBA (pas forcément Access) avec un simple copier/coller... et un appel depuis la fenêtre de debogage.

Argy

[Richard_35]

La fontion MsgBoxGroupsUsersEtc() fonctionne très bien, pas de problème mais, ce n'est pas celle-là qui m'interresse.

C'est MsgBoxGroups() qui m'importe :
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")

sAdsPath = "WinNT://" & sComputer & "/" & sUsername & ",user"
Set oUser = GetObject(sAdsPath)

sMsg = "Liste des groupes de [" & sUsername & "] :"

For Each oGroup In oUser.Groups
sMsg = sMsg & vbCrLf & " >> " & oGroup.Name
Next oGroup

MsgBox sMsg
End Sub

Merci de tes conseils,
Richard.

[argyronet]

Eh bien c'est que tu passes une mauvaise valeur de Computer ou de User.
Si tu omets les 2, tu auras tes propres infos
Sinon, il faut impérativement renseigner les deux.

Argy

[Richard_35]

Dans mes posts précédents, j'avais précisé :
"Je ne peux pas m'être trompé d'orthographe, puisque j'appelle cette routine sans paramètre d'entrée : elle prend, donc, les valeurs systèmes trouvées."

Donc, j'appelle cette routine sans paramètre.
Elle se plantait à :
"Set oUser = GetObject(sAdsPath)"
avec le message :
"Le nom d'utilisateur est introuvable."

Jusqu'à ce que je m'aperçoive, grâce à =JBO=, qu'il y avait inversion dans :
"WinNT://" & sComputer & "/" & sUsername & ",user"
J'ai inversé sComputer et sUsername :
"WinNT://" & sUsername & "/" & sComputer & ",user"
et le message a changé :
"Le chemin réseau n'a pas été trouvé."
C'est un message qui me plaît mieux !...

Merci de tes conseils,
Richard.

[=JBO=]

Dans mes posts précédents, j'avais précisé :
"Je ne peux pas m'être trompé d'orthographe, puisque j'appelle cette routine sans paramètre d'entrée : elle prend, donc, les valeurs systèmes trouvées."

La question n'est pas de savoir si *tu* te trompes d'orthographe.
Il est tout à fait possible que tu travailles avec des informations *non conformes* à celles attendues.

Pour désigner l'utilisateur, tu utilises la valeur retournée par la variable d'environnement USERNAME.
Le code ci-dessous te permet de le visualiser dans une boîte de dialogue:

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Environ("USERNAME")

Donc la question est:

<< La valeur retournée par Environ("USERNAME") apparaît-elle parmi les [Users] retournés par la procédure MsgBoxGroupsUsersEtc ? >>
_

[Richard_35]

=JBO=,

Non, la valeur retournée par Environ("USERNAME") n'apparaît pas parmi les [Users] retournés par la procédure MsgBoxGroupsUsersEtc.

Ma demande initiale était de retrouver les groupes de sécurité Windows d'un code user Windows.

Merci de ton aide,
Richard.

[=JBO=]

Non, la valeur retournée par Environ("USERNAME") n'apparaît pas parmi les [Users] retournés par la procédure MsgBoxGroupsUsersEtc.

Ma demande initiale était de retrouver les groupes de sécurité Windows d'un code user Windows.

Je pense que tu as eu la bonne réponse, sous réserve que le nom d'utilisateur recherché apparaisse bien dans la liste des [Users] retournée par la procédure MsgBoxGroupsUsersEtc.

-=-=-=-=-=-=-=-=-=-=-=-

Voilà le moment où tu vas devoir faire preuve de perspicacité.

Je ne crois pas que nous puissions t'aider plus car nous n'avons pas la connaissance précise de ton environnement de travail.

A toi de rechercher pourquoi le nom de l'utilisateur retourné dans la variable d'environnement n'apparaît pas dans liste des [Users] ?

Peut être y-a-t'il juste l'ajout d'un préfixe ou d'un suffixe imposé automatiquement par ton système dans la variable d'environnement ?

Bref, à toi de retrouver dans la liste des [Users] celui qui correspond le mieux à la valeur de la variable d'environnement, puis d'en déduire les modifications qui ont été opérées et enfin imaginer la méthode inverse.
_