Hallo zusammen,
suche eine Funktion / Möglichkeit, das Passwort eines Domain-Benutzers auf richtigkeit zu überprüfen.
Die folgenden Daten zum Domain-Benutzer habe ich bereits:
- Benutzername
- Domainen-Bezeichnung
- Vorname
- Nachname
- etc.
Habe bereits einige Versuche mit der ActiveDs_TLB.pas und der adshlp.pas durchgeführt. Nur leider bringen diese meine komplette Datenbank anschließend durcheinander. Zudem werden von diesen Units nur exceptions bei der Ausführen geschmissen.
Hier der Beispielcode, der unter Windows Server 2003 (mit Domain-Controller) nur Fehler gebracht hat:
Delphi-Quellcode:
procedure TADSForm.Button3Click(Sender: TObject);
var Result:Integer;
Obj:IADs;
Tmp:
Array[0..500]
Of Char;
begin
Screen.Cursor:=crHourglass;
CoInitialize(
nil);
Result:=ADsOpenObject('
WinNT://'+Domain.Text,UserID.Text,Password.Text,ADS_SECURE_AUTHENTICATION,IADs,Obj);
Screen.Cursor:=crDefault;
If Succeeded(Result)
Then
Begin
MessageBeep(mb_ICONINFORMATION);
StrPCopy(Tmp,'
Logged onto' + #10 + '
Name:' + Obj.
Name + #10 + '
Path:' + Obj.ADsPath);
Application.MessageBox(Tmp,'
Authenticated',mb_OK + mb_ICONINFORMATION);
End Else
Begin
MessageBeep(mb_ICONEXCLAMATION);
Application.MessageBox('
Authentication Failed !','
Authenticated',mb_OK + mb_ICONINFORMATION);
End;
CoUninitialize;
end;
Hoffe ihr könnt mir ein wenig helfen....