Hallo zusammen,
ich stehe vor einem Rätsel..
Mit dieser Routine frage ich den AD auf die User credentials ab.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var Hr : HResult;
outt :Pointer;
Username,Password : WideString;
begin
Username :='MeineKennung';
PassWord:= 'MeinPasswort';
coInitialize(nil);
try
Hr := ADSOpenObject('LDAP://meineDomain',pWideChar(Username),pWideChar(Password),ADS_SECURE_AUTHENTICATION,IID_IADs,Outt);
if hr = S_OK then
ShowMessage('Verified :o)')
else
ShowMessage(IntToStr(Hr));
finally
coUninitialize();
end;
end;
Wird der Button das erstemal nach dem Start der Applikation gedrückt,
dann wird der User verifiziert.
Wird der Button dann ein zweitesmal gedrückt dann wird der User nicht verifiziert.
Das Ergebnis von ADSOpenObject schaut dann so aus:
Warum ist das so, muss ich nach dem ersten Aufruf noch etwas bereinigen bevor der zweite Aufruf wieder funktioniert?
Wenn die Applikation geschlossen und wieder geöffnet wird, funktioniert es wieder einmal.
Edit: Irgendwie scheint das ganze nicht zu funktionieren.
Verified wird wirkürlich angezeigt.
De User wird aich dann erfolgreich verifiziert, wenn ein falscher Name oder ein falsches Passwort übergeben wird.
Was ich machen möchte ist, einen User (eingeloggt auf einem nicht in der Domäne angemeldeten Rechner) verifizieren. Der AD ist von dem Rechner aber zu erreichen.
Ich möchte verhindern, dass die Nutzer der Applikation sich noch ein zusätzliches Passwort merken müssen. Geht das überhaupt?
[/Edit]
Grüße
Klaus
Zitat
Baum-Darstellung
