Estoy realizando una aplicación para interactuar con el Active directory(listar grupos, agregar usuarios a grupos, etc). Mi problema esta en que no logro poder agregar a un grupo un grupo ya existente.
Utilizo ActiveDs_TLB y adshlp.
Este es el código que estoy intentando utilizar para agregar el grupo.
delphi
var grupo : IAdsGroup; grup: IAdsGroup; Rutagrupo: string; begin Rutagrupo := 'WinNT://domain/grupodestino'; AdsGetObject(Rutagrupo, IADsGroup, grupo); grup := dom.GetObject('group', 'grupoagregar') as IAdsGroup; grupo.Add(grup.ADsPath); end;
Muchas gracias por la ayuda de antemano.