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:confused:

[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.


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.

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?name=News&file=article&sid=301

Espero que te sea de utilidad.