Foro de elhacker.net

@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

Echo PASSWORD_DE_LA_CUENTA_DE_MAQUINA_1 | Runas /profile /user:NOMBRE_DEL_PC_MAQUINA_1\NOMBRE_DE_LA_CUENTA_MAQUINA_1 "comandos .........etc"