Discussion :

[Troy34]

Bonjour tout le monde ,

Je fais actuellement un script en VBS chargé d'interroger Active Directory et j'ai un bloc de code utilisé ici qui me retourne une erreur.

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
strBase   =  "<LDAP://" & strDomainDN & ">;"
strFilter = "(&(objectclass=user)(objectcategory=person));" 
strAttrs  = "distinguishedname;"
strScope  = "subtree"
 
set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"
 
set objRS = objConn.Execute(strBase & strFilter & strAttrs & strScope)
objRS.MoveFirst
while Not objRS.EOF
MyFile.WriteLine (objRS.Fields(0).Value)
    objRS.MoveNext
wend
MyFile.close

La ligne de code "set objRS = objConn.Execute(strBase & strFilter & strAttrs & strScope)" me renvoie l'erreur suivante ==> Le tableau n'existe pas.

Je renseigne les bonnes informations au niveau du strDomain puisque j'ai fais le test d'interroger mon Active Directory avec une requête du type SQL (SELECT attribut FROM strdomain WHERE champ='qqch') et là ca marche.

L'erreur "Le tableau n'existe pas" ne m'est retournée que lorsque j'utilise l'accès à mon Active Directory à l'aide du filtre (strFilter).

Est ce que quelqu'un aurait une piste à suivre pour solutionner mon problème s'il vous plait ? ... Parce que là ca fait trois jours que je cherche une solution que je ne trouve pas :s.

D'avance, Merci pour vos réponses .

[pitchalov]

Salut

Je pense que ta chaine strDomainDN ne doit pas être initialisée correctement.
Pour ça, essaie de cette manière :

Code :

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

1
2
Set objRootDSE = GetObject("LDAP://rootDSE")
strBase   =  "<LDAP://" & objRootDSE.Get("defaultNamingContext") & ">;"

[Troy34]

Salut Pitchalov,

Merci pour ta réponse, c'était effectivement un problème avec ma chaine strDomainDN qui n'était pas initialisée correctement.

Ca marche nickel ! Encore Merci pour ta réponse !