@Echo OFF
 
 
 
REM =================
REM Console Settings:
REM =================
 
Title Folders2List - By Elektro
Mode Con Cols=150 Lines=50
CHCP 1252 1>NUL & REM Windows-1252, Spanish-Latin.
 
 
 
REM =====
REM Info:
REM =====
 
Echo+ 
Echo  ------------------------------------------------------------------------------------------------------------------------------------
Echo  This script writes a textfile containing the relative paths of the folder structure at the working directory and it's subdirectories
Echo  ------------------------------------------------------------------------------------------------------------------------------------
Echo+ 
 
 
 
REM ====================
REM User defined values:
REM ====================
 
REM This value indicates the directory where to list it's folder structure.
Set "WorkingDir=%CD%"
 
REM This value indicates the resulting folder list.
Set "OutputFile=%CD%\Folders.txt"
 
REM This value indicates how the hidden folders are threated when listing the folder structure.
REM  True = List folders and also folders with the 'hidden' attribute.
REM False = List only normal folders without the 'hidden' attribute.
Set "IncludeHiddenFolders=True"
 
 
 
REM =====
REM Main:
REM =====
 
:: Display starting info.
Echo [i] Working Directory...: %WorkingDir%
Echo [i] Output file.........: %OutputFile%
Echo [i] Include Hidden Files: %IncludeHiddenFolders%
Echo+
 
:: Call Methods.
Call :CheckErrors
Call :StartTimer
Call :ListFolders "%IncludeHiddenFolders%"
Call :StopTimer
 
:: Finish.
Echo [i] Done!           | MORE
Echo [i] Listed Folders: %FolderCount% folders.
Echo [i] Elapsed Time..: %ElapsedTime%
Echo+
Pause&Exit
 
 
 
REM ========
REM Methods:
REM ========
 
:StartTimer
Set "StartingDate=%Date%"
Set "StarttingTime=%Time:~0,-3%"
Goto :EOF
 
 
:StopTimer
(
 Echo Minutes = DateDiff^("n", "%StartingDate% %StarttingTime%", Now^)
 Echo WScript.Echo Minutes ^& " Minutes"
)>"%TEMP%\%~n0 MinuteDiff.vbs"
 
For /F "Tokens=*" %%# In (
	'Cscript.exe /Nologo "%TEMP%\%~n0 MinuteDiff.vbs"'
) Do (
	Set "ElapsedTime=%%#"
)
 
Goto:EOF
 
 
:ListFolders
Echo [+] Collecting folders, this operation could take some minutes long, please wait...
If /I "%~1" EQU "True"  (Call :ListHiddenFolders)
If /I "%~1" EQU "False" (Call :ListNormalFolders)
Goto:EOF
 
 
:ListNormalFolders
(FOR /D /R "%WorkingDir%" %%# in ("*") DO (
	 Set "Folder=%%~f#"
	 Call Echo %%Folder:%WorkingDir%=.%%
	 Set /A "FolderCount+=1"
))>"%OutputFile%"
Goto:EOF
 
 
:ListHiddenFolders
(FOR /F "Tokens=* Delims=" %%# in ('Dir /B /S /AD "%WorkingDir%\*"') DO (
	 Set "Folder=%%~f#"
	 Call Echo %%Folder:%WorkingDir%=.%%
	 Set /A "FolderCount+=1"
))>"%OutputFile%"
Goto:EOF
 
 
 
REM ===============
REM Error Controls:
REM ===============
 
:CheckErrors
:: 'IncludeHiddenFolders' Value check.
If /I "%IncludeHiddenFolders%" NEQ "True" If /I "%IncludeHiddenFolders%" NEQ "False" (
	Echo [x] Error parsing parameter 'IncludeHiddenFolders', 
	Echo     value '%IncludeHiddenFolders%' is not a Boolean value.
	Pause&Exit
)
 
Goto:EOF

@Echo OFF
 
 
 
REM =================
REM Console Settings:
REM =================
 
Title Files2List - By Elektro
Mode Con Cols=150 Lines=50
CHCP 1252 1>NUL & REM Windows-1252, Spanish-Latin.
 
 
 
REM =====
REM Info:
REM =====
 
