Trying to Display all User Class Objects in AD!!

[chriscak]

I am a newbie at Vbscript and LDAP
I have the following piece of code literally from the books:
-----------
<%
Dim RootDSE
Dim UserContainer
Dim User
Dim RelativePathFromDomainToUserContainer

RelativePathFromDomainToUserContainer = "OU=Helpdesk,OU=Beheerders,OU=CAK-USERS,"

Set RootDSE = GetObject("LDAP://RootDSE")
Set UserContainer = GetObject("LDAP://" & RelativePathFromDomainToUserContainer & RootDSE.Get("DefaultNamingContext"))
UserContainer.Filter = Array("User")

For Each User in Usercontainer
Response.Write User.AdsPath & "<BR>"
Next
%>
-----------

It is supposed to give me all the User Class Objects in that container. Unfortunately all i get is:

-----------
error '80005000'
/adsibook2.asp, line 19
-----------

Does this sound familiar to anyone or can anyone see what i am doing wrong, if so please help me out. I've been struggling with this for quite some time now, but i can't seem to get it to work by myself :-(

 

[zcolton]

chriscak,

You may find your answer here:

http://www.tek-tips.com/viewthread.cfm?qid=356151

I'ld put money on it being a security issue. help dozens already. Please refer to the "Example of ASP LDAP query string?" thread.

zcolton

 

[chriscak]

Zcolton,

Thanx for replying. I tried some of the scripts in that thread and did get security errors like [Provider error '80004005' Unspecified error] and [Provider error '80040e09'Permission denied.]
They bomb on [Set rs = Com.Execute]
Well, i'll just to look for the security problem now. Thanx for putting me in the right direction.

Chris