[ASP + ADSI] error '8007202b'

[ArjanC]

hoi, ik wil met ASP data uit onze AD halen, nou heb ik dit van internet af gerukt :

code:

<%
Dim userObj
Set dso =GetObject("LDAP:")
Set userObj = dso.OpenDSObject("LDAP://d1dal100/CN=<username>,OU=Users & Groups,OU=EUR,dc=<domain>","<domain>\<username>","<password>",0)



Set userSchema =GetObject(userObj.schema)

 Response.Write "The sample values... <BR>"
 With userObj
  Response.Write "<B>User Display: </B>" & .displayName & "<BR>"
  Response.Write "<B>Manager: </B>" & .manager & "<BR>"
  Response.Write "<B>Adsi Path: </B>" & .ADsPath & "<BR>"
  Response.Write "<B>Department: </B>" & .Department & "<BR>"
  Response.Write "<B>Last Login: </B>" & .LastLogin & "<BR><BR>"
 End With

 Response.Write "<B>Mandatory user properties,attributes </B><BR>"
 Response.Write string(90,"=") & "<BR>"
 For each Item in userSchema.MandatoryProperties
  Response.Write item & "<BR>"
 Next
 Response.Write "<BR><B>Optional user properties,attributes </B><BR>"
 Response.Write string(90,"=") & "<BR>"
 For each Item in userSchema.OptionalProperties
  Response.Write item & "<BR>"
 Next
%>

maar ik telkens een error:


_{error '8007202b'
/adsi/show.asp, line 10}


maar ik snap totaal niet wat er fout aan is..

_{sorry voor de layout}

[ArjanC]

oja,

bij ons staan de namen er in als lastname, firstname

maar als ik dat gebruikt dan vind asp dat niet tof.

[whoami]

Misschien moet je maar eerst eens asp leren. Hoe kunnen wij nu weten wat er fout aan is, als je dat script zo al van 't internet hebt afgehaald.
Klop eens bij de maker van dat script aan, hij zal je wel kunnen helpen.

Misschien kun je ook eens opzoeken wat die foutmelding betekent. Volgens mij heb jij geen enkele moeite gedaan om zelf iets te maken en ook om zelf eens uit te zoeken wat het probleem kan zijn en wat die foutmelding wil zeggen.

P&W is geen helpdesk-service.