delete member in ldap via ASP

[edelwater]

How can i delete a member in ldap via asp ?

currently i try :

set objmember = objLDAP.OpenDSObject(strpath & strmember, strAdmin, strAdminPwd,0)
objMember.put "cn",deleted

...gives me no error but i want something like

objmember.delete "cn", strUserName

... or something ?

 

[edelwater]

i now try:

set objmember = objLDAP.OpenDSObject(strPath&strMember, strAdmin, strAdminPwd,0)
set container = getobject(objmember.parent)
Call Container.Delete(objMember.Class,objMember.Name)
Set objMember = Nothing

...but i get "General Access Denied Error"

 

[hdougl1]

Try this example because I've never seen an example with the CALL keyword.

Container.delete "user", "CN=exuser"

 

[edelwater]

i already got it working by extending the container info :

this is the working code for others reference :

Dim objLDAP
Dim Container
Set objLDAP = GetObject(strPath + "Schema&quot
Call objLDAP.GetInfo
Set objLDAP = GetObject("LDAP:&quot
Set objMember = objLDAP.OpenDSObject(strPath & strMember, strAdmin,
strAdminPwd, CLng(0))
If Err.Number <> 0 Then
Response.Write &quot;Failed to Bind user !!!!&quot;
Exit Function
End If
Set Container = objLDAP.OpenDSObject(objMember.Parent, strAdmin,
strAdminPwd, CLng(0))
If Err.Number <> 0 Then
Response.Write &quot;Failed to Bind container !!!!&quot;
Exit Function
End If
Call Container.Delete(objMember.Class,objMember.Name)
If Err.Number <> 0 Then
Response.Write &quot;Failed to remove user&quot; & objMember.Class & &quot;
/ &quot; & objMember.Name
End If


Edward de Leau

http://www.de-leau.com