:: Script by Dserv

@echo off

::check if run as admin
openfiles > NUL 2>&1
if %ERRORLEVEL% EQU 1 echo You need to run this script as Administrator. & pause & exit

::check processor architecture and set variable for program folder.
if "%processor_architecture%"=="AMD64" (
    set programfolder=%programfiles%
) else (
    set programfolder=%programfiles(x86)%
)

::check internet connection
echo Checking internet connection...
ping www.google.se >nul
if %ERRORLEVEL% EQU 1 cls & echo No internet connection & pause & exit

::Set run path to batdir
FOR /F %%I IN ("%0") DO SET BATDIR=%%~dpI
cd %batdir%

::Set paths and filenames and service variables.
set openvpnpath=https://swupdate.openvpn.org/community/releases/openvpn-install-2.3.10-I604-x86_64.exe

set swedenudp=https://files.ovpn.se/windows/ovpn-se.ovpn
set swedentcp=https://files.ovpn.se/windows/ovpn-se-tcp.ovpn
set germanyudp=https://files.ovpn.se/windows/ovpn-de.ovpn
set germanytcp=https://files.ovpn.se/windows/ovpn-de-tcp.ovpn
set netherlandudp=https://files.ovpn.se/windows/ovpn-nl.ovpn
set netherlandtcp=https://files.ovpn.se/windows/ovpn-nl-tcp.ovpn
set canadaudp=https://files.ovpn.se/windows/ovpn-ca.ovpn
set canadatcp=https://files.ovpn.se/windows/ovpn-ca-tcp.ovpn

set service_run=SC Start "Openvpnservice"
set service_stop=SC Stop "Openvpnservice"
set service_auto=SC Config "Openvpnservice" start= AUTO


::Choices are connected to installopenvpn (keep in mind when adding choices betweeen 1-3.)
:INSTALLMENU
cls
echo OpenVpn version: %openvpnpath%
echo.
echo Note: This script relies on the availability of Openvpn version 2.3.10.
echo If installation process (application install or configuration change)
echo takes more then 5 minutes terminate script,
echo and contact Dserv for a new version.
echo.
echo MENU:
echo [1] INSTALL OPENVPN
echo [2] CHANGE CONNECTION CONFIG
echo [3] CHANGE PASSWORD
echo [4] STOP SERVICE
echo [5] START SERVICE
echo [6] RESTART SERVICE
echo [7] KILLSWITCH
echo [8] EXIT
echo ==========================
echo Enter selection and press ENTER key:
set /P menuchoice=
if /I "%menuchoice%" EQU "1" goto :installopenvpn
if /I "%menuchoice%" EQU "2" goto :changeconfig
if /I "%menuchoice%" EQU "3" goto :changepass
if /I "%menuchoice%" EQU "4" goto :stop_sc
if /I "%menuchoice%" EQU "5" goto :start_sc
if /I "%menuchoice%" EQU "6" goto :restart_sc
if /I "%menuchoice%" EQU "7" goto :killswitch
if /I "%menuchoice%" EQU "8" exit

:INSTALLOPENVPN
cls
IF EXIST "%programfolder%\openvpn\bin\openvpn.exe" echo OpenVpn already installed. & pause & goto :installmenu
echo Downloading and installing OpenVpn, this can take a couple minutes...
bitsadmin.exe /transfer "ovpndowload" /priority high %openvpnpath% "%batdir%\openvpninstall.exe" >nul
openvpninstall.exe /S /D=%programfolder%\openvpn
del openvpninstall.exe
del "%public%\desktop\openvpn gui.lnk"
cls

