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?