Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @echo off
- REM Autor: John Llewelyn
- REM Requiere los programas: PowerISO v9.6 32BIT, 7z v9.20 Extra, Wget v1.19.1 32BIT.
- REM Este Batch Script Descarga el Disco de Instalacion de WINDOWS XP + Actualizaciones + Perzonalizacion de LLEWESOFT.
- REM Ajustes Generales
- REM Nombre de Carpetas,Crear y Rutas de Directorios
- set "drive=R"
- set "ProjectName=LLEWESOFT"
- set "HomeDir=%drive%:\%ProjectName%"
- set "BinFolder=BIN"
- set "bin=%drive%:\%ProjectName%\%BinFolder%"
- set "CatalogFolder=Catalogo"
- set "CatalogDir=%drive%:\%ProjectName%\%CatalogFolder%"
- mkdir "%CatalogDir%" >nul
- set "DownloadFolder=Descargas"
- set "DownDir=%drive%:\%ProjectName%\%DownloadFolder%"
- mkdir "%DownDir%" >nul
- set "WinFolder=WindowsXP"
- set "WinDir=%drive%:\%ProjectName%\%DownloadFolder%\%WinFolder%"
- mkdir "%WinDir%" >nul
- set "UpdatesFolder=Actualizaciones"
- set "UpdatesDir=%drive%:\%ProjectName%\%DownloadFolder%\%UpdatesFolder%"
- mkdir "%UpdatesDir%" >nul
- set "OptionalFolder=Opcionales"
- set "OptionalDir=%drive%:\%ProjectName%\%DownloadFolder%\%OptionalFolder%"
- mkdir "%OptionalDir%" >nul
- set "Dotnetfx11Folder=Dotnetfx11"
- set "Dotnetfx11Dir=%drive%:\%ProjectName%\%DownloadFolder%\%Dotnetfx11Folder%"
- mkdir "%Dotnetfx11Dir%" >nul
- set "Dotnetfx35Folder=Dotnetfx35"
- set "Dotnetfx35Dir=%drive%:\%ProjectName%\%DownloadFolder%\%Dotnetfx35Folder%"
- mkdir "%Dotnetfx35Dir%" >nul
- set "Dotnetfx40Folder=Dotnetfx40"
- set "Dotnetfx40Dir=%drive%:\%ProjectName%\%DownloadFolder%\%Dotnetfx40Folder%"
- mkdir "%Dotnetfx40Dir%" >nul
- set "FeaturesFolder=Caracteristicas"
- set "FeaturesDir=%drive%:\%ProjectName%\%DownloadFolder%\%FeaturesFolder%"
- mkdir "%FeaturesDir%" >nul
- set "ProgramFolder=Programas"
- set "ProgramDir=%drive%:\%ProjectName%\%DownloadFolder%\%ProgramFolder%"
- mkdir "%ProgramDir%" >nul
- set "CommandsFolder=Comandos"
- set "CommandsDir=%drive%:\%ProjectName%\%CommandsFolder%"
- mkdir "%CommandsDir%" >nul
- set "ProjectFolder=Proyecto"
- set "ProyectDir=%drive%:\%ProjectName%\%ProjectFolder%"
- mkdir "%ProjectDir%" >nul
- set "DvdOneFolder=DVD1"
- set "DvdOneDir=%drive%:\%ProjectName%\%ProjectFolder%\%DvdOneFolder%"
- mkdir "%DvdOneDir%" >nul
- set "DvdTwoFolder=DVD2"
- set "DvdTwoDir=%drive%:\%ProjectName%\%ProjectFolder%\%DvdTwoFolder%"
- mkdir "%DvdTwoDir%" >nul
- set "DvdRhreeFolder=DVD3"
- set "DvdRhreeDir=%drive%:\%ProjectName%\%ProjectFolder%\%DvdRhreeFolder%"
- mkdir "%DvdRhreeDir%" >nul
- set "SFXFolder=SFX"
- set "SFXDir=%drive%:\%ProjectName%\%SFXFolder%"
- mkdir "%SFXDir%" >nul
- set "SrcFolder=Origen"
- set "SrcDir=%drive%:\%ProjectName%\%SFXFolder%\%SrcFolder%"
- mkdir "%SrcDir%" >nul
- set "DstFolder=Destino"
- set "DstDir=%drive%:\%ProjectName%\%SFXFolder%\%DstFolder%"
- mkdir "%DstDir%" >nul
- set "InstallerFolder=Instaladores"
- set "InstallerDir=%drive%:\%ProjectName%\%SFXFolder%\%InstallerFolder%"
- mkdir "%InstallerDir%" >nul
- set "WPIFolder=WPI"
- set "wpi=%drive%:\%ProjectName%\%ProjectFolder%\%DvdOneFolder%\%WPIFolder%"
- set "piso=%bin%\PowerISO\piso.exe"
- set "wget=%bin%\wget32\wget.exe"
- set "zip=%bin%\7z\7zr.exe"
- set "sfx=%bin%\7z\7zS.sfx"
- set "config=%DstDir%\config.txt"
- REM Check Programas
- :checkwget
- if exist "%wget%" (
- goto checkzip
- ) else (
- goto nowget
- )
- :checkzip
- if exist "%zip%" (
- goto checkpiso
- ) else (
- goto nozip
- )
- :checkpiso
- if exist "%piso%" (
- goto testinternet
- ) else (
- goto nopoweriso
- )
- :testinternet
- @PING -n 1 www.google.com|find "bytes=" >NUL
- IF NOT ERRORLEVEL 1 goto list
- IF ERRORLEVEL 1 goto testinternet2
- :testinternet2
- @PING -n 3 www.google.com|find "bytes=" >NUL
- IF NOT ERRORLEVEL 1 goto list
- IF ERRORLEVEL 1 goto noconnection
- REM Descarga de Catalogo
- :list
- cls
- echo Descargando Catalogo...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%CatalogDir%" ftp://compucheap.ddns.net/catalog/Windows-XP.txt >nul
- IF NOT ERRORLEVEL 1 goto listupdates
- IF ERRORLEVEL 1 goto nohost
- :listupdates
- cls
- echo Descargando Catalogo...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%CatalogDir%" ftp://compucheap.ddns.net/catalog/Actualizaciones.txt >nul
- IF NOT ERRORLEVEL 1 goto listoptional
- IF ERRORLEVEL 1 goto nohost
- :listoptional
- cls
- echo Descargando Catalogo...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%CatalogDir%" ftp://compucheap.ddns.net/catalog/Opcionales.txt >nul
- IF NOT ERRORLEVEL 1 goto listdonetfxone
- IF ERRORLEVEL 1 goto nohost
- :listdonetfxone
- cls
- echo Descargando Catalogo...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%CatalogDir%" ftp://compucheap.ddns.net/catalog/Dotnetfx11.txt >nul
- IF NOT ERRORLEVEL 1 goto listdonetfthree
- IF ERRORLEVEL 1 goto nohost
- :listdonetfthree
- cls
- echo Descargando Catalogo...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%CatalogDir%" ftp://compucheap.ddns.net/catalog/Dotnetfx35.txt >nul
- IF NOT ERRORLEVEL 1 goto listdonetffour
- IF ERRORLEVEL 1 goto nohost
- :listdonetffour
- cls
- echo Descargando Catalogo...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%CatalogDir%" ftp://compucheap.ddns.net/catalog/Dotnetfx40.txt >nul
- IF NOT ERRORLEVEL 1 goto listintegrate
- IF ERRORLEVEL 1 goto nohost
- :listintegrate
- cls
- echo Descargando Comandos...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%CommandsDir%" ftp://compucheap.ddns.net/commands/integrateupdates.txt >nul
- IF NOT ERRORLEVEL 1 goto customfeatures
- IF ERRORLEVEL 1 goto nohost
- :customfeatures
- cls
- echo Descargando Catalogo Personalizaciones...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%CatalogDir%" ftp://compucheap.ddns.net/catalog/Custom.txt >nul
- IF NOT ERRORLEVEL 1 goto disk
- IF ERRORLEVEL 1 goto nohost
- REM Descarga de ISO, Actualizaciones y Perzonalizacion.
- :disk
- cls
- echo Descargando Disco Windows XP...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%WinDir%" -i %CatalogDir%/Windows-XP.txt >nul
- IF NOT ERRORLEVEL 1 goto dupdates
- IF ERRORLEVEL 1 goto nocatalog
- :dupdates
- cls
- echo Descargando Actualizaciones...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%UpdatesDir%" -i %CatalogDir%/Actualizaciones.txt >nul
- IF NOT ERRORLEVEL 1 goto doptional
- IF ERRORLEVEL 1 goto nocatalog
- :doptional
- cls
- echo Descargando Actualizaciones Opcionales...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%OptionalDir%" -i %CatalogDir%/Opcionales.txt >nul
- IF NOT ERRORLEVEL 1 goto :ddonetfxone
- IF ERRORLEVEL 1 goto nocatalog
- :ddonetfxone
- cls
- echo Descargando NET Framework 1.1...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%Dotnetfx11Dir%" -i %CatalogDir%/Dotnetfx11.txt >nul
- IF NOT ERRORLEVEL 1 goto ddonetfxthree
- IF ERRORLEVEL 1 goto nocatalog
- :ddonetfxthree
- cls
- echo Descargando NET Framework 3.5...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%Dotnetfx35Dir%" -i %CatalogDir%/Dotnetfx35.txt >nul
- IF NOT ERRORLEVEL 1 goto ddonetfxfour
- IF ERRORLEVEL 1 goto nocatalog
- :ddonetfxfour
- cls
- echo Descargando NET Framework 4.0...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%Dotnetfx40Dir%" -i %CatalogDir%/Dotnetfx40.txt >nul
- IF NOT ERRORLEVEL 1 goto dcustomfeatures
- IF ERRORLEVEL 1 goto nocatalog
- :dcustomfeatures
- cls
- echo Descargando Personalizaciones...
- @%wget% -q -c -S -r -nc -nd -nH --directory-prefix="%FeaturesDir%" -i %CatalogDir%/Custom.txt >nul
- IF NOT ERRORLEVEL 1 goto checkproyect
- IF ERRORLEVEL 1 goto nocatalog
- :checkproyect
- IF NOT EXIST "%DvdOneDir%\SETUP.EXE" (
- goto isoextract
- )
- ELSE (
- goto proyectexist
- )
- :isoextract
- cls
- echo Extrayendo el Disco al Proyecto...
- @%piso% extract %WinDir%\es_windows_xp_professional_with_service_pack_3_x86_cd_vl_x14-74009.iso / -od %DvdOneDir% >nul
- IF NOT ERRORLEVEL 1 goto integratefeatures
- IF ERRORLEVEL 1 goto corrupt
- :integratefeatures
- cls
- echo Extrayendo Menu al Proyecto...
- @%zip% x -t7z -y %FeaturesDir%\WPI_v8.7.3.7z -o%DvdOneDir% >nul
- IF NOT ERRORLEVEL 1 goto wpifolder
- IF ERRORLEVEL 1 goto corrupt
- :wpifolder
- @MOVE /Y %DvdOneDir%\WPI_v8.7.3 %wpi% >nul
- IF NOT ERRORLEVEL 1 goto integrateupdates
- IF ERRORLEVEL 1 goto noexistfolder
- :integrateupdates
- cls
- REN %commandsdir%\integrateupdates.txt integrateupdates.bat >nul
- CALL %commandsdir%\integrateupdates.bat
- cls
- goto finish
- REM MENSAGES
- :nowget
- cls
- color 4F
- echo No esta el archivo binario WGET
- echo no se puede continuar.
- @timeout /t 15
- exit
- :nozip
- cls
- color 4F
- echo No esta el archivo binario PISO
- echo no se puede continuar.
- @timeout /t 15
- exit
- :noconnection
- cls
- color 4F
- echo No hay Conexion a Internet
- echo No se puede Continuar.
- @timeout /t 15
- exit
- :nopoweriso
- cls
- color 4F
- echo No Esta el programa PowerISO Instalado en su sistema.
- echo No se puede Continuar.
- @timeout /t 15
- exit
- :nohost
- cls
- color 4F
- echo No hay conexion con el host de catalogo
- echo No se puede Continuar.
- @timeout /t 15
- exit
- :nocatalog
- cls
- color 4F
- echo No esta el archivo catalogo
- echo No se puede Continuar.
- @timeout /t 15
- exit
- :proyectexist
- cls
- color 4F
- echo hay un proyecto existente.
- echo no puedo sobrescribir el actual.
- @timeout /t 15
- exit
- :corrupt
- cls
- echo archivo corrupto
- echo no puedo descomprimir o no se encuentra.
- @timeout /t 15
- exit
- :noexistfolder
- cls
- echo directorio inexistente
- echo no se encuentra el directorio.
- @timeout /t 15
- exit
- :finish
- cls
- echo finalizado.
- @timeout /t 15
- exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement