Ik zoek de paths van een bepaalde CN. Hiervoor gebruik ik de volgende code :
Zodra strGebruiker en strWachtwoord correct zijn ingevuld kan ik zonder problemen zoeken op een CN met strZoekUser, maar ik wil graag anoniem zoeken. Zodra ik strGebruiker en/of strWachtwoord leeg laat kan hij niets vinden. Met LDAP browser kan ik gewoon anoniem de hele directory bekijken dus dan moet ik toch ook kunnen zoeken lijkt me?
Iemand een idee?
code:
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
| strZoekUser=Request("gebruiker")
Set objCommand = CreateObject("ADODB.Command")
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Provider = "ADsDSOObject"
objConnection.Properties("User ID") = strGebruiker
objConnection.Properties("Password") = strWachtwoord
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
strBase = "<LDAP://*ip*:636/o=*org*>"
strFilter = "(&(objectClass=person)(cn="&strZoekUser&"))"
strAttributes = "adspath,givenName,sn"
strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree"
objCommand.CommandText = strQuery
objCommand.Properties("Page Size") = 100
objCommand.Properties("Timeout") = 30
objCommand.Properties("Cache Results") = False
objCommand.Properties("Sort On") = "sn"
Set objRecordSet = objCommand.Execute
If objRecordSet.EOF Then
Response.Write "User not found"
End If
Do Until objRecordSet.EOF
IF NOT IsNull(objRecordSet.Fields("adspath")) THEN
Response.Write "adspath: " & objRecordSet.Fields("adspath") & "<br>"
END IF
objRecordSet.MoveNext
Loop
objConnection.Close
Set objRootDSE = Nothing
Set objCommand = Nothing
Set objConnection = Nothing
Set objRecordSet = Nothing |
Zodra strGebruiker en strWachtwoord correct zijn ingevuld kan ik zonder problemen zoeken op een CN met strZoekUser, maar ik wil graag anoniem zoeken. Zodra ik strGebruiker en/of strWachtwoord leeg laat kan hij niets vinden. Met LDAP browser kan ik gewoon anoniem de hele directory bekijken dus dan moet ik toch ook kunnen zoeken lijkt me?
Iemand een idee?
[ Voor 19% gewijzigd door Guffy op 10-06-2004 09:26 ]