Energieoptionen per PowerShell ändern

@echo off
CHCP 1252

:: unplugged
set "u_monitor=10"  
set "u_standby=15"  
set "u_hibernate=0"  

:: plugged in
set "p_monitor=0"  
set "p_standby=0"  
set "p_hibernate=0"  

REM (Höchstleistung)
powercfg -SETACTIVE 8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c

REM (Ausbalanciert)
REM powercfg -SETACTIVE 381b4222-f694-41f0-9685-ff5bb260df2e

REM (Energiesparmodus)
REM powercfg -SETACTIVE a1841308-3541-4fab-bc81-f71556f20b4a

::Set the unplugged settings
powercfg.exe -change -monitor-timeout-dc %u_monitor%
powercfg.exe -change -standby-timeout-dc %u_standby%
powercfg.exe -change -hibernate-timeout-dc %u_hibernate%

::Set the plugged in settings
powercfg.exe -change -monitor-timeout-ac %p_monitor%
powercfg.exe -change -standby-timeout-ac %p_standby%
powercfg.exe -change -hibernate-timeout-ac %p_hibernate%

@echo off &setlocal DisableDelayedExpansion

:: Alle Energiesparpläne mit Name und GUID, sowie Index des aktiven Energiesparplans speichern
set "n="  
for /f "tokens=1,2* delims=:" %%g in (  
  'powercfg -list^|findstr /rc:": [0-9a-f][0-9a-f]*-[0-9a-f][0-9a-f]*-[0-9a-f][0-9a-f]*-[0-9a-f][0-9a-f]*-[0-9a-f][0-9a-f]* "^|findstr /n .'  
) do for /f "tokens=1*" %%j in ("%%i") do for /f "tokens=1* delims=()" %%l in ("%%k") do (  
  set /a "n=%%g"  
  set "guid%%g=%%j"  
  set "name%%g=%%l"  
  if "%%m" neq "" set "active=%%g"  
)
if not defined n exit /b

:: Gefundene Energiesparpläne zur Auswahl stellen
setlocal EnableDelayedExpansion
for /l %%i in (1 1 %n%) do (
  <nul set /p =%%i - "!name%%i!"  
  if %%i equ %active% (echo  ^(AKTIV^)) else echo(
)
echo ~~~~~~~~~~~~~~

:: Eingabeaufforderung und eingegebenen Wert prüfen
:input_loop
set "idx=_"  
set /p "idx=Neues Energieschema: "  
call :check idx 1 %n% || goto input_loop

:: Ausgewählten Energiesparplan aktivieren und Scriptausführung beenden
powercfg -setactive !guid%idx%!
exit /b


:: Subroutine für die Prüfung des eingegebenen Werts
:check VarName Min Max
setlocal EnableDelayedExpansion
for /f "delims=1234567890 eol=" %%i in ("!%~1!") do (endlocal &exit /b 1)  
2>nul set /a "dummy=!%~1!" || (endlocal &exit /b 1)  
if "!%~1!" neq "%dummy%" (endlocal &exit /b 1)  
if %dummy% lss %~2 (endlocal &exit /b 1)
if %dummy% gtr %~3 (endlocal &exit /b 1)
endlocal &exit /b 0

# Alle Energiesparpläne als Matches-Array speichern
$matches_arr = (powercfg -l) |
  Select-String -Pattern "^.+ ([0-9A-Fa-f]{8}(-[0-9A-Fa-f]{4}){3}-[0-9A-Fa-f]{12})\s+\((.+)\)\s*(\**)$" |  
  %{$_.Matches}

# Gefundene Energiesparpläne zur Auswahl stellen
for ($i=0; $i -lt $matches_arr.Length; $i++) {
  Write-Host ($i + 1) - `"$($matches_arr[$i].Groups[3].Value)`" $(If ($matches_arr[$i].Groups[4].Value -eq "*") {"(AKTIV)"})  
}
"~~~~~~~~~~~~~~"  

# Eingabeaufforderung und eingegebenen Wert prüfen
do {
  try {
    $idx = [int]$(Read-Host -Prompt "Neues Energieschema")  
  }
  catch {}
} until ($idx -gt 0 -and $idx -le $matches_arr.Length)

# Ausgewählten Energiesparplan aktivieren
powercfg -setactive $matches_arr[$idx - 1].Groups[1].Value

@echo off &setlocal
:: Die beiden GUIDs zwischen denen gewechselt wird
set "high=8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c"  
set "low=a1841308-3541-4fab-bc81-f71556f20b4a"  
:: Prüfen, welches Schema aktiv ist und das jeweils andere aktivieren
powercfg -l|>nul findstr /e "%high%.*\*"&&(powercfg -setactive %low%)||(powercfg -setactive %high%)  
:: Kontrollausgabe
for /f "tokens=2 delims=()" %%i in ('powercfg -l^|findstr /e "\*"') do echo Aktiviert: %%i&>nul timeout 2  

for /f "tokens=4" %%a in ('powercfg -l ^| findstr /ilc:"Ultimate Power"') do powercfg -setactive %%a