Can you help me?
I have the following code in a login screen.
procedure TUniLoginForm2.UniButton1Click(Sender: TObject);
var
adObject: IADs;
Container : IADsContainer;
User : IADsUser;
hr : HREsult;
begin
CoInitialize(Nil);
try
hr := ADsGetObject('LDAP://<Domain>',IADsContainer,Container);
if Failed(hr) then exit;
adObject := Container.Create(LowerCase(edtUsuario.Text),'ActiveDirectoryUser') as IADs;
adObject.QueryInterface(IID_IADsUser, User);
C
Can you help me?
I have the following code in a login screen.
procedure TUniLoginForm2.UniButton1Click(Sender: TObject);
var
adObject: IADs;
Container : IADsContainer;
User : IADsUser;
hr : HREsult;
begin
CoInitialize(Nil);
try
hr := ADsGetObject('LDAP://<Domain>',IADsContainer,Container);
if Failed(hr) then exit;
adObject := Container.Create(LowerCase(edtUsuario.Text),'ActiveDirectoryUser') as IADs;
adObject.QueryInterface(IID_IADsUser, User);
C