Local Domain Name Setup Creator

@echo off
REM Uploaded with permission by EnterpriseScripts on http://f.akk.li/escripts
REM We are not liable for anything you do with that script or scripts created by that script.
REM Usage:
REM Launch LDNSc.bat (this file) and setup port forwarding and modes.
REM This version also supports Port forwarding.
REM Do not change any of the values below.
REM Comment: I made this for modular Hostname changes on local systems.

REM Copyright (c) 2017 404#0404 Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. IF YOU USE THE GENERATED MODULE SCRIPT FOR YOUR COMMERCIAL OR FREE PROJECTS, PLEASE COPY AND INCLUDE THAT COPYRIGHT NOTICE IN THEM TOO.

title LDNSc (Local domain name setup creator)
set silent=no
set destination=
set destination_port=
set local_domain_name=
set add_www=yes
set needs_portfw=no
set local_ip=
set local_port=
set uid=%random%%random%
set e=echo
set s=set /p c=
set a=Type yes or no.
set b=or type q to return.
set d=About your
:a
cls
%e% Hello %username%!
%e%.
%e% Please configure your setup here and type "done" when you finish!
%e%.
%e% [1] Silent mode [Currently set to: %silent%]
%e% [2] External IP [Currently set to: %destination%]
%e% [3] Provide www. to your ldn [Currently set to: %add_www%]
%e% [4] Local Domain Name [Currently set to: %local_domain_name%]
%e% [5] Custom UID [Currently set to: %uid%]
%e%.
%e% -----Configure this for Port forwarding-----
%e% [6] Local IP [Currently set to: %local_ip%]
%e% [7] Local Port [Currently set to: %local_port%]
%e% [8] External Port [Currently set to: %destination_port%]
%e%.
%e% [9] Exit the setup
%e%.
set /p ch=Num^>
if "%ch%"=="" goto a
if "%ch%"=="1" goto b
if "%ch%"=="2" goto c
if "%ch%"=="3" goto e
if "%ch%"=="4" goto f
if "%ch%"=="5" goto i
if "%ch%"=="6" goto g
if "%ch%"=="7" goto h
if "%ch%"=="8" goto d
if "%ch%"=="9" goto :eof
if "%ch%"=="done" goto j
goto a
:b
%e% About the silent mode:
%e% The silent mode switch allows you to start the final product silently everytime you call it.
%e% You can optionally run a non-silent script silently by using the first
%e% parameter "silent".
%e% It is perfectly to set this option on yes if you want to run this script within another script.
%e%.
%e% %a%
%e% %b%
%e%.
%s%Inp^>
if "%c%"=="" goto b
if "%c%"=="yes" set silent=yes&goto a
if "%c%"=="no" set silent=no&goto a
if "%c%"=="q" goto a
goto a
:c
%e% This is the external IP which will be called when you try to reach your local
%e% domain name.
%e% Please enter the external IP.
%e%.
%e% %b%
%e%.
%s%IP^>
if "%c%"=="" goto c
if "%c%"=="q" goto a
set destination=%c%
goto a
:d
%e% This is the external port of the external IP.
%e%.
%e% Please enter the port of the external IP.
%e%.
%e% or type q to return.
%e%.
%s%Port^>
if "%c%"=="" goto d
if "%c%"=="q" goto a
set destination_port=%c%
set needs_portfw=yes
goto a
:e
%e% About the www. option.
%e% If your ldn is my.local.page this option would also map www.my.local.page
%e%.
%e% This won't affect my.local.page at all.
%e%.
%e% %a%
%e% %b%
%e%.
%s%Inp^>
if "%c%"=="" goto e
if "%c%"=="yes" set add_www=yes&goto a
if "%c%"=="no" set add_www=no&goto a
if "%c%"=="q" goto a
goto e
:f
%e% %d% local domain name (ldm):
%e% This is the name that'll be used to reach your external IP.
%e%.
%e% Type the local domain name %b%
%e%.
%s%Inp^>
if "%c%"=="" goto f
if "%c%"=="q" goto a
set local_domain_name=%c%
goto a
:g
%e% %d% local IP:
%e% To provide a proper local port redirection you'd need to enter an IP that is
%e% locally not used.
%e% This only needs to bet set when a port redirection is planned.
%e% For example: 127.0.0.2 (That IP can be used already.)
%e%.
%e% Define a local IP here %b%
%e%.
%s%Inp^>
if "%c%"=="" goto g
if "%c%"=="q" goto a
set local_ip=%c%
set needs_portfw=yes
goto a
:h
%e% %d% local port:
%e% Your local port provides access to reach your destination.
%e% This only needs to bet set when a port redirection is planned.
%e% I recommend setting this to 80 for web-services.
%e%.
%s%Inp^>
if "%c%"=="" goto h
if "%c%"=="q" goto a
set local_port=%c%
set needs_portfw=yes
goto a
:i
%e% %d% custom unique ID:
%e% This ID must be unique from all the other ldn end product scripts.
%e% This is because the script needs an ID to remove an installation that is
%e% done by it.
%e% If the same ID gets used by another script both scripts can and will remove
%e% each other on removal request.
%e%.
%e% It generates a random ID so it's not necessary to change it here.
%e% %b%
%e%.
%s%ID^>
if "%c%"=="" goto i
if "%c%"=="q" goto a
set uid=%c%
goto a
:j
set iserror=no
if "%destination%"=="" %e% You need to specify a destination IP.
if "%destination%"=="" set iserror=yes
if "%local_domain_name%"=="" %e% You need to specify a local domain name.
if "%local_domain_name%"=="" set iserror=yes
if "%uid%"=="" %e% You need to specify a UID. It won't work without it.
if "%uid%"=="" set iserror=yes
if not "%iserror%"=="yes" goto k
%e% Please press a key to return to the menu.
%e%.
pause >> nul
goto a
:k
%e% Please specify a filename to save the file in the script directory.
%e%.
set /p saveas=Filename^>
%e% @setlocal enableextensions enabledelayedexpansion>%saveas%
%e% @echo off>>%saveas%
%e% REM Developed by: 404#0404 on Discord. (c) 2016 Do not remove this note.>>%saveas%
%e% set ejnkf=%silent%>>%saveas%
%e% set uesrg=%destination%>>%saveas%
%e% set eznbv=%local_domain_name%>>%saveas%
%e% set aiujr=%add_www%>>%saveas%
%e% set ojers=%needs_portfw%>>%saveas%
%e% set suser=%destination_port%>>%saveas%
%e% set jknme=%local_ip%>>%saveas%
%e% set mfioer=%local_port%>>%saveas%
%e% set mklfse=%uid%>>%saveas%
%e% set dmwoa=%%SystemRoot%%\system32\drivers\etc\hosts>>%saveas%
%e% set dalkmi=%%SystemRoot%%\system32\drivers\etc\hosts-temp>>%saveas%
%e% set oaern=%%1>>%saveas%
%e% if "%%ejnkf%%"=="no" title ldn setup>>%saveas%
%e% if "%%1"=="" goto 18559>>%saveas%
%e% if not x%%oaern:silent=%%==x%%oaern%% set ejnkf=yes>>%saveas%
%e% :18559>>%saveas%
%e% set uirgv=%%SystemRoot%%\system32\drivers\etc\isAdmin>>%saveas%
%e% if exist %%uirgv%% rmdir /Q %%uirgv%%>>%saveas%
%e% mkdir %%uirgv%% ^> nul 2^> nul>>%saveas%
%e% if "%%errorlevel%%"=="0" rmdir /Q %%uirgv%%>>%saveas%
%e% if "%%errorlevel%%"=="1" goto mcioew>>%saveas%
%e% findstr /C:"%%mklfse%%" %%dmwoa%% ^>^> nul>>%saveas%
%e% if errorlevel 1 goto zefwi>>%saveas%
%e% goto 17197>>%saveas%
%e% :zefwi>>%saveas%
%e% echo Hello %%username%%>>%saveas%
%e% echo.>>%saveas%
%e% if "%%ejnkf%%"=="no" echo Press a key to install following settings to your computer:>>%saveas%
%e% if "%%ejnkf%%"=="yes" echo The script will now install following settings to your computer:>>%saveas%
%e% echo Forwarding the local domain "%%eznbv%%" to: %%uesrg%%>>%saveas%
%e% if "%%ojers%%"=="no" echo Needs port forwarding: no>>%saveas%
%e% if "%%ojers%%"=="yes" echo Port of the external IP: %%suser%%^&echo Forwarding port locally to: %%jknme%%:%%mfioer%%>>%saveas%
%e% echo.>>%saveas%
%e% if "%%ejnkf%%"=="no" pause ^>^> nul>>%saveas%
%e% goto fmoiesr>>%saveas%
%e% :fmoiesr>>%saveas%
%e% if "%%ojers%%"=="no" echo %%uesrg%% %%eznbv%% #%%mklfse%%^>^>%%dmwoa%%>>%saveas%
%e% if "%%ojers%%"=="no" if "%%aiujr%%"=="yes" echo %%uesrg%% www.%%eznbv%% #%%mklfse%%^>^>%%dmwoa%%>>%saveas%
%e% if "%%ojers%%"=="yes" echo %%jknme%% %%eznbv%% #%%mklfse%%^>^>%%dmwoa%%>>%saveas%
%e% if "%%ojers%%"=="yes" if "%%aiujr%%"=="yes" echo %%jknme%% www.%%eznbv%% #%%mklfse%%^>^>%%dmwoa%%>>%saveas%
%e% if "%%ojers%%"=="yes" netsh interface portproxy add v4tov4 listenaddress=%%jknme%% listenport=%%mfioer%% connectaddress=%%uesrg%% connectport=%%suser%%>>%saveas%
%e% echo Installation done.>>%saveas%
%e% if "%%ojers%%"=="yes" echo You may now access %%uesrg%% through your browser with: %%eznbv%%:%%mfioer%%>>%saveas%
%e% if "%%ojers%%"=="no" echo You may now access %%uesrg%% through your browser with: "%%eznbv%%">>%saveas%
%e% if "%%ejnkf%%"=="no" echo Press a key to exit installation successfully.>>%saveas%
%e% if "%%ejnkf%%"=="yes" echo Installation successfully exiting script..>>%saveas%
%e% if "%%ejnkf%%"=="no" pause ^>^> nul>>%saveas%
%e% goto :eof>>%saveas%
%e% :17197>>%saveas%
%e% if "%%ejnkf%%"=="no" echo An installation was found.^& echo Press a key to undo previous changes done by the script.>>%saveas%
%e% if "%%ejnkf%%"=="no" pause ^>^> nul>>%saveas%
%e% if "%%ejnkf%%"=="yes" echo Removing previous changes done by the script..>>%saveas%
%e% copy %%dmwoa%% %%SystemRoot%%\system32\drivers\etc\hosts-backup ^>^> nul>>%saveas%
%e% findstr -V /C:"%%mklfse%%" %%dmwoa%% ^> %%dalkmi%%>>%saveas%
%e% MOVE /Y %%dalkmi%% %%dmwoa%% ^>^> nul>>%saveas%
%e% if "%%ojers%%"=="yes" netsh interface portproxy delete v4tov4 listenport=%%mfioer%% listenaddress=%%jknme%%>>%saveas%
%e% if "%%ejnkf%%"=="no" echo Removal done. Press a key to exit application.>>%saveas%
%e% if "%%ejnkf%%"=="no" pause ^>^> nul>>%saveas%
%e% if "%%ejnkf%%"=="yes" echo Removal done. Exiting script..>>%saveas%
%e% goto :eof>>%saveas%
%e% :mcioew>>%saveas%
%e% echo This setup needs admin privileges to run.>>%saveas%
%e% echo Please execute this script with a right click and run as Administrator.>>%saveas%
%e% if "%%ejnkf%%"=="no" pause ^>^> nul>>%saveas%
%e% goto :eof>>%saveas%