Requete LDAP Query

[gnoupix]

Bonjour,
Je post car je n’arrive pas à solutionner mon problème.
Pour expliquer un peu le contexte, je suis en train de centraliser un grand nombre d’outils et scripts du support informatique sur lequel je travail vers un portail PHP. Je n’arrive pas à transférer un script VBS vers ce portail. Le site s’affichant sous FireFox, je ne peux pas y exécuter du VBS. Celui ci requête sur le LDAP de ma société (avec les droits du compte domaine exécutant le script), mais tous les scripts et explications que je rencontre ne fonctionne pas.
Mon code VBS est celui-ci :

Code :

1
2
3
4
5
6
7
8
9
sql = "SELECT adsPath FROM 'LDAP://" & RequestDomain & "DC=" & RequestDomainDC & ",DC=NET,DC=INTRA' where Samaccountname='"&UserName&"'"
        set LdapConn = createobject("ADODB.Connection")
        LdapConn.Open "Provider=ADSDSOObject"
        set rs = LdapConn.Execute(sql)
        adsPath=rs.Fields.item("adsPath").value
        adsPath=replace(adsPath,RequestDomainDC & "/","")
        rs.Close
        LdapConn.Close
        set ADoUser=getObject(adsPath)

Si vous avez une idée de la façon dont je peux adapter le code, je suis preneur.

Merci d’avance pour vos réponses