Create Deprovisioning Policy with a script moving users to another OU

Finally I got it.

I created manually a policy, copied the content of the edsaAPEListXML and used this string in my script for a new policy.

Here is the code

strSetting=value of the manual created policy

Set ContainerObject=GetObject("EDMS://" & strPolicyContainerDN)
Set poObject = ContainerObject.Create("edsPolicyObject", strPolicyObjectDN)
poObject.Put "edsaPolicyType", 1
poObject.Put "edsaAPEListXML", strSetting
poObject.Put "description", "Deprovisioning policy for users."
poObject.SetInfo

There is a GUID inside of the edsaAPEXML string. I replaced it with a new GUID (strGUID) each time a new policy is created with the script.

Set OctetString=CreateObject("AelitaEDM.EDMOctetString")
OctetString.GenerateGuid
strGUID=OctetString.GetGuidString

There is a GUID inside of the edsaAPEXML string. I replaced it with a new GUID (strGUID) each time a new policy is created with the script.

Set OctetString=CreateObject("AelitaEDM.EDMOctetString")
OctetString.GenerateGuid
strGUID=OctetString.GetGuidString