[megaloman]

Код:

@Echo Off
cls
	Set "FileIn=Z:\Box_In\P_00*.jpg"
	FOR %%f IN ("%FileIn%") DO (
		Call Set "Name=%%~nf"
		Call :MyRen "%%f" "%%Name:~4,5%%_%%Name:~9,2%%_"
	)
pause
GoTo :Eof

:MyRen
	Set /A i=101
	:Begin
		If Not Exist "%~dp1%~2%i:~1%%~x1" Ren %1 "%~2%i:~1%%~x1" >nul &GoTo :Eof
		Set /A i+=1
		GoTo :Begin
GoTo :Eof

может быть файлов больше 4-x »

Set /A i=101 даёт возможность обрабатывать до 99 файлов
Set /A i=1001 даст возможность обрабатывать до 999 файлов
и т д

[Iska]

lovator, вообще-то мало информации о возможных значениях исходных имён файлов, а также о принципах переименования.