[bat批处理文件] 压缩备份

@echo 
for /f "tokens=4" %%a in ('route print^|findstr 0.0.0.0.*0.0.0.0') do (
set IP=%%a
)
@echo off
>tmp.vbs echo wscript.echo dateadd("d",-1,date())
for /f "tokens=1-3 delims=-/ " %%a in ('cscript //nologo tmp.vbs') do set/a y=%%a,m=100%%b,d=100%%c
del tmp.vbs&echo,%y%-%m:~-2%-%d:~-2%
for %%i in (*%y%-%m:~-2%-%d:~-2%.*) do "%ProgramFiles%\WinRAR\winrar.exe" a -m5 -ibck %IP%" "%y%-%m:~-2%-%d:~-2%.rar %%i
copy %IP%" "%y%-%m:~-2%-%d:~-2%.rar D:\test\test2\%IP%" "%y%-%m:~-2%-%d:~-2%.rar
del %IP%" "%y%-%m:~-2%-%d:~-2%.rar
pause