home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / Samples / Interopt / Netscape / Netscape.bas next >
Encoding:
BASIC Source File  |  1999-03-08  |  1.1 KB  |  58 lines
  1. Attribute VB_Name = "Module1"
  2. Sub Main()
  3. Dim server
  4. Dim company
  5. Dim userName
  6. Dim password
  7. Dim dso
  8. '-- For searching----
  9. Dim con
  10. Dim command
  11. Dim rs
  12.  
  13.  
  14. server = "nscp01"
  15. company = "O=Airius.com"
  16. ADsPath = "LDAP://" & server & "/" & company
  17.  
  18. '-- Supplied Credentials -----
  19. userName = "cn=directory manager"
  20. password = "password"
  21.  
  22. '----For anonymous credentials, use "" ---
  23. 'userName = ""
  24. 'password = ""
  25.  
  26. Set dso = GetObject("LDAP:")
  27. Set cont = dso.OpenDSObject(ADsPath, userName, password, 0)
  28.  
  29. '---- Enumerating a container
  30.  
  31. For Each obj In cont
  32.   Debug.Print obj.Name & " (" & obj.Class & ")"
  33. Next
  34.  
  35. '---- Searching-------
  36. Set con = CreateObject("ADODB.Connection")
  37. con.Provider = "ADsDSOObject"
  38. con.Properties("User ID") = userName
  39. con.Properties("Password") = password
  40. con.Open "ADSI"
  41.  
  42.  
  43. Set com = CreateObject("ADODB.Command")
  44. Set com.ActiveConnection = con
  45. com.CommandText = "SELECT ADsPath FROM '" & ADsPath & "' WHERE cn='a*'"
  46. Set rs = com.Execute
  47.  
  48.  
  49. While Not (rs.EOF)
  50.    Debug.Print rs.Fields("ADsPath")
  51.    rs.MoveNext
  52. Wend
  53.  
  54.  
  55.  
  56.  
  57. End Sub
  58.