Einzelnen Beitrag anzeigen

Benutzerbild von FriFra
FriFra

Registriert seit: 19. Apr 2003
1.291 Beiträge
 
Delphi 2005 Professional
 
#7

Re: Existiert Benutzer+Passwort am System?

  Alt 11. Jul 2003, 20:30
Also ich habe unter XP und 2003 keine Probleme mit dem Befehl... unter NT4 funktioniert es leider nicht... die Sache mit dem Service ist mir eigentlich zu umständlich! Gibt es vielleicht noch einen anderen Weg?

Im Moment verwende ich folgrnden Code:
Delphi-Quellcode:
var
  MyToken: cardinal;
begin
  MyToken := 0;
  try
    LogonUser(PChar(trim(RequestInfo.AuthUsername)), '',
      PChar(trim(RequestInfo.AuthPassword)), LOGON32_LOGON_BATCH,
      LOGON32_PROVIDER_DEFAULT, MyToken);
  except
  end;
  if MyToken <> 0 then
  begin
    //Name und Passwort sind gültig
    ...
  Mit Zitat antworten Zitat