@echo off
::
::
:start
cls
::
set VERZ=%~dp0
echo.
set Arbeitsverzeichnis=%1"
set Arbeitsverzeichnis=%Arbeitsverzeichnis:"=%
color 0f             
echo.
echo                      =================================
echo               ************************************************
echo               **                                            **
echo               **        -= RDP  CredSSP umschalter=-        **
echo               **                                            **
echo               ************************************************
echo                      =================================
echo.
echo                   === Systemzeit : %Time% UHR   ===
echo               ===           User : %USERNAME%              ===
echo     ***********************************************************************
echo     ******                     = M-E-N-U-E =                           ****
echo     ***********************************************************************
echo     ***     0 = Aktivieren UNSICHER Aufschaltung moeglich              ****
echo     ***     1 = Deaktivieren SAVE                                      ****
echo     ***********************************************************************
echo     ***********************************************************************
echo.


set /p Reparatur=Bitte waehlen Sie eine Option aus:

if "%Reparatur%"=="0" goto rep0
if "%Reparatur%"=="1" goto rep1


:: **************************************** Rep 0 **************************************** 
:rep0
REG ADD HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\CredSSP\Parameters\ /v AllowEncryptionOracle /t REG_DWORD /d 2
pause
if %ERRORLEVEL% == 0 goto ende
goto errfehler
:: **************************************** Rep 0 **************************************** 

:: **************************************** Rep 1 **************************************** 
:rep1
REG ADD HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\CredSSP\Parameters\ /v AllowEncryptionOracle /t REG_DWORD /d 0
::pause
::if %ERRORLEVEL% == 0 goto ende
goto ende
::goto errfehler
:: **************************************** Rep 1 **************************************** 




:errfehler
echo   ***************************************************************************
echo  *****************************************************************************
echo *****                                                                     *****
echo *****                        Ausfuehrung FEHLER ...                        *****
echo *****                                                                     *****
echo  *****************************************************************************
echo   ***************************************************************************
color 0c
goto farbegesetzt

:ende
echo   ***************************************************************************
echo  *****************************************************************************
echo *****                                                                     *****
echo *****                        Ausfuehrung erfolgreich ...                  *****
echo *****                                                                     *****
echo  *****************************************************************************
echo   ***************************************************************************
color 02
goto farbegesetzt

:farbegesetzt
Pause
goto start