How to control initial window size with init.m

I don’t like the default initial window size.

In older versions (prior to 14), I could put this init.m

FrontEndExecute[
  {
    SetOptions[FrontEnd`InputNotebook[], WindowSize -> {Scaled[.8], Scaled[.7]} ],
    SetOptions[FrontEnd`InputNotebook[], WindowMargins -> {{40, Automatic}, {Automatic, 40}} ],
    $PlotTheme = "Classic";
  }
]

into C:\ProgramData\Mathematica\Kernel.

However, this does not seem to work in version 14.1.

So, in 14.1, how can I use init.m to control the initial window size?

Between 14.0 and 14.1 there was a change in where Mathematica is installed.
Try:

C:\ProgramData\Wolfram\Kernel

Thank you. That worked!