:CHANGECONFIG
cls
if "%menuchoice%"=="2" IF NOT EXIST %programfolder%\openvpn\bin\openvpn.exe" echo OpenVpn is not installed. & pause & goto :installmenu
if "%menuchoice%"=="2" %service_stop% >nul
IF EXIST "%programfolder%\openvpn\config\*.ovpn" del "%programfolder%\openvpn\config\*.ovpn" >nul
echo [1] Sweden servers UDP
echo [2] Sweden servers TCP
echo [3] Germany servers UDP
echo [4] Germany servers TCP
echo [5] Netherland servers UDP
echo [6] Netherland servers TCP
echo [7] Canada servers UDP
echo [8] Canada servers TCP

echo Select serverconfig and press ENTER key:
set /P confchoice=
if /I "%confchoice%" EQU "1" set addr=%swedenudp% & set addrfile=ovpn-se.ovpn >nul
if /I "%confchoice%" EQU "2" set addr=%swedentcp% & set addrfile=ovpn-se-tcp.ovpn >nul
if /I "%confchoice%" EQU "3" set addr=%germanyudp% & set addrfile=ovpn-de.ovpn >nul
if /I "%confchoice%" EQU "4" set addr=%germanytcp% & set addrfile=ovpn-de-tcp.ovpn >nul
if /I "%confchoice%" EQU "5" set addr=%netherlandudp% & set addrfile=ovpn-nl.ovpn >nul
if /I "%confchoice%" EQU "6" set addr=%netherlandtcp% & set addrfile=ovpn-nl-tcp.ovpn >nul
if /I "%confchoice%" EQU "7" set addr=%canadaudp% & set addrfile=ovpn-ca.ovpn >nul
if /I "%confchoice%" EQU "8" set addr=%canadatcp% & set addrfile=ovpn-ca-tcp.ovpn >nul

cls
echo Installing server configuration wait...
bitsadmin.exe /transfer "ovpndowload" %addr% "%batdir%\%addrfile%" >nul
icacls "*.ovpn" /setowner %username% /T /C >nul

setlocal enabledelayedexpansion
for /f "tokens=1,* delims=¶" %%A in ( '"findstr /n ^^ %addrfile%"') do (
   SET string=%%A
   for /f "delims=: tokens=1,*" %%a in ("!string!") do set "string=%%b"
   if  "!string!" == "" (
       echo.>>config.tmp
   ) else (
      SET modified=!string:auth-user-pass=auth-user-pass auth.txt!
      echo !modified! >> config.tmp
  )
)
del %addrfile%
rename config.tmp %addrfile%
endlocal

copy %addrfile% "%programfolder%\OpenVPN\config" >nul
del %addrfile% >nul

if "%menuchoice%"=="1" goto :changepass
if "%menuchoice%"=="2" %service_run% >nul & echo Config changed to %addr%
pause
goto :installmenu


:CHANGEPASS
cls
if "%menuchoice%"=="3" IF NOT EXIST "%programfolder%\openvpn\bin\openvpn.exe" echo OpenVpn is not installed. & pause & goto :installmenu
if "%menuchoice%"=="3" %service_stop% >nul
set /p usern= Input your vpn username:
set /p passw= input your vpn password:
cls
echo Username:%usern% Password:%passw% is this correct? [Y] [N]
set /P m=
if /I "%m%" EQU "Y" echo Yes >nul
if /I "%m%" EQU "N" goto :CHANGEPASS
cls
cd %batdir% >nul
echo %usern%>auth.txt
echo %passw%>>auth.txt
icacls "auth.txt" /setowner %username% /T /C >nul
copy auth.txt "%programfolder%\OpenVPN\config" >nul
del auth.txt >nul
if "%menuchoice%"=="1" %service_auto% >nul & %service_run% >nul & echo OpenVpn is installed and running.
if "%menuchoice%"=="3" %service_run% >nul & echo Password changed.
pause
goto :installmenu


