В примере сие делалось строкой:
Код:
objGroup.Add objUser.ADSPath
Эти группы уже существуют? Подключаетесь к объекту:
Код:
Set objIADsGroup = GetObject("LDAP://cn=группа1,ou=Groups,dc=corp,dc=int")
затем добавляете
свежесозданную учётную запись в группу:
Код:
objIADsGroup.Add objUser.ADSPath
Аналогично со второй группой.
