Bonjour,
J'ai effectué plusieurs tests et différentes recherches mais ils n'ont rien donné!
Dans un autre script j'affiche les groupes de l'utilisateur connecté sur la machine ça marche mais quand il s'agit d'un utilisateur saisie aprés ça ne marche pas.
utilisateur connecté sur la machine
Ce code m'affiche bien les groupes!
Code : 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 Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName) strGroups = LCase(Join(CurrentUser.MemberOf)) Mesgroupes = Replace(strGroups," ",",") MesGroupes = Split(MesGroupes,",") nb = UBound(MesGroupes) GroupeOK = "" For n = 0 to nb If left(MesGroupes(n),3) = "cn=" then GroupeOK = right(MesGroupes(n),Len(Mesgroupes(n))-3) wscript.echo"GroupeOk = " & GroupeOK end if Next
utilisateur saisie
Là, j'ai une erreur : essai4.vbs(4, 3) (null): Le serveur n'est pas opérationnel.
Code : 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 MonCompte = "COETAMAN" 'Set ADSysInfo = CreateObject("ADSystemInfo") Set CurrentUser = GetObject("LDAP://" & MonCompte) strGroups = LCase(Join(CurrentUser.MemberOf)) Mesgroupes = Replace(strGroups," ",",") MesGroupes = Split(MesGroupes,",") nb = UBound(MesGroupes) GroupeOK = "" For n = 0 to nb If left(MesGroupes(n),3) = "cn=" then GroupeOK = right(MesGroupes(n),Len(Mesgroupes(n))-3) wscript.echo"GroupeOk = " & GroupeOK end if Next
Pourtant l'utilisateur existe bien!
Avec la syntaxe là, ça ne marche pas non plus :
message d'erreur : cet objet ne se trouve pas sur le serveur
Code : 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 Set CurrentUser = GetObject("LDAP://cn=" & MonCompte & ",dc=pdch,dc=fr") strGroups = LCase(Join(CurrentUser.MemberOf)) Mesgroupes = Replace(strGroups," ",",") MesGroupes = Split(MesGroupes,",") nb = UBound(MesGroupes) GroupeOK = "" For n = 0 to nb If left(MesGroupes(n),3) = "cn=" then GroupeOK = right(MesGroupes(n),Len(Mesgroupes(n))-3) wscript.echo GroupeOK end if Next
Pourtant celui-ci existe bien
avec l'OU d'indiquer, ça ne marche pas à tout les coups, mais pourquoi???
Quand ça ne marche pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set CurrentUser = GetObject("LDAP://cn=" & MonCompte & ",OU=Test,dc=pdch,dc=fr")
message d'erreur : cet objet ne se trouve pas sur le serveur
En fait je n'ai pas le controle sur tout active directory juste une OU de test, quand j'entre un utilisateur de l'OU test ça marche mais quand j'en entre un autre ça ne marche pas. Ceci peut-il être du que je n'ai pas le controle de ces OU?
Quelqu'un a t-il un script qui permet de connaître l'OU d'un utilisateur donné?
Quelqu'un pourrait-il m'aider ou m'envoyer vers d'autres pistes?
Merci d'avance
Partager