I add entry using Net::LDAP
But i got error code 80072014 using ADSI !
==============================================
Dim oLDAP As IADsOpenDSObject
Dim oUser As IADs
Set oLDAP = GetObject("LDAP:")
Set oContainer =
oLDAP.OpenDSObject("LDAP://se2.program.com.tw/ou=People,dc=program,dc=com,dc
=tw", "cn=admin,dc=program,dc=com,dc=tw", "adminpasswd", 0)
If Err.Number <> 0 Then
Debug.Print "Open container failed."
Else
Set oUser = oContainer.Create("User",
"uid=luke2,ou=People,dc=program,dc=com,dc=tw")
oUser.Put "objectClass", "account"
oUser.Put "objectClass", "posixAccount"
oUser.Put "objectClass", "top"
oUser.Put "objectClass", "shadowAccount"
oUser.Put "loginShell", "/luke2"
oUser.Put "uidNumber", "2222"
oUser.Put "gidNumber", "10"
oUser.Put "homeDirectory", "/luke2"
oUser.Put "uid", "luke2"
oUser.Put "shadowLastChange", "611773"
oUser.Put "givenname", "luke2"
oUser.Put "cn", "luke2"
oUser.Put "sn", "luke2"
oUser.Put "userPassword", "12345"
oUser.SetInfo
End If
