LDAP Server Connection

 Dim u As DirectoryServices.DirectoryEntry = Get_UNIX_root("ou=netgroup,")

 Dim un As String = "user-tplp-support"

Dim s As New DirectoryServices.DirectorySearcher(u, "(nisNetgroupTriple=(," + un + ",))")

Dim r As DirectoryServices.SearchResultCollection = s.FindAll

Catch ex As Exception

Return ex.ToString

End Try

is throwing exception at FindAll

System.Runtime.InteropServices.COMException (0x8007203A): The server is not operational.

   at System.DirectoryServices.DirectoryEntry.Bind(Boolean throwIfFail)

   at System.DirectoryServices.DirectoryEntry.Bind()

   at System.DirectoryServices.DirectoryEntry.get_AdsObject()

   at System.DirectoryServices.DirectorySearcher.FindAll(Boolean findMoreThanOne)

   at DynScripts.scripts.Sample()

Any recommendations?

Parents
  • Steps are given below-

    Add a server profile.
    Go to File > New > New Profile…
    Enter a name for the profile, such as Google LDAP.
    Click Next. Enter the following: Host: ldap.google.com. Port: 636. Base DN: Your domain name in DN format. 
    Click Next.
    Select External (SSL Certificate).
    Click Next.
    Click Finish.

    Regards,

    Rachel Gomez

Reply
  • Steps are given below-

    Add a server profile.
    Go to File > New > New Profile…
    Enter a name for the profile, such as Google LDAP.
    Click Next. Enter the following: Host: ldap.google.com. Port: 636. Base DN: Your domain name in DN format. 
    Click Next.
    Select External (SSL Certificate).
    Click Next.
    Click Finish.

    Regards,

    Rachel Gomez

Children
No Data