Пакетное редактирование метаданных видео файлов

@echo off
>nul chcp 1251
set "foldMP4=C:\folderMP4"
set "exiftool=путь к папке\exiftool.exe"
 
pushd "%foldMP4%"
  for /f "delims=" %%a in ('dir /a-d/b "*.mp4"') do (
    "%exiftool%" "-CreateDate=2021:11:21 00:01:59" "%%a"
  )
popd
pause

@echo on
>nul chcp 1251
set "foldMP4=F:\test"
set "exiftool=F:\test\exiftool.exe"
 
pushd "%foldMP4%"
  for /f "delims=" %%a in ('dir /a-d/b "*.m??"') do (
    "%exiftool%" -Time:All="2021.12.03 18:43:45" "%%a"
  )
popd
pause

exiftool -Time:All="2021.12.04 18:43:45" F:\test\*.m??

@echo off
setlocal ENABLEDELAYEDEXPANSION
for /r %%i in (*.M??) do (
  set F=%%i
  set DATA=!F:~-19,-15!.!F:~-15,-13!.!F:~-13,-11! !F:~-10,-8!:!F:~-8,-6!:!F:~-6,-4!
  echo !DATA!         !F!   
  c:\exiftool.exe -Time:All="!DATA!" "!F!" -overwrite_original
)

@c:\exiftool.exe -ext m4p -ext mp4 -fast2 -f -m -overwrite_original -P -q -r "-time:all<CreateDate" .

exiftool --help

choco install strawberryperl
choco install imagemagick.app
cpanm  Image::ExifTool
cpanm  Image::Magick

perl -x "%~f0" %*
exit/b
 
#!/usr/bin/env perl
use Image::ExifTool qw(:Public);
use Image::Magick;
 
$exif    = new Image::ExifTool;
$image   = new Image::Magick;
 
my $file = "7гном.JPG";
my $info = $exif  -> ImageInfo($file);
my $n    = $image -> Read($file); 
my $text = $info  -> {ImageSize};
 
$image->Annotate(
    pointsize => 100,
    fill      => 'green',
    text      => $text,
    gravity   => 'South',
);
 
my $new  = $image->Write('new.jpg');