LDAP - vbscript

Próbuję (podłączyć się) wyświetlić drzewko LDAP na stacji
roboczej podłączając się skryptem vbs
Mam nastepujący skrypt w vbs:

strBaseDN = "<LDAP://dc=test,dc=local>;"
strFilter = "(&(objectclass=*)(objectcategory=*));"
strAttrs = "cn;"
strScope = "subtree"
set objConn = CreateObject("ADODB.Connection")
objConn.Provider = "ADsDSOObject"

objConn.Properties("User ID") = "administrator"
objConn.Properties("Password") = "dobrehaslo"

objConn.Open "Active Directory Provider"

Wscript.Echo ">>" & strBaseDN & strFilter & strAttrs & strScope & "<<"

set objRS = objConn.Execute(strBaseDN & strFilter & strAttrs &
strScope)

objRS.MoveFirst
while Not objRS.EOF
        Wscript.Echo objRS.Fields(0).Value
        objRS.MoveNext
wend
---------------------------------------------------------------------------------------------------------------
strBaseDN jest na pewno OK haslo admina jest na pewno OK
Dostaję taki komunikat !!!

Skrypt: (sciezka do mojego skryptu)
Wiersz: 16
Znak:1
Błąd: Odmowa uprawnień
Kod: 80040E09
Źródło: Provider

Proszę o POMOC!!!
Received on Tue Apr 18 10:15:11 2006