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’); user.SetInfo;
group.Add(WinNT: end;
Estoy al borde de la desesperación ....
Muchar gracias