Un antiguo colega creó este programa para copiar perfiles de usuario, ajustes y favoritos a una unidad de red. Quiero usar este archivo por lotes para copiar archivos a la unidad flash usb en la unidad f
: la unidad de red es iomega-01ddaee @publicdump
.
PC.Evergreen.%computername% Me gustaría cambiar PC.evergreen por otra cosa.
Aquí está el código:
@echo off
título J + J’s Profile Magic v2.1.
9
color 1F
menú de acces
o
menú::men
u
cls
echo.
echo.
echo.
…para que la gente se sienta a gusto.
echo??? J + J’s Profile Magic v2.1.9 ??
echo??? Una producción de PC Evergreen
?
…para que la gente se sienta a gusto.
echo??? ?? ?? El momento de elegir es AHORA! ?? ?? ??
…para que la gente se sienta a gusto.
echo??? ??
echo??? 1 Copiar todo en la unidad externa ??
echo??? ??
echo??? 2 Restaurar todo desde la unidad externa ??
echo??? ??
echo??? I Montar el PC Evergreen NAS en B: ??
echo??? ??
echo??? M Montar una Acción a B: ?
?
echo??? ??
echo??? U Desmontar una acción de B: ?
?
echo??? ??
echo??? Q Quit – I’m done like Dinner?
echo??? ??
…para que la gente se sienta a gusto.
echo.
elecció
n
set /P C=[1,2,I,M,U,Q]?
si «%C%»==»q» va a sali
r
si «%C%»==»Q» va a sali
r
si «%C%»==»m» pasar a montaj
e
si «%C%»==»M» pasar a montaj
e
si «%C%»==»u» ir a desmonta
r
si «%C%»==»U» pasar a desmonta
r
if «%C%»==»i» goto iomega
if «%C%»==»I» goto iomega
if «%C%»==»2» goto restore-all
if «%C%»==»1» goto copy-all
ir a la opción
REM A continuación se muestran las opciones del menú
:copiar-tod
o
set /P source=[Please Enter The Drive Letter to Backup From]
set /P drive=[Please Enter The Drive Letter to Backup To]
llamada :win2000check
:: Esta parte convierte las unidades introducidas a mayúsculas para proporcionar compatibilidad con el script find & replace VB
.
call :stringToUpper %source% de la fuent
e
set source=%STRING% (establecer fuente=%STRING%
)
call :stringToUpper %drive%driv
e
set drive=%STRING%% set drive=%STRING
mkdir %DRIVE%:\PC.Evergreen.%computername%\
si existe «%SOURCE%:\documentos y ajustes*.000» dir «%SOURCE%:\documentos y ajustes\.000» /b /a:d-h /l > %DRIVE%:\PC.Evergreen.%computername%\users-000.txt
si existe «%DRIVE%:\PC.Evergreen.%computername%\users-000.txt» cscript %DRIVE%:\Profile.Backup\replace.vbs «%DRIVE%:\PC.Evergreen.%computername%\users-000.txt» «.000» «
«
si existe «%DRIVE%:\PC.Evergreen.%computername%\users-000.txt» para /F «delims=» %%G in (%DRIVE%:\PC.Evergreen.%computername%\users-000.txt) llamar :user-000 «%%%G».
si existe «%SOURCE%:\documentos y ajustes**.r2» dir «%SOURCE%:\documentos y ajustes\.r2» /b /a:d-h /l > %DRIVE%:\PC.Evergreen.%computername%\users-r2.txt
si existe «%DRIVE%:\PC.Evergreen.%computername%\users-r2.txt» cscript %DRIVE%:\Profile.Backup\replace.vbs «%DRIVE%:\PC.Evergreen.%computername%\users-r2.txt» «.r2» «
«
si existe «%DRIVE%:\PC.Evergreen.%computername%\users-r2.txt» para /F «delims=» %%H in (%DRIVE%:\PC.Evergreen.%computername%\users-r2.txt) llamar :user-r2 «%%H».
Dir «%SOURCE%:\Ndocumentos y ajustes \ /DIFUNDE LA PALABRA-
para /F «delims=» %%I in (%DRIVE%:\PC.Evergreen.%computername%\users.txt) llaman :filecopy «%%I».
llamar :rootcopy
:: La siguiente línea se está volviendo obsoleta
.
:: Crea una copia de Profile Magic en cada copia de seguridad, desordenando el dispositivo de almacenamiento y haciendo que las copias de seguridad tarden más tiempo
.
:: En su lugar, Profile Magic se copia en la carpeta local PC.Evergreen[computer] al restaurarlo.
«Backup» %drive%:\Perfil.Backup%:\PC.Evergreen.%nombre de ordenador%%Perfil.
Copia de seguridad /E /V /Y /exclude:%DRIVE%:\Nperfil Backup\USMT30\logExclude.txt
if %source%==C (
PC Evergreen. %nombre de ordenador% /l:%DRIVE%:|Perfil.Subtítulos en español por aRGENTeaM
echo.
echo Profile Magic ahora liberará la dirección IP de este ordenador en la piscina….
echo.
pararse
ipconfig /release
) si no (
echo.
echo.
echo.
echo.
echo.
echo.
echo.
echo Los archivos se copiaron con éxito.
echo.
echo Tenga en cuenta que NO se ha creado una copia de seguridad de USMT.
echo La copia de seguridad consiste únicamente en archivos de usuario, que deberán ser restaurados manualmente.
echo.
pararse
)
menú de acceso
:restaurar-todo
set /P drive=[Please Enter The Drive Letter to Restore From]
set /P oldcomputername=[Por favor, introduzca el nombre del ordenador antiguo]
%SOURCE% debe ser «C» aquí para que win2000check funcione correctamente
set source=C
llamada :win2000check
si no existe %drive%:\Perfil.copia de seguridad (
echo.
echo.
Falta la carpeta echo Profile Magic. No se puede continuar con la restauración.
echo.
echo Volver al menú principal….
pararse
menú de acceso
)
si existe %drive%:\PC.Evergreen.%oldcomputername%\* (
xcopy %drive%:\PC.Evergreen.%oldcomputername%\* C:\PC.Evergreen.%oldcomputername%\ /E /V
C:\PC.Evergreen.%oldcomputername%Profile./E /V /Y /exclude:%DRIVE%:\Perfil.Backup\USMT30\logExclude.txt
si existe «C:\PC.Evergreen.%oldcomputername%\root,*» xcopy «C:\PC.Evergreen.%oldcomputername%\root,*» «C:\» /E /V /Y
si existe «C:\PC.Evergreen.%oldcomputername%\profile.root\*» xcopy «C:\PC.Evergreen.%oldcomputername%\profile.root\» «C:\N- documentos y configuraciones» /E /V /Y
si existe «C:\PC.Evergreen.%oldcomputername%\Scheduled.Tasks\*» xcopy «C:\PC.Evergreen.%oldcomputername%\Scheduled.Tasks\*» «C:«tareas de las ventanas«. /E /V /Y
REM Esto restaurará el Perfil E7000 y el ID MIS y la configuración de Windows.
si existe «C:\PC.Evergreen.%oldcomputername%\E7000\*» xcopy «C:\PC.Evergreen.%oldcomputername%\E7000\*» «C:winPath» /E /V /Y
si existe «C:\PC.Evergreen.%oldcomputername%\E7000batch\*.bat» xcopy «C:\PC.Evergreen.%oldcomputername%\E7000batch\*.bat» «C:\tdshcm\»
REM Esto restaurará la configuración de Reflection, si existe.
if exist «C:\PC.Evergreen.%oldcomputername%%\Reflection.Settings\*.r1w» xcopy «C:\PC.Evergreen.%oldcomputername%\Reflection.Settings\*.r1w» «C:\Program Files\Reflection\User\» /y
REM Esto restaurará la carpeta Telemed, si existe
si existe «C:\PC.Evergreen.%oldcomputername%\Telemed.Settings\*» xcopy «C:\PC.Evergreen.%oldcomputername%\Telemed.Settings\*» «C: Archivos de programa para Windows» /y
REM Esto restaurará la configuración de UTS Express 2.0, si existe.
si existe «C:\PC.Evergreen.%oldcomputername%\UTS.Express.Settings\ux2cfg.ini» xcopy «C:\PC.Evergreen.%oldcomputername%\UTS.Express.Settings\ux2cfg.ini» «C:\express2\» /y
si existe «C:\PC.Evergreen.%oldcomputername%\UTS.Express.Settings\qpcommon.ini» xcopy «C:\PC.Evergreen.%oldcomputername%\UTS.Express.Settings\qpcommon.ini» «C:\%winPath%» /y
REM Esto restaurará la configuración de TN3270, si existe.
si existe «C:\PC.Evergreen.%oldcomputername%\TN3270.Settings\*» xcopy «C:\PC.Evergreen.%oldcomputername%\TN3270.Settings*» «C: Archivos de programa SDI – SN3270 Plus» /y
REM Esto restaurará la configuración de Airsource Pro, si existe.
si existe «C:\PC.Evergreen.%oldcomputername%\Airsource.Pro.Settings\*» xcopy «C:\PC.Evergreen.%oldcomputername%\Airsource.Pro.Settings*» «C:\N-airpro» /y
REM Esto restaurará los ajustes para PTCT, si existen.
si existe «C:\PC.Evergreen.%oldcomputername%\PTCT.Ajustes*» xcopy «C:\PC.Evergreen.%oldcomputername%\PTCT.Settings\*» «C:\» /y
C:\PC.Evergreen.%oldcomputername%Profile.Backup\USMT30\loadstate.exe C:\PC.Evergreen.%oldcomputername% /c /q /v:13 /i:C:\PC.Evergreen.%oldcomputername%%Profile.Copia de seguridad:C:\PC.Evergreen.%oldcomputername%Profile.Backup\USMT30\exclude.xml /l:C:\LoadState.log /uel:90 /ui:r2\* /lac /lae
dir»c:\Ndocumentos y ajustes» /DIFUNDE LA PALABRA-
para /F «delims= » %%G in (C:\PC.Evergreen.%oldcomputername%\users-new.txt) llamar :filerestore «%%G».
pararse
) si no (
echo.
echo La carpeta %drive%:\PC.Evergreen.%oldcomputername%\ no existe.
echo.
pararse
)
menú de acceso
:montaje
set /P volume=[Please Enter The Share You Wish To Mount To]
iomega:iomega
if %C%==i set volume=\\iomega-01ddaepublicdump
si %C%===Ajusté el volumen==iomega-01ddae vertedero público
echo.
si existe b: (
echo Eliminar cualquier reja existente previamente montada en B:….
uso neto b: /borrar
echo.
)
echo Compartimiento de montaje a B:….
uso neto b: %volumen
pararse
menú de acceso
:desmontar
si existe b: (
echo Borrado B:….
uso neto b: /borrar
) si no (
echo Drive B: no se encontró.
)
pararse
menú de acceso
rem A continuación se muestran las funciones que se pueden llamar
usuario-000
C:
cd \
cd «documentos y ajustes»
ren «%~1» «%~1».old
ren «%~1».000 «%~1»
ir a :eof
:usuario-r2
C:
cd \
cd «documentos y ajustes»
ren «%~1» «%~1».old
ren «%~1».r2 «%~1»
ir a :eof
:copia de filigrana
si existe «%SOURCE%:\NDocuments and Settings{%~1\My Documents\*» xcopy «%SOURCE%:\Documents and Settings\%~1\My Documents » DIFUNDE LA PALABRA- /E /V /Y
si existe «%SOURCE%:\NDocumentos y Ajustes\N~1\Favoritos\*» xcopy «%SOURCE%:\Documentos y Ajustes\%~1~1Favoritos\» » DIFUNDE LA PALABRA- /E /V /Y
si existe «%SOURCE%:\NDocuments and Settings\N~1\Desktop\*» xcopy «%SOURCE%:\Documents and Settings\%~1\Desktop\*». «Unidad de disco duro: PC Evergreen. Nombre del ordenador: USUARIOS» /E /V /Y
Si existe «%SOURCE%:\NDocuments and Settings%~1\Recent*» xcopy «%SOURCE%:\Documents and Settings%~1\Recent » DIFUNDE LA PALABRA-
Si existe «%SOURCE%:\NDocumentos y ajustes localesDatos de aplicaciónMicrosoftOutlook*» xcopy «%SOURCE%:\NDocumentos y ajustes localesDatos de aplicaciónMicrosoftOutlook*». » DIFUNDE LA PALABRA-
if exist «%SOURCE%:\NDocuments and Settings{%~1\Application Data\Microsoft{Outlook}» xcopy «%SOURCE%:\NDocuments and Settings{%~1\Application Data\Microsoft{Outlook\*» » DIFUNDE LA PALABRA- /E /V /Y
Si existe «%SOURCE%:\NDocumentos y Ajustes – Datos de Aplicación – Microsoft – Firmas – XCopy «%SOURCE%:\NDocumentos y Ajustes – Datos de Aplicación – Microsoft – Firmas -» «RDIVE»»Evergreen»»Evergreen»»Nombre de computadora»»Firmas» /E /V /Y
if exist «%SOURCE%:\NDocuments and Settings{%~1\Application Data\Microsoft{Proof}» xcopy «%SOURCE%:\Documents and Settings{%~1\Application Data\Microsoft{Proof}» » DIFUNDE LA PALABRA-
si existe «%SOURCE%:\NDocumentos y ajustes{%~1{Plantillas de aplicación}» xcopy «%SOURCE%:\NDocumentos y ajustes{%~1{Plantillas de aplicación}». «Unidad de disco duro: PC Evergreen. Nombre del ordenador: usuarios. Plantillas.» /E /V /Y
Si existe «%SOURCE%:\NDatos de aplicaciónMicrosoftInternet Explorer \NQuick Launch*» xcopy «%SOURCE%:\Documentos y configuración \1Application Data \MicrosoftInternet Explorer \Quick Launch*» «RUEDA»»Siempre verde»»Nombre de computadora»»Rápido».»Lanzamiento» /E /V /Y
si existe «%SOURCE%:\NDocuments and Settings{%~1{Start Menu\Programs{Startup}.bat» xcopy «%SOURCE%:\\1\Documents and Settings\1\Start Menu\Programs{Startup}Startup.bat» «%DRIVE%:\PC.Evergreen.%computername%%%Users%~1\Startup\». /E /V /Y
si existe «%SOURCE%:\NDocuments and Settings{%~1{Start Menu\Programs{Startup}.cmd» xcopy «%SOURCE%:\NDocuments and Settings{%~1\Start Menu\Programs\Startup» «%DRIVE%:\PC.Evergreen.%computername%%%Users{%~1{Startup}». /E /V /Y
if exist «%SOURCE%:\Documents and Settings\%~1\*.doc» xcopy «%SOURCE%:\Documents and Settings\%~1\*.doc» «%DRIVE%:\PC.Evergreen.%computername%%Users%~1\Other
if exist «%SOURCE%:\Documents and Settings%~1\*.xls» xcopy «%SOURCE%:\Documents and Settings\%~1\.xls» «%DRIVE%:\PC.Evergreen.%computername%%Users%~1\Other
si existe «%SOURCE%:\Documents and Settings\%~1\*.pdf» xcopy «%SOURCE%:\Documents and Settings\%~1\*.pdf» «%DRIVE%:\PC.Evergreen.%computername%%Users%~1\Other
if exist «%SOURCE%:\Documents and Settings\%~1\*.ppt» xcopy «%SOURCE%:\Documents and Settings\%~1\*.ppt» «%DRIVE%:\PC.Evergreen.%computername%%Users%~1\Other
if exist «%SOURCE%:\Documents and Settings%~1\*.jpg» xcopy «%SOURCE%:\Documents and Settings\1~1\.jpg» «%DRIVE%:\PC.Evergreen.%computername%%%Users%~1\Other
Si existe «%SOURCE%:\Documentos y Ajustes xcopy «%SOURCE%:\Documentos y Ajustes xcopy «%SOURCE%:\Documentos y Ajustes \1\*.gif» «%DRIVE%:\PC.Evergreen.%computername%Users%~1\Other
Si existe «%SOURCE%:\Documents and Settings%~1\*.mdb» xcopy «%SOURCE%:\Documents and Settings\1~1\.mdb» «%DRIVE%:\PC.Evergreen.%computername%%%Users%~1\Other
if exist «%SOURCE%:\Documents and Settings\%~1\*.epf» xcopy «%SOURCE%:\Documents and Settings\%~1\*.epf» «%DRIVE%:\PC.Evergreen.%computername%%Users%~1\Other
ir a :eof
Archivo de datos:filerestore
if exist «C:\PC.Evergreen.%oldcomputername%Users%~1\My Documents\*» xcopy «C:\PC.Evergreen.%oldcomputername%%Users%~1\My Documents «C:|Documentos y Ajustes |1Mis Documentos |» /E /V /Y
if exist «C:\PC.Evergreen.%oldcomputername%Users%~1\Favorites\*» xcopy «C:\PC.Evergreen.%oldcomputername%%%Users%~1\Favorites «C:|Documentos y Ajustes |1Favoritos |» /E /V /Y
if exist «C:\PC.Evergreen.%oldcomputername%Users%~1\Desktop\*» xcopy «C:\PC.Evergreen.%oldcomputername%%%Users%~1{Desktop}» «C:|Documentos y Ajustes |1Desktop |» /E /V /Y
if exist «C:\PC.Evergreen.%oldcomputername%Users%~1{Other{*» xcopy «C:\PC.Evergreen.%oldcomputername%%Users%~1{Other}» «C:|Documentos y Ajustes |1Desktop |Otro» /E /V /Y
if exist «C:\PC.Evergreen.%oldcomputername%Users%~1\Recent;*» xcopy «C:\PC.Evergreen.%oldcomputername%%Users%~1\Recent;*» «C:|Documentos y Ajustes |1Reciente |» /E /V /Y
if exist «C:\PC.Evergreen.%oldcomputername%Users%~1{Outlook{*» xcopy «C:\PC.Evergreen.%oldcomputername%%Users%~1{Outlook}» «C:|Documentos y ajustes |1Datos de aplicación |MicrosoftOutlook» /E /V /Y
if exist «C:\PC.Evergreen.%oldcomputername%Users%~1\Archive\N» xcopy «C:\PC.Evergreen.%oldcomputername%%%Users%~1{Archive;*» «C: Documentación y Ajustes – Ajustes Locales – Datos de la Aplicación – Microsoft Outlook» /E /V /Y
if exist «C:\PC.Evergreen.%oldcomputername%Users%~1\Signatures\*» xcopy «C:\PC.Evergreen.%oldcomputername%%%Users%~1\Signatures «C:«Documentos y ajustes«Application Data«MicrosoftSignatures« /E /V /Y
if exist «C:\PC.Evergreen.%oldcomputername%Users%~1\Dictionary\*» xcopy «C:\PC.Evergreen.%oldcomputername%%%Users%~1\Dictionary «C:«Documentos y ajustes«Application Data«Microsoft«Proof? /E /V /Y
if exist «C:\PC.Evergreen.%oldcomputername%Users%~1\Templates\*» xcopy «C:\PC.Evergreen.%oldcomputername%%Users%~1\Templates «C:«Documentos y ajustes«1«Application Data«Microsoft«Templates? /E /V /Y
si existe «C:\PC.Evergreen.%oldcomputername%Users%~1\Quick.Launch{*» xcopy «C:\PC.Evergreen.%oldcomputername%Users%~1\Quick.»Lanzamiento» «C:«Documentos y Ajustes«Application Data«MicrosoftInternet Explorer«. /E /V /Y
if exist «C:\PC.Evergreen.%oldcomputername%Users%~1{Startup}» xcopy «C:\PC.Evergreen.%oldcomputername%%%Users%~1{Startup}» «C:|Documentos y Ajustes |1 Menú de Inicio |Programas «Startup? /E /V /Y
ir a :eof
Raíz:Raíz
si existe «%SOURCE%:\*.doc» xcopy «%SOURCE%:\*.doc» «%DRIVE%:\PC.Evergreen.%computername%\Root\»
si existe «%SOURCE%:\*.xls» xcopy «%SOURCE%:\*.xls» «%DRIVE%:\PC.Evergreen.%computername%\Root\»
si existe «%SOURCE%:\*.pdf» xcopy «%SOURCE%:\*.pdf» «%DRIVE%:\PC.Evergreen.%computername%\Root\»
si existe «%SOURCE%:\*.ppt» xcopy «%SOURCE%:\*.ppt» «%DRIVE%:\PC.Evergreen.%computername%\Root\»
Si existe «%SOURCE%:\*.jpg» xcopy «%SOURCE%:\*.jpg» «%DRIVE%:\PC.Evergreen.%computername%\Root\»
Si existe «%SOURCE%:\*.gif» xcopy «%SOURCE%:\*.gif» «%DRIVE%:\PC.Evergreen.%computername%\Root\»
Si existe «%SOURCE%:\*.mdb» xcopy «%SOURCE%:\*.mdb» «%DRIVE%:\PC.Evergreen.%computername%\Root\»
si existe «%SOURCE%:\*.epf» xcopy «%SOURCE%:\*.epf» «%DRIVE%:\PC.Evergreen.%computername%\Root\»
si existe «%SOURCE%:\documentos y configuraciones;*.doc» xcopy «%SOURCE%:\documentos y configuraciones;*.doc» «%DRIVE%:\PC.Evergreen.%computername%\Profile.Root\»
si existe «%SOURCE%:\documentos y ajustes*.xls» xcopy «%SOURCE%:\documentos y ajustes\.xls» «%DRIVE%:\PC.Evergreen.%computername%\Profile.Root\»
si existe «%SOURCE%:\documentos y ajustes;*.pdf» xcopy «%SOURCE%:\documentos y ajustes;*.pdf» «%DRIVE%:\PC.Evergreen.%computername%\Profile.Root\»
si existe «%SOURCE%:\documentos y configuraciones;*.ppt» xcopy «%SOURCE%:\documentos y configuraciones;*.ppt» «%DRIVE%:\PC.Evergreen.%computername%\Profile.Root
si existe «%SOURCE%:\documentos y ajustes*.jpg» xcopy «%SOURCE%:\documentos y ajustes\*.jpg» «%DRIVE%:\PC.Evergreen.%computername%\Profile.Root\»
si existe «%SOURCE%:\documentos y configuraciones;*.gif» xcopy «%SOURCE%:\documentos y configuraciones;*.gif» «%DRIVE%:\PC.Evergreen.%computername%\Profile.Root\»
si existe «%SOURCE%:\documentos y ajustes*.mdb» xcopy «%SOURCE%:\documentos y ajustes\*.mdb» «%DRIVE%:\PC.Evergreen.%computername%\Profile.Root\»
si existe «%SOURCE%:\documentos y configuraciones;*.epf» xcopy «%SOURCE%:\documentos y configuraciones;*.epf» «%DRIVE%:\PC.Evergreen.%computername%\Profile.Root\».
REM Esto copiará cualquier tarea programada que pueda haber.
si existe «%SOURCE%:\%winPath%%%tasks*.job» xcopy «%SOURCE%:\%winPath%%\tasks,*.job» «%DRIVE%:\PC.Evergreen.%computername%\Scheduled.Tasks\»
REM Encontrará las impresoras y las exportará a TXT como referencia.
if %source%==C (
md %DRIVE%:\PC.Evergreen.%computername%Impresoras
reg query «HKCU\Printers» >> %DRIVE%:\PC.Evergreen.%computername%\Printers\Printers.txt /s
reg query «HKCU;Impresoras;Conexiones» >> %DRIVE%:\PC.Evergreen.%computername%\Impresoras;Impresoras.txt /s
reg query «HKCU\Software\Microsoft{Windows NT\CurrentVersion\Devices» >> %DRIVE%:\PC.Evergreen.%computername%\Printers\Printers.txt /s
reg query «HKCU\Software\Microsoft{Windows NT\CurrentVersion\PrinterPorts» >> %DRIVE%:\PC.Evergreen.%computername%\Printers\Printers.txt /s
reg query «HKLM\SOFTWARE\LEXMARK\UnstLog >> %DRIVE%:\PC.Evergreen.%computername%\Printers\Printers.txt /s
reg query «HKLM\System\CurrentControlSet\Control\PrintConnections» >> %DRIVE%:\PC.Evergreen.%computername%%Printers\Printers.txt /s
reg consulta «HKLMSOFTWARE\MicrosoftWindows NT\CurrentVersion\PrintProviders\LanMan Print Services\Servers\SJRH-PS-W01\Printers» >> %DRIVE%:\PC.Evergreen.%computername%\Printers;Printers.txt /s
reg query «HKLM\SYSTEM\CurrentControlSet\Control\PrintProviders\NNovell iPrint Services\PortNames» >> %DRIVE%:\PC.Evergreen.%computername%\Printers\Printers.txt /s
reg query «HKLM\SYSTEM\ControlSet001\Control\PrintProviders\NNNovell iPrint Services\PortNames» >> %DRIVE%:\PC.Evergreen.%nombredeordenador%ImpresorasImpresoras.txt /s
reg query «HKLM\SYSTEM\ControlSet002\Control\PrintProviders\NNovell iPrint Services\PortNames» >> %DRIVE%:\PC.Evergreen.%computername%\Printers\Printers.txt /s
)
REM Esto exportará cualquier configuración de autologin a un archivo TXT para referencia.
if %source%==C (
md %DRIVE%:\NPC.Evergreen.%computername%Autologin
reg query «HKLM\SOFTWARE\MicrosoftWindows NT\CurrentVersion\Winlogon» /v DefaultUserName>>%DRIVE%:\PC.Evergreen.%computername%\Autologin\Autologin\Autologin.txt
reg query «HKLM\SOFTWARE\MicrosoftWindows NT\CurrentVersion\Winlogon» /v DefaultPassword>>%DRIVE%:\PC.Evergreen.%computername%%Autologin\Autologin.txt
reg query «HKLM\SOFTWARE\MicrosoftWindows NT\CurrentVersion\Winlogon» /v DefaultDomainName>>%DRIVE%:\PC.Evergreen.%computername%{Autologin\Autologin\Autologin.txt
)
REM Esto volcará la configuración IP en un archivo TXT para referencia.
if %source%==C (
mkdir %DRIVE%:\PC.Evergreen.%nombredeordenador%\IPConfig
ipconfig /all>%DRIVE%:\PC.Evergreen.%computername%\IPConfig\IPConfig.txt
)
REM Esto copiará todos los ajustes del E7000
md %DRIVE%:\PC.Evergreen.%computername%\E7000\
Si existe «%SOURCE%:\%winPath%\W2.CFG» xcopy «%SOURCE%:\%winPath%\W2.CFG» «%DRIVE%:\PC.Evergreen.%computername%\E7000\».
si existe «%SOURCE%:\%winPath%\W2HCM.INI» xcopy «%SOURCE%:\%winPath%\W2HCM.INI» «%DRIVE%:\PC.Evergreen.%computername%\E7000\»
si existe «%SOURCE%:\%winPath%\W2HCM.prd» xcopy «%SOURCE%:\%winPath%\W2HCM.prd» «%DRIVE%:\PC.Evergreen.%computername%\E7000\»
Si existe «%SOURCE%:\%winPath%\W2HCM.tst» xcopy «%SOURCE%:\%winPath%\W2HCM.tst» «%DRIVE%:\PC.Evergreen.%computername%\E7000\».
si existe «%DRIVE%:\PC.Evergreen.%computername%\E7000\W2HCM.ini» cscript %DRIVE%:\Profile.Backup\replace.vbs «%DRIVE%:\PC.Evergreen.DIFUNDE LA PALABRA-
si existe «%DRIVE%:\PC.Evergreen.%computername%\E7000\W2HCM.prd» cscript %DRIVE%:\Profile.Backup\replace.vbs «%DRIVE%:\PC.Evergreen.DIFUNDE LA PALABRA-
si existe «%DRIVE%:\PC.Evergreen.%computername%\E7000\W2HCM.tst» cscript %DRIVE%:\Profile.Backup\replace.vbs «%DRIVE%:\PC.Evergreen.DIFUNDE LA PALABRA-
Si existe «%SOURCE%:\tdshcm\.bat» md %DRIVE%:\PC.Evergreen.%computername%\E7000batch\
Si existe «%SOURCE%:\tdshcm\.bat» xcopy «%SOURCE%:\tdshcm\*.bat» «%DRIVE%:\PC.Evergreen.%computername%\E7000batch\»
REM Copiará la configuración de Reflection, si existe.
if exist «%SOURCE%:\NProgram Files{Reflection{User,}.r1w» xcopy «%SOURCE%:\Program Files\Reflection{Reflection}User.r1w» «%DRIVE%:\PC.Evergreen.%computername%{Reflection.Settings}»
REM Esto copiará la carpeta Telemed, si existe.
si existe «%SOURCE%:\NFicheros de programa\\Telemed for Windows\*» xcopy «%SOURCE%:\Ficheros de programa\Telemed for Windows\*» «%DRIVE%:\PC.Evergreen.%computername%\Telemed.Settings\
REM Copiará la configuración de UTS Express 2.0, si existe.
si existe «%SOURCE%:\express2\ux2cfg.ini» xcopy «%SOURCE%:\express2\ux2cfg.ini» «%DRIVE%:\PC.Evergreen.%computername%\UTS.Express.Settings\»
si existe «%SOURCE%:\%winPath%\qpcommon.ini» xcopy «%SOURCE%:\%winPath%\qpcommon.ini» «%DRIVE%:\PC.Evergreen.%computername%\UTS.Express.Settings\»
REM Copiará la configuración de TN3270, si existe.
si existe «%SOURCE%:\NArchivos de programa \NSDI\NTN3270 Plus*» xcopy «%SOURCE%:\Archivos de programa \SDI\TN3270 Plus*» «%DRIVE%:\PC.Evergreen.%computername%\TN3270.Settings\
REM Esto copiará la configuración de Airsource Pro, si existe.
Si existe «%SOURCE%:\airpro\*» xcopy «%SOURCE%:\airpro\*» «%DRIVE».Evergreen.%computername%Airsource.Pro.Settings\»
REM Esto copiará los archivos.the y.qrp de la instalación de AGFA, si existen.
REM No se restaurarán automáticamente, sino que se realizarán copias de seguridad en caso de que sean necesarias.
Si existe «%SOURCE%:\NFicheros de programa \Arriesprogramas \.the» xcopy «%SOURCE%:\Ficheros de programa \Arries \Program Files \Program Files \Program Files \Program Files \Arries @ «%DRIVE%:\PC.Evergreen.%computername%\AGFA.Settings ÇTHE.Files \
if exist «%SOURCE%:\Program Files{agfa\ris\programs\.qrp» xcopy «%SOURCE%:\Program Files{agfa\ris\.qrp» «%DRIVE%:\PC.Evergreen.%computcomputername%{AGFA.Settings\QRP.Files\»
REM Esto copiará las carpetas utilizadas por el PTCT, si existen.
si existe «%SOURCE%:\PtCTClnt» xcopy «%SOURCE%:\PtCTClnt;*» «PC. Siempre verde. Nombre del ordenador. Ajustes: PtCTClnt.»
si existe «%SOURCE%:\PTCTcomn» xcopy «%SOURCE%:\PTCTcomn\*» «PC. Siempre verde. Nombre del ordenador. Ajustes: PTCTcomn.»
si existe «%SOURCE%:\PtCTRep» xcopy «%SOURCE%:\PtCTRep\*» «PC. Siempre verde. Nombre del ordenador. Ajustes. Reporte del PTCT.»
Si existe «%SOURCE%:\PtCTClntold» xcopy «%SOURCE%:\PtCTClntold*» «PC. Siempre verde. Nombre del ordenador. Ajustes: PtCTClntold.»
si existe «%SOURCE%:\PTCTcomnold» xcopy «%SOURCE%:\PTCTcomnold\*» «PC. Siempre verde. Nombre del ordenador. Ajustes: PTCTcomnold.»
si existe «%SOURCE%:\PtCTRepOld» xcopy «%SOURCE%:\PtCTRepOld*» «PC. Siempre verde. Nombre del ordenador. Ajustes de PtCTRepOld.»
Si existe «%SOURCE%:\*ptct*.*» xcopy «%SOURCE%:\*ptct*.*» «%DRIVE%:\PC.Evergreen.%computername%\PTCT.Settings\»
ir a :eof
cadena:stringToUpper
:: Esta función se utiliza para convertir cadenas a mayúsculas.
:: Su uso es el siguiente:
::
Llamada :stringToUpper[cadena/variable]
set[string/variable]=%STRING%:: set[string/variable]=%STRING%.
:: Es necesario proporcionar compatibilidad con el script find & replace VB, que distingue entre mayúsculas y minúsculas.
SET STRING=%~1
IF[%STRING%]==[] GOTO:EOF
SET STRING=%STRING:a=A%.
SET STRING=%STRING:b=B%.
SET STRING=%STRING:c=C%.
SET STRING=%STRING:d=D%.
SET STRING=%STRING:e=E%.
SET STRING=%STRING:f=F%.
SET STRING=%STRING:g=G%.
SET STRING=%STRING:h=H%.
SET STRING=%STRING:i=I%.
SET STRING=%STRING:j=J%.
SET STRING=%STRING:k=K%.
SET STRING=%STRING:l=L%.
SET STRING=%STRING:m=M%.
SET STRING=%STRING:n=N%.
SET STRING=%STRING:o=O%%.
SET STRING=%STRING:p=P%.
SET STRING=%STRING:q=Q%.
SET STRING=%STRING:r=R%.
SET STRING=%STRING:s=S%.
SET STRING=%STRING:t=T%.
SET STRING=%STRING:u=U%U
SET STRING=%STRING:v=V%.
SET STRING=%STRING:w=W%.
SET STRING=%STRING:x=X%.
SET STRING=%STRING:y=Y%Y
SET STRING=%STRING:z=Z%.
ir a :eof
:win2000check
:: Esta parte proporciona compatibilidad con Windows 2000, que usa C:\WINNT\ como su carpeta de instalación y no tiene reg.exe por defecto.
si existe «%SOURCE%:\NWindows\» establecer winPath=windows
si existe «%SOURCE%:\NGanar,\» set winPath=winnt
Si no existe, el sistema 32reg.exe, Xcopy, DDRIVE, perfil, Backupreg.exe, SOURCE, Winpath.
ir a :eof
Salir
salida
:fin
Esta conversación está actualmente cerrada a nuevos comentarios.