Ver grupos Active Directory

[drykea]

Hola a tod@s

¿Alguien sabe como acceder desde delphi a las propiedades de Active Directory?
Me explico, necesito comprobar si el usuario que está ejecutando la aplicación pertenece a un grupo definido en directorio activo.

Gracias por su ayuda.

[fide]

Oyeme, busca en Internet, o sea mas especificamente en google, lo siguiente.

Delphi+ADSI

ADSI significa Active Directory Service Interface. Creo que con eso puedes hacer lo que deseas...

[drykea]

Hola todavia sigo con este problemilla.
He estado investigando por ahí y no he conseguido encontrar nada que me ayude mucho.
He visto que se puede usar la activeds.tlb, pero en ningun sitio encuentro cómo se utiliza.

¿Alguna ayudita?

Graciass

[fide]

Oyeme, yo he buscado por delphi+ADSI y me salen unos cuantos links, conpaginas que contienen unos cuantos ejemplos de esa cosa.

Asi que intenta de nuevo, y ten paciencia. Que seguro que encuentras algo que valga la pena mijooo...

[drykea]

Hola a tod@s

Despues de mucho buscar he probado con un par de cosas sobre adsi pero todo me da error. Después de importar la libreria,de que me generara el .pas, y añadiendolo al uses de mi aplicacion, he hecho varias pruebas.

1. He intentado con la funcion adsgetobject, pero me dice que no esta declarada.

Código Delphi [-]
 
 
adsGetObject('WinNT://dominio/usuario',IADsUser, user )

2. Encontré este ejemplo y al ejecutarlo me dice que la funcion getobject es ambigua y no me compila.

Código Delphi [-]
 
function GetUserName : string;
var
  tamanoBuffer: Cardinal;
  bufferUsuario: array[0..MAX_PATH] of Char;
begin
  tamanoBuffer := SizeOf(bufferUsuario);
  Windows.GetUserName(bufferUsuario, tamanoBuffer);
  Result := bufferUsuario;
end;
procedure TfPrincipal.FormCreate(Sender: TObject);
var
 user:IADsUser;
 cont:IADsContainer;
 group:IADsGroup;
begin
 group := GetObject('WinNT://dominio/grupo') as IADsGroup;
 cont  := GetObject('WinNT://dominio', computer) as IADsContainer;
 user := cont.Create(user, novo_usuario) as IADsUser;
 user.SetPassword(‘123456’); //definir uma senha
 user.SetInfo;
 group.Add(WinNT://dominio/+nuevo_usuario);}
 end;

Estoy al borde de la desesperación ....

Muchar gracias

[DANIRA]

Hola,

Quizás te pueda interesar este enlace donde encontraras un programita para gestionar los usuarios de Active Directory, viene con las fuentes.

http://www.ajpdsoft.com/modules.php?...rticle&sid=301

Espero que te sea de utilidad.