Това успях да постигна с помоща на MSDN-а, работи само с DirecoryServices свързано с LDAP под UNIX (Openldap):

Логване, стринга за IP-то на сървъра и DN-а, както потребител и парола са си опции от вашата мрежа и сървър:
Dim I As Int16
REM Дифиниране на променливи и логване към LDAP сървъра
Dim strPath As String = "LDAP://192.168.1.1/cn=USER,o=Company,c=BG"
Dim myDir As New DirectoryEntry(strPath, "cn=USER,o=Company,c=BG", "pass", AuthenticationTypes.ServerBind)
REM -----------------------------------------------------------------------------

REM Четем и вадим информация за текущата позиция в LDAP сървъра, вадим обектите:
Console.WriteLine("schema class name: " & myDir.SchemaClassName & ", name: " + myDir.Name)
Console.WriteLine("In this LDAP in ROOT count of objects is: " & myDir.Properties.Count)
Console.WriteLine("Current path: " & myDir.Path)
myDir.Close()
REM Затваряме сесията

Търсене в Openldap, използвате логването от по-горе като не затваряте сесията (ако не го ползвате може да се логнете като публичен потребител), не е необходимо да вадите схемата и прочее, което аз съм направил след логванео:

Dim mySearcher As DirectorySearcher = New DirectorySearcher(myDir)
Dim resEnt As SearchResult

REM Вадене на всички обджект класове, може да се смени с друг критерии
mySearcher.Filter = ("(objectClass=*)")
Console.WriteLine(Chr(10) & Chr(13) & "Listing LDAP 'objectClass=*':")
Console.WriteLine("=========== Start of Listing =============")

For Each resEnt In mySearcher.FindAll()
Console.WriteLine(resEnt.GetDirectoryEntry().Name.ToString())
Next
Console.WriteLine("============ End of Listing ==============")

Това е засега от мен, по-нататак следва ADD метода, върху него сега работя, ако някой има повече инфо да пише тук, ако иска да го добавя като се справя да казва. Този код работи в този вид буквално с Copy / Paste, с минимални корекции ако се налага в стринга за търсене или настройка на сървъра към който се логвате.

[image]http://www.zcs.k12.in.us/ZCHS/images/wrestling.gif[image]