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

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
Ce code m'affiche bien les groupes!

utilisateur saisie

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
Là, j'ai une erreur : essai4.vbs(4, 3) (null): Le serveur n'est pas opérationnel.

Pourtant l'utilisateur existe bien!

Avec la syntaxe là, ça ne marche pas non plus :

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
message d'erreur : cet objet ne se trouve pas sur le serveur
Pourtant celui-ci existe bien

avec l'OU d'indiquer, ça ne marche pas à tout les coups, mais pourquoi???

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set CurrentUser = GetObject("LDAP://cn=" & MonCompte & ",OU=Test,dc=pdch,dc=fr")
Quand ça ne marche pas
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