Пишу вот так:

Dim DSO As IADsOpenDSObject
Set DSO = GetObject("LDAP:")

Dim myOU As String
myOU = "LDAP://domainControllerName.domainName.local/OU=myOU,DC=domainName,DC=local"

Dim Container As IADsContainer
Set Container = DSO.OpenDSObject(myOU, "name", "pass", 0)

Dim Group As IADsGroup
Set Group = Container .Create("group", "groupName")
Group.SetInfo

Вылетаю на последней строчке "Auotomation error. The server is unwilling to process to request"
Кто знает как исправить ситуэйшн?

R>Вылетаю на последней строчке "Auotomation error. The server is unwilling to process to request"
R>Кто знает как исправить ситуэйшн?

Вместо
R> Set Group = Container .Create("group", "groupName")
R> Group.SetInfo
напиши так:
Set Group = Container .Create("group", "cn=groupName")
Group.Put("sAMAccountName", "groupName")
Group.SetInfo

Т.е. при создании группы надо указать также logon name (sAMAccountName) и использовать полный RDN в Container.Create

Спасибо. Помогло на все 100!