[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