Echo+ 
Echo  ----------------------------------------------------------------------------------------------------------------------------------
Echo  This script writes a textfile containing the relative paths of the file structure at the working directory and it's subdirectories
Echo  ----------------------------------------------------------------------------------------------------------------------------------
Echo+ 
 
 
 
REM ====================
REM User defined values:
REM ====================
 
REM This value indicates the directory where to list it's file structure.
Set "WorkingDir=%CD%"
 
REM This value indicates the resulting file list.
Set "OutputFile=%CD%\Files.txt"
 
REM This value indicates the ubication of the logfile that will record info.
Set "Logfile=%CD%\%~n0.log"
 
REM This value indicates the File-Extensions to exclude during the process. 
REM ( Use an ';' delimiter to separate multiple extensions )
Set "ExcludeExts=.bat;.cmd"
 
REM This value indicates the filenames to exclude during the process.
REM ( Use an ';' delimiter to separate multiple filenames )
Set "ExcludeNames=%~nx0"
 
REM This value indicates the files to exclude during the process.
REM ( Use an ';' delimiter to separate multiple files )
Set "ExcludeFiles=%OutputFile%;%Logfile%"
 
REM This value indicates how the hidden files are threated when listing the file structure.
REM  True = List files and also files with the 'hidden' attribute.
REM False = List only normal files without the 'hidden' attribute.
Set "IncludeHiddenFiles=True"
 
 
 
REM =====
REM Main:
REM =====
 
:: Call Methods.
Call :CheckErrors
Call :CreateLog
Call :StartTimer
Call :ListFiles "%IncludeHiddenFiles%"
Call :StopTimer
Call :EndLog
Pause&Exit
 
 
 
REM ========
REM Methods:
REM ========
 
:CreateLog
:: Create the Script Logfile and record starting info on it.
FSutil.exe File CreateNew "%LogFile%" "0" 1>NUL
(
Echo+
Echo       Files 2 List
Echo =========================
Echo   %DATE% ^| %TIME:~0,-3%
Echo /\/\/\/\/\/\/\/\/\/\/\/\/
Echo+
Echo [i] Working Directory...: %WorkingDir%
Echo [i] Include Hidden Files: %IncludeHiddenFiles%
Echo+
Echo [i] Excluded Extensions.: %ExcludeExts%
Echo [i] Excluded Filenames..: %ExcludeNames%
Echo [i] Excluded Files......: %ExcludeFiles%
Echo+
Echo [i] Output file.........: %OutputFile%
Echo [i] Log file............: %LogFile%
Echo+
Echo =========================
)>"%LogFile%"
 
:: Display starting log info.
Type "%LogFile%" | MORE
 
:: Continue writting log.
(
Echo+
Echo Excluded Files:
Echo ===============
Echo+
)>>"%LogFile%"
 
Goto:EOF
 
 
:EndLog
(
Echo+
Echo [i] Done!           | MORE
Echo [i] Listed Files..: %ListedFileCount% files.
Echo [i] Excluded Files: %ExcludedFileCount% files.
Echo [i] Elapsed Time..: %ElapsedTime%
Echo+
)>>"%LogFile%"
 
:: Display ending information.
CLS
Type "%LogFile%"
Goto:EOF
 
 
:StartTimer
Set "StartingDate=%Date%"
Set "StarttingTime=%Time:~0,-3%"
Goto :EOF
 
 
:StopTimer
(
 Echo Minutes = DateDiff^("n", "%StartingDate% %StarttingTime%", Now^)
 Echo WScript.Echo Minutes ^& " Minutes"
)>"%TEMP%\%~n0 MinuteDiff.vbs"
 
For /F "Tokens=*" %%# In (
	'Cscript.exe /Nologo "%TEMP%\%~n0 MinuteDiff.vbs"'
) Do (
	Set "ElapsedTime=%%#"
)
 
