home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 27 / IOPROG_27.ISO / SOFT / ADSDK.ZIP / Samples / Exchange / Org / Org.bas next >
Encoding:
BASIC Source File  |  1999-02-03  |  289 b   |  15 lines

  1. Attribute VB_Name = "Module1"
  2. Sub Main()
  3.  
  4. srvName = "andyhar09:390"
  5.  
  6. Set objRoot = GetObject("LDAP://" & srvName)
  7. Debug.Print objRoot.Get("o")
  8.  
  9.  
  10. '--- OR ------
  11. Set objRoot = GetObject("LDAP://" & srvName & "/RootDSE")
  12. Debug.Print objRoot.Get("defaultNamingContext")
  13.  
  14. End Sub
  15.