:STOP_SC
cls
IF NOT EXIST "%programfolder%\openvpn\bin\openvpn.exe" echo OpenVpn is not installed. & pause & goto :installmenu
sc query "openvpnservice" | findstr /i "STOPPED" >nul
if errorlevel 1 (
    %service_stop% >nul
    echo Stopping service...
    timeout 5 >nul
    cls
    sc query "openvpnservice" | findstr /i "STOPPED" >nul & if errorlevel 1 echo ERROR: Can't stop service & pause & goto :installmenu
    cls
    echo Openvpn service is now stopped.
    pause
    goto :installmenu
) else (
    echo Service already stopped.
    pause
    goto :installmenu
)

:START_SC
cls
IF NOT EXIST "%programfolder%\openvpn\bin\openvpn.exe" echo OpenVpn is not installed. & pause & goto :installmenu
sc query "openvpnservice" | findstr /i "RUNNING" >nul
if errorlevel 1 (
    %service_run% >nul
    echo Starting service...
    timeout 5 >nul
    cls
    sc query "openvpnservice" | findstr /i "RUNNING" >nul & if errorlevel 1 echo ERROR: Can't start service & pause & goto :installmenu
    cls
    echo Openvpn service is now running.
    pause
    goto :installmenu
) else (
    echo Service already running.
    pause
    goto :installmenu
)

:RESTART_SC
cls
IF NOT EXIST "%programfolder%\openvpn\bin\openvpn.exe" echo OpenVpn is not installed. & pause & goto :installmenu
sc query "openvpnservice" | findstr /i "RUNNING" >nul
if errorlevel 1 (
    %service_run% >nul
    echo Restarting service...
    timeout 5 >nul
    cls
    sc query "openvpnservice" | findstr /i "RUNNING" >nul & if errorlevel 1 echo ERROR: Can't restart service & pause & goto :installmenu
    cls
    echo Service was not started, but is know running.
    pause
    goto :installmenu
) else (
    %service_stop% >nul
    %service_run% >nul
    echo Restarting service...
    timeout 5 >nul
    cls
    sc query "openvpnservice" | findstr /i "RUNNING" >nul & if errorlevel 1 echo ERROR: Can't restart service & pause & goto :installmenu
    echo Openvpn service is now restarted.
    pause
    goto :installmenu
)

:KILLSWITCH
cls
echo This will set your network connection to private if it's public or domain.
echo After that install two firewall rules.
echo which prevent your torrent client to communicate as long as your vpn connection is lost.
echo.
echo Do you want to install these rules? [Y] [N]
set /P killswitchyesno=
if /I "%killswitchyesno%" EQU "Y" echo yes >nul
if /I "%killswitchyesno%" EQU "N" goto :installmenu
:killswitch_setpath
cls
set /p torrentlocation= Input path: (example: C:\Program Files (x86)\uTorrent\uTorrent.exe)
cls
if not exist "%torrentlocation%" echo Can't find torrentclient. & pause & goto :killswitch_setpath

for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\software\microsoft\windows nt\currentversion\networklist\Profiles" ^| FIND "{"') do set var=%%~nxa

reg query "HKEY_LOCAL_MACHINE\software\microsoft\windows nt\currentversion\networklist\Profiles\%var%" /v Category | find "0x1">nul

IF %ERRORLEVEL%== 0 (
    goto :torrent_installrules
) else (
for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINE\software\microsoft\windows nt\currentversion\networklist\Profiles" ^| FIND "{"') do set var=%%~nxa
Reg Add "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkList\Profiles\%var%" /V Category /t REG_DWORD /d 1 /f >nul
)

:torrent_installrules
cls
netsh advfirewall firewall show rule name="Private torrent (IN)" >nul
if %errorlevel%== 0 (
    echo Rules already installed.
) ELSE (
    netsh advfirewall firewall add rule name="Private torrent (IN)" dir=in action=block program="%Torrentlocation%" profile=private,domain >nul
    netsh advfirewall firewall add rule name="Private torrent (OUT)" dir=out action=block program="%Torrentlocation%" profile=private,domain >nul
    echo Rules installed.
)
pause
cls
goto :installmenu