Goto:EOF
 
 
:ListFiles
Echo [+] Collecting files, this operation could take some minutes long, please wait...
If /I "%~1" EQU "True"  (Call :ListHiddenFiles)
If /I "%~1" EQU "False" (Call :ListNormalFiles)
Goto:EOF
 
 
:ListNormalFiles
(FOR /R "%WorkingDir%" %%# in ("*") DO (
 
	Set "Exclude="
 
	If Defined ExcludeExts (
		(
			Echo "%ExcludeExts%" | Find.exe /I "%%~x#" 1>NUL 2>&1
		) && (
			Call Set "Exclude=True"
		)
	)
 
	If Defined ExcludeNames (
		(
			Echo "%ExcludeNames%" | Find.exe /I "%%~nx#" 1>NUL 2>&1
		) && (
			Call Set "Exclude=True"
		)
	)
 
	If Defined ExcludeFiles (
		(
			Echo "%ExcludeFiles%" | Find.exe /I "%%~f#" 1>NUL 2>&1
		) && (
			Call Set "Exclude=True"
		)
	)
 
	If Not Defined Exclude (
		Set "File=%%~f#"
		Call Echo %%File:%WorkingDir%=.%%
		Set /A "ListedFileCount+=1"
	) Else (
		Set "File=%%~f#"
		Call Echo %%File:%WorkingDir%=.%%>>"%LogFile%"
		Set /A "ExcludedFileCount+=1"
	)
 
))>"%OutputFile%"
Goto :EOF
 
 
:ListHiddenFiles
(FOR /F "Tokens=* Delims=" %%# in ('Dir /B /S /A-D "%WorkingDir%\*"') DO (
 
	Set "Exclude="
 
	If Defined ExcludeExts (
		(
			Echo "%ExcludeExts%" | Find.exe /I "%%~x#" 1>NUL 2>&1
		) && (
			Call Set "Exclude=True"
		)
	)
 
	If Defined ExcludeNames (
		(
			Echo "%ExcludeNames%" | Find.exe /I "%%~nx#" 1>NUL 2>&1
		) && (
			Call Set "Exclude=True"
		)
	)
 
	If Defined ExcludeFiles (
		(
			Echo "%ExcludeFiles%" | Find.exe /I "%%~f#" 1>NUL 2>&1
		) && (
			Call Set "Exclude=True"
		)
	)
 
	If Not Defined Exclude (
		Set "File=%%~f#"
		Call Echo %%File:%WorkingDir%=.%%
		Set /A "ListedFileCount+=1"
	) Else (
		Set "File=%%~f#"
		Call Echo %%File:%WorkingDir%=.%%>>"%LogFile%"
		Set /A "ExcludedFileCount+=1"
	)
 
))>"%OutputFile%"
Goto:EOF
 
 
 
REM ===============
REM Error Controls:
REM ===============
 
:CheckErrors
:: 'IncludeHiddenFiles' Value check.
If /I "%IncludeHiddenFiles%" NEQ "True" If /I "%IncludeHiddenFiles%" NEQ "False" (
	Echo [x] Error parsing parameter 'IncludeHiddenFiles', 
	Echo     value '%IncludeHiddenFiles%' is not a Boolean value.
	Pause&Exit
)
 
Goto:EOF

@Echo OFF & Title Renombrar archivo Excel con fecha actual y nombre del dia
 
Set "File=%CD%\Cuenta.xls"
Call :DateRename "%File%"
 
Pause&Exit /B 0
 
:DateRename
Set "Today=%Date:~0,2%-%Date:~3,2%-%Date:~6,4%"
 
(
 Call Echo WScript.Echo WeekDayName^(Weekday^("%%Today%%"^)^)
)>"%TEMP%\GetDayName.vbs"
 
For /F "Tokens=*" %%# In (
	'CScript.exe /NoLogo "%TEMP%\GetDayName.vbs"'
) Do (
	Set "DayName=%%#"
	Del /Q "%TEMP%\GetDayName.vbs" 1>NUL
)
 
REM "Nombre.ext" > "DD-MM-YYYY NombreDelDía.ext"
(Rename "%~1" "%Today% %DayName%%~x1") & (Goto :EOF)

Ruta relativa del archivo que va a ser reemplazado;Ruta relativao absoluta del archivo que se copiará

Ruta relativa del recurso a modificar;Nombre del recurso;Ruta del recurso modificado

Sources\Background.bmp;.\Resources\Background.bmp
Windows\System32\Setup.bmp;.\Resources\Setup.bmp

Sources\spwizimg.dll;405;.\Resources\405.bmp
Sources\spwizimg.dll;407;.\Resources\407.bmp
Sources\spwizimg.dll;408;.\Resources\408.bmp
Sources\spwizimg.dll;516;.\Resources\516.bmp
Sources\spwizimg.dll;517;.\Resources\517.bmp

Sources\w32uiimg.dll;207;.\Resources\207.bmp

