@echo off
@color 17
@echo +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@echo +    Migración - Utilidad para salvaguarda de el perfil de el usuario +
@echo +          o respaldo en red de el perfil de el usuario               +
@echo +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@echo +              by javcasta - Cibercentro - Dinsa - 2.007              +
@echo +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@echo.
@echo.
@echo ======== Ejecutar esta utilidad desde una sesion de el usuario ========
rem averiguamos sistema
if "%comspec%"=="%windir%\command.com" set elos=w98
if "%OS%"=="Windows_NT" set elos=xp
if "%elos%"=="w98" goto w98
if "%elos%"=="xp" goto xp

:w98
rem averiguamos si existen perfiles
if exist c:\windows\profiles goto conperfiles
if not exist c:\windows\profiles goto sinperfiles

:conperfiles
set ERRORLEVEL=
if "%1"=="" goto ayuda
if "%2"=="" goto ayuda
REM SI NO EXISTE LA CARPETA MIGRACION EN EL SERVIDOR LA CREAMOS
IF NOT EXIST %2\MIGRACION MD %2\MIGRACION
REM SI NO EXISTE LA CARPETA DEL USUARIO EN MIGRACION LA CREAMOS
IF NOT EXIST %2\MIGRACION\%1 MD %2\MIGRACION\%1

xcopy c:\windows\profiles\%1 *.* \\%2\MIGRACION\%1 /S /E /H /C

IF "%ERRORLEVEL%"<>"0" @ECHO REVISA SI HA HABIDO ALGÚN ERROR
pause
goto salir

:sinperfiles
set ERRORLEVEL=
if "%1"=="" goto ayuda
if "%2"=="" goto ayuda
REM SI NO EXISTE LA CARPETA MIGRACION EN EL SERVIDOR LA CREAMOS
IF NOT EXIST %2\MIGRACION MD %2\MIGRACION
REM SI NO EXISTE LA CARPETA DEL USUARIO EN MIGRACION LA CREAMOS
IF NOT EXIST %2\MIGRACION\%1 MD %2\MIGRACION\%1
rem documentos
xcopy c:\misdoc~1\*.* \\%2\MIGRACION\%1 /S /E /H /C
rem escritorio y maletin (si lo hubiera)
xcopy c:\windows\escritorio\*.* \\%2\MIGRACION\%1 /S /E /H /C
IF "%ERRORLEVEL%"=="0" goto sigue1
@ECHO REVISA SI HA HABIDO ALGÚN ERROR
:sigue1
goto salir

:xp
@echo -----------------------------------------------
@echo   Parámetros de la copia de datos del usuario
@echo -----------------------------------------------
@echo.
@echo USUARIO = %USERNAME%
@ECHO SERVIDOR = %LOGONSERVER%
@ECHO PERFIL = %USERPROFILE%
@ECHO Sistema = %OS%
@ECHO.
@ECHO -----------------------------------------------
@ECHO.
@ECHO ¿ Desea iniciar la copia de el perfil del usuario ? (y/n):
set /P op=
if "%op%"=="y" goto copia
if "%op%"=="n" goto SALIR

:copia
set ERRORLEVEL=
REM SI NO EXISTE LA CARPETA MIGRACION EN EL SERVIDOR LA CREAMOS
IF NOT EXIST %LOGONSERVER%\MIGRACION MD %LOGONSERVER%\MIGRACION

REM SI NO EXISTE LA CARPETA DEL USUARIO EN MIGRACION LA CREAMOS

IF NOT EXIST %LOGONSERVER%\MIGRACION\%USERNAME% MD %LOGONSERVER%\MIGRACION\%USERNAME%

REM SI EXISTE LA CARPETA COPIAMOS C:\Documents and Settings\USUARIO
REM s SUBDIRECTORIOS E VACIOS H OCULTOS Y DE SISTEMA C A PESAR DE ERROR

IF EXIST %LOGONSERVER%\MIGRACION\%USERNAME% xcopy "%USERPROFILE%\*.*" %LOGONSERVER%\MIGRACION\%USERNAME% /S /E /H /C

IF "%ERRORLEVEL%"=="0" goto sigue
ECHO REVISA SI HA HABIDO ALGÚN ERROR
:sigue
@echo.
PAUSE
CLS
@echo =============================================
@echo  Migración de el usuario %username% terminada
@echo =============================================

@ECHO RECUERDA EXPORTAR CUENTA DE O.EXPRESS SI LA HUBIERA
@ECHO Y LA LIBRETA DE CONTACTOS Y EL CORREO EN LOCAL
@echo.
@echo.

:ayuda
echo En W98: ejecutar = migrar.bat nombre_usuario nombre_servidor_o_host_en_la_red_donde_se_va_a_respaldar
echo En WXP: ejecutar = migrar.bat
echo.
pause
goto fin

:SALIR
@ECHO RECUERDA EXPORTAR CUENTA DE O.EXPRESS, Microsoft Outlook SI LA/s HUBIERA
@ECHO Y LA LIBRETA DE CONTACTOS Y EL CORREO EN LOCAL
@ECHO Y todo programa o datos que se ejecuten en local y sean corporativos
@echo.
@echo.
@echo Buen laboro y suerte ...
PAUSE

:fin