Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

Posted via ActualForum NNTP Server 1.5

function Tdata.UserLogin(ADUser, Password: string): Boolean;
var
  Domain, User: string;
  p: integer;
  phToken: THandle;
begin
  Result := False;

  if DebugHook = 0 then
  // если задан пользователь AD, то сначала логинимся в домен
  if Trim(ADUser) <> '' then begin
    p := Pos('\', ADUser);
    //if p = 0 then Exit; // нет домена, некуда и логиниться
    if p = 0 then begin
      Domain := 'vyatsu';
      User := ADUser;
    end
    else begin
      Domain := Copy(ADUser, 1, p - 1);
      User := Copy(ADUser, p + 1, Length(ADUser));
    end;
    try
      phToken := 0;
      if not LogonUser(
        PChar(User),
        PChar(Domain),
        PChar(Password),
        LOGON32_LOGON_NETWORK,
        LOGON32_PROVIDER_DEFAULT,
        phToken
      ) then
        // если был задан доменный юзер но логин не прошел, то выходим
        Exit;
    finally
      if phToken <> 0 then CloseHandle(phToken);
    end;
  end;