@Echo Off & Title WIM Resource Replacer - By Elektro
Mode Con Cols=150 Lines=50
 
 
 
REM ======
REM About:
REM ======
 
:: Header Info.
Echo+ 
Echo -----------------------------------------------------------------------------------------
Echo This script mounts a Windows Image ^(WIM^) to replace image resources of a resource file.
Echo -----------------------------------------------------------------------------------------
Echo+ 
 
 
 
REM ====================
REM User defined values:
REM ====================
 
:: User defined values.
REM This value indicates whether the Windows Image should be mounted.
REM True  = 'DISM' will try to mount the 'WIM' image.
REM False = 'DISM' will not try to mount the WIM image.
REM Set this value to 'FALSE' if the 'WIM' image is already mounted in the specified mount directory,
REM Otherwise, keep it as 'TRUE'.
Set "MountImage=True"
 
REM This value indicates whether the Windows Image should be unmounted at the end.
REM True  = 'DISM' will try to unmount the 'WIM' image.
REM False = 'DISM' will not try to unmount the WIM image.
REM Set this value to 'FALSE' if you want to keep the image mounted to make other changes,
REM Otherwise, keep it as 'TRUE'.
Set "UnmountImage=True"
 
REM This value indicates the 'WIM' image to be mounted.
Set "WindowsImage=%UserProfile%\Desktop\win 8 .1\win\sources\Boot.wim"
 
REM This value indicates the Image Index of the 'WIM' image.
Set "ImageIndex=2"
 
REM This value indicates the directory where to mount the 'WIM' image.
Set "MountDir=%HomeDrive%\WinBootMount"
 
REM This value indicates the location of Anolis Resourcer 'Anolis.exe' file.
Set "Anolis=%CD%\Tools\Anolis.exe"
 
REM This value indicates the textfile that contains the Recource files to replace.
Set "ResourceList=%CD%\Resources.txt"
 
REM This value indicates the location of a custom 'DISM.exe' file if needed.
REM Default location:
REM "%SystemRoot%\System32\Dism.exe"
Set "Dism=%CD%\Tools\Dism\Dism.exe"
 
REM This value indicates the location of the logfile that will record 'DISM' exceptions.
Set "DismLogfile=%UserProfile%\Desktop\Dism.log"
 
REM This value indicates the logging-level of the 'DISM' process.
REM 1 = Errors only
REM 2 = Errors and warnings
REM 3 = Errors, warnings, and informational
REM 4 = All of the information listed previously, plus debug output 
Set /A "DismLogLevel=2"
 
 
 
REM =====
REM Main:
REM =====
 
Call :CheckErrors
Call :CreateLog
Call :CreateMountDir
Call :Mount
CLS
Call :ParseResources
Call :Unmount
 
Echo+
Echo [i] Done!
Pause&Exit
 
 
 
REM ========
REM Methods:
REM ========
 
:CreateLog
:: Create the 'DISM' logfile with 'ANSI' encoding, 
:: this is necessary to record a non-default 'DISM' loglevel such as '1' or '2'.
Echo+ >"%DismLogfile%"
 
:: Record initial info.
(
Echo+
Echo Automated DISM processing:
Echo ==========================
Echo+
Echo WIM Resource Replacer
Echo+ 
Echo [i] Date: %DATE% - %TIME:~0,2%:%TIME:~3,2%:%TIME:~6,2%
Echo+
Echo [i] Mount Image?...: %MountImage%
Echo [i] Unmount Image?.: %UnmountImage%
Echo+
Echo [i] Windows Image..: %WindowsImage%
Echo [i] Image Index....: %ImageIndex%
Echo [i] Mount Directory: %MountDir%
Echo+
Echo [i] Dism Path......: %Dism%
Echo [i] Dism Logfile...: %DismLogfile%
Echo [i] Dism Log Level.: %DismLogLevel%
Echo+
Echo [i] Anolis Path....: %Anolis%
Echo+
Echo ===========================
)>"%DismLogfile%"
 
:: Display initial info.
Type "%DismLogfile%"
Goto:EOF
 
