1.
2.
3. <%@ Language=VBScript %>
4. <%
5. Dim userName
6. Dim filter
7. Dim ldapObj
8.
9. Const LDAP_SERVER = "ldap.example"
10.
11. userName = Request.QueryString("user")
12.
13. if( userName = "" ) then
14. Response.Write("Invalid request. Please specify a valid
15. user name")
16. Response.End()
17. end if
18.
19. filter = "(uid=" + CStr(userName) + ")" ' searching for the user entry
20.
21. 'Creating the LDAP object and setting the base dn
22. Set ldapObj = Server.CreateObject("IPWorksASP.LDAP")
23. ldapObj.ServerName = LDAP_SERVER
24. ldapObj.DN = "ou=people,dc=spilab,dc=com"
25.
26. 'Setting the search filter
27. ldapObj.SearchFilter = filter
28.
29. ldapObj.Search
30.
31. 'Showing the user information
32. While ldapObj.NextResult = 1
33. Response.Write("")
34.
35. Response.Write("User information for: " +
36. ldapObj.AttrValue(0) + "
")
37. For i = 0 To ldapObj.AttrCount -1
38. Response.Write("" + ldapObj.AttrType(i) +": " +
39. ldapObj.AttrValue(i) + "
" )
40. Next
41. Response.Write("
")
42. Wend
43. %>
44.
45.
Dans l'exemple ci-dessus, nous envoyons le caractère * dans le paramètre d'utilisateur qui se transmettra dans la variable de filtre dans le code qui sera initialisé avec (uid *). Le résultat de l'état LDAP sera que le serveur retournera n'importe quel objet qui contiendra un attribut d'uid comme le nom d'utilisateur.