Discussion :

[spykopat]

Bonjour,

Je souhaiterais pouvoir lister les banques de boites aux lettres.
J'ai une page ASP, j'arrive a lister les utilisateurs d'une OU, mais pour Exchange la requete ne marche pas, j'aimerais comprendre ce qui va pas.

Le code est approximatif, je suis pas devant la bonne machine...

Code :

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

select name,adspath from 'LDAP://dc=...,dc=....' WHERE objectcategory='msExchPrivateMDB'

Ca ne me retourne aucun résultat...

Pouvez vous m'aider ?
Sachant que je debute dans l'ASP et les requetes autre que dans Access

Merci d'avance.

PS :
Je tourne sous Windows 2003, Exchange 2003 et IIS

[spykopat]

J'ai trouvé la reponse a mon probleme,
en fait il s'agissait des droits de l'utilisateur pour la connexion annonyme a IIS...

Maintenant ca marche nickel !

Au cas ou, voici le code :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Dim objRootDSE
Dim objConfiguration
Dim cat
Dim conn
Dim cmd
Dim RS
Dim objDict

Set objDict = CreateObject("scripting.dictionary")
Set objRootDSE = GetObject("LDAP://rootDSE")
Set objConfiguration = GetObject("LDAP://" & objRootDSE.Get("configurationNamingContext"))
strQuery = "Select name,cn,distinguishedname from '" & objConfiguration.ADsPath & "' Where objectclass='msExchPrivateMDB'"
Set conn = CreateObject("ADODB.Connection")
Set cmd = CreateObject("ADODB.Command")
conn.Provider = "ADSDSOObject"
conn.Open
Set cmd.ActiveConnection = conn
Set RS = conn.Execute(strQuery)
x = 1
Do While Not RS.EOF
    DN = RS.Fields("distinguishedname")
    CN = RS.Fields("cn")
    NM = RS.Fields("name")
    response.write DN & "<br>"
    response.write CN & "<br>"
    response.write NM & "<br>"
    response.write "<br><br>"
    x = x + 1
    RS.movenext
Loop
RS.Close
conn.Close

Set objRootDSE = Nothing
Set objConfiguration = Nothing
Set cat = Nothing
Set conn = Nothing
Set cmd = Nothing
Set RS = Nothing
Set objDict = Nothing

A bientot !