:CreateMountDir
:: Create the mount directory.
(
If Not Exist "%MountDir%" If /I "%MountImage%" EQU "True" (
	MkDir "%MountDir%" 2>NUL
)
) || (
	Echo+
	Echo [X] Error trying to create the directory "%MountDir%" to mount the Windows Image.
	Echo [i] Ensure that you have Admin rights to create the directory.
	Echo [i] Ensure that the directory name does not contains illegal characters.
	Echo+
	Pause&Exit
)
Goto:EOF
 
:Mount
:: Mounts the Windows Image into the mount directory.
If /I "%MountImage%" EQU "True" (
 
	"%Dism%" /Mount-Image /ImageFile:"%WindowsImage%" /Index:"%ImageIndex%" /MountDir:"%MountDir%" /English /LogPath:"%DismLogfile%" /LogLevel:"%DismLogLevel%" || (
		Echo+
		Echo [X] Error mounting the Image Index "%ImageIndex%" in "%MountDir%"
		Echo [i] Ensure that the Image Index exist.
		Echo [i] Ensure that you have Admin rights to write inside the directory.
		Echo [i] Ensure that the directory is not already mounted.
		Echo [i] Ensure that the directory is fully empty.
		Echo+
		REM Try to unmount the failed image and discard changes.
		If /I "%UnmountImage%" EQU "True" (
			"%Dism%" /Unmount-WIM /Discard /MountDir:"%MountDir%"
		)
		Exit
	)
 
)
Goto:EOF
 
:ParseResources
For /F "UseBackQ Tokens=1,2,* Delims=;" %%a In ("Resources.txt") Do (
 
	If /I "%%~xa" EQU ".dll" (Call :ReplaceResource "%MountDir%\%%~a" "%%~b" "%%~c")
	If /I "%%~xa" NEQ ".dll" (Call :CopyFile        "%MountDir%\%%~a" "%%~b")
 
)
Goto:EOF
 
:Unmount
:: Unmount the Windows Image commiting changes.
If /I "%UnmountImage%" EQU "True" (
	"%Dism%" /Unmount-WIM /Commit /MountDir:"%MountDir%" /English /LogPath:"%DismLogfile%" /LogLevel:"%DismLogLevel%"
)
Goto:EOF
 
:TakeOwn
Takeown.exe /F "%~f1" 1>NUL
ICacls.exe "%~f1" /Grant "%UserName%":"F"  1>NUL
Goto:EOF
 
:CopyFile
Echo [+] Copying "%~2" to "%~1"
If Not Exist "%~2" (
	Echo [X] Can't locate the input file "%~2". | MORE
	Goto:EOF
)
Call :TakeOwn  "%~f1"
Copy /Y "%~f2" "%~f1" 1>NUL
Goto:EOF
 
:ReplaceResource
Echo [+] Replacing Resource Name "%~2" with "%~3" in resource file "%~f1"
If Not Exist "%~1" (
	Echo [X] Can't locate the resource file to open "%~1". | MORE
	Goto:EOF
)
If Not Exist "%~3" (
	Echo [X] Can't locate the resource to copy "%~3". | MORE
	Goto:EOF
)
 
Call :TakeOwn "%~1"
 
If /I "%~x3" EQU ".bmp" (
	Start /W "Anolis" "%Anolis%" -op:upd -src:"%~f1" -type:Bitmap -name:"%~2" -lang:1033 -file:"%~f3")
)
If /I "%~x3" EQU ".ico" (
	Start /W "Anolis" "%Anolis%" -op:upd -src:"%~f1" -type:Icon -name:"%~2" -lang:1033 -file:"%~f3")
)
 
Goto:EOF
 
 
REM ====================
REM File Error Controls:
REM ====================
 
:CheckErrors
:: WIM File Error-Check.
If /I "MountImage" EQU "True" If Not Exist "%WindowsImage%" (
	Echo [X] Windows Image not found in: "%WindowsImage%" | MORE
	Pause&Exit
)
 
:: ResourceList File Error-Check.
If Not Exist "%ResourceList%" (
	Echo [X] Resource-List file not found in: "%ResourceList%" | MORE
	Pause&Exit
)
 
:: DISM File Error-Check.
If Not Exist "%DISM%" (
	Echo [X] DISM process not found in: "%DISM%" | MORE
	Pause&Exit
)
 
:: Anolis Resourcer File Error-Check.
If Not Exist "%Anolis%" (
	Echo [X] Anolis process not found in: "%Anolis%" | MORE
	Pause&Exit
)
 
Goto:EOF