Пичове, т'ва бачка
тук направо по същество:

Imports System
Imports System.Collections
Imports System.Collections.Specialized
Imports System.DirectoryServices
Imports ldap_net

.
.
.
.

Dim LD_Clint As New LdapClient("192.168.1.5", LdapClient.DefaultPort, True, False)
LD_Clint.ldap_simple_bind_s("cn=user,o=company,c=BG", "secret")

Dim attrval As New ListDictionary
Dim entryDN As String = "o=company,c=BG"

attrval("objectClass") = New String() {"top", "person"}
attrval("cn") = "Testio Testiov"
attrval("sn") = "Testiov"

LD_Clint.ldap_add_s(entryDN, attrval)
LD_Clint.ldap_unbind()

За да работи по-горното ви трябва това:
http://www.codeproject.com/dotnet/dotnetopenldap/dotnetopenldap_src.zip

Благодаря още веднъж на колегата Малко вероятно някой друг да захване да прай т'ва дет аз, ама ако попадне тук още някой и го интересува да взима тези неща и да не си бие повече главата.

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