Probleme mit Umlauten bei Übergabe an VBS (Exiftool charset)

@echo off 

set "cntr1=0"  
set "cntr2=0"  
set "cntr3=0"  
set staffel_txt=One Piece - Mux Tool - Staffelliste.txt

set "test=T:\KUC NG OP Mux Tool\One Piece - Mux Tool V1 1 [KUC NG]\One Piece - Mux Tool - Staffelliste.txt"  



:TagsAuslesen

setlocal enabledelayedexpansion

set "pfad=%1"  
set "pfad1=%~dp1"  
set /a "cntr1+=1"  
set /a "cntr3+=1"  
set /a "cntr4=%cntr3%+1"  
set /a "cntr5=%cntr3%+2"  
set "ChapterUID=%cntr3%%cntr4%%cntr5%"  


for /f "tokens=2,3,4 delims=:" %%o in ('T:\exiftool\exiftool.exe -Title -TrackNumber -DiskNumber -TVNetworkname -TVSeason -TVEpisode -Description -LongDescription -ContentCreateDate -Genre %Pfad%') do (  
		set /a cntr2=!cntr2! + 1
		set tag!cntr2!=%%o %%p %%q
)

for /f "tokens=1,2,3,4 delims=^&" %%a in ("%tag10%") do set "Genre1=%%a" & set "Genre2=%%b" & set "Genre3=%%c" & set "Genre4=%%d"  

set "Title=%tag1%"  
set "TrackNumber=%tag2:~0,-7%"  
set "DiskNumber=%tag3:~0,-7%"  
set "TVNetworkname=%tag4%"  
set "TVSeason=%tag5%"  
set "TVEpisode=%tag6%"  
set "Description=%tag7%"  
set "LongDescription=%tag8%"  
set "ContentCreateDate=%tag9%"  



:LeerzeichenEntfernen
:loop1
if "%Title:~0,1%"==" " set "Title=%Title:~1%" & goto :loop1  
if "%TrackNumber:~0,1%"==" " set "TrackNumber=%TrackNumber:~1%" & goto :loop1  
if "%DiskNumber:~0,1%"==" " set "DiskNumber=%DiskNumber:~1%" & goto :loop1  
if "%TVNetworkname:~0,1%"==" " set "TVNetworkname=%TVNetworkname:~1%" & goto :loop1  
if "%TVSeason:~0,1%"==" " set "TVSeason=%TVSeason:~1%" & goto :loop1  
if "%TVEpisode:~0,1%"==" " set "TVEpisode=%TVEpisode:~1%" & goto :loop1  
if "%Description:~0,1%"==" " set "Description=%Description:~1%" & goto :loop1  
if "%LongDescription:~0,1%"==" " set "LongDescription=%LongDescription:~1%" & goto :loop1  
if "%ContentCreateDate:~0,1%"==" " set "ContentCreateDate=%ContentCreateDate:~1%" & goto :loop1  
if "%Genre1:~0,1%"==" " set "Genre1=%Genre1:~1%" & goto :loop1  
if "%Genre2:~0,1%"==" " set "Genre2=%Genre2:~1%" & goto :loop1  
if "%Genre3:~0,1%"==" " set "Genre3=%Genre3:~1%" & goto :loop1  
if "%Genre4:~0,1%"==" " set "Genre4=%Genre4:~1%" & goto :loop1  
:loop2
if "%Title:~-1%"==" " set "Title=%Title:~0,-1%" & goto :loop2  
if "%TrackNumber:~-1%"==" " set "TrackNumber=%TrackNumber:~0,-1%" & goto :loop2  
if "%DiskNumber:~-1%"==" " set "DiskNumber=%DiskNumber:~0,-1%" & goto :loop2  
if "%TVNetworkname:~-1%"==" " set "TVNetworkname=%TVNetworkname:~0,-1%" & goto :loop2  
if "%TVSeason:~-1%"==" " set "TVSeason=%TVSeason:~0,-1%" & goto :loop2  
if "%TVEpisode:~-1%"==" " set "TVEpisode=%TVEpisode:~0,-1%" & goto :loop2  
if "%Description:~-1%"==" " set "Description=%Description:~0,-1%" & goto :loop2  
if "%LongDescription:~-1%"==" " set "LongDescription=%LongDescription:~0,-1%" & goto :loop2  
if "%ContentCreateDate:~-1%"==" " set "ContentCreateDate=%ContentCreateDate:~0,-1%" & goto :loop2  
if "%Genre1:~-1%"==" " set "Genre1=%Genre1:~0,-1%" & goto :loop2  
if "%Genre2:~-1%"==" " set "Genre2=%Genre2:~0,-1%" & goto :loop2  
if "%Genre3:~-1%"==" " set "Genre3=%Genre3:~0,-1%" & goto :loop2  
if "%Genre4:~-1%"==" " set "Genre4=%Genre4:~0,-1%" & goto :loop2  

for /f "tokens=2 delims=^=" %%a in ('findstr /I "Staffel%DiskNumber%=" "%test%"') do set "TotalParts=%%a"  
set "ContentCreateDate=%ContentCreateDate: =-%"  


:XmlErstellen



setlocal disabledelayedexpansion


wscript.exe "PfadzurVBS\Figure 1.vbs" "%Title%" "%TrackNumber%" "%DiskNumber%" "%TVNetworkname%" "%TVSeason%" "%TVEpisode%" "%Description%" "%LongDescription%" "%ContentCreateDate%" "%ChapterUID%" "%TotalParts%" "%Genre1%" "%Genre2%" "%Genre3%" "%Genre4%"  
pause

shift

if not [%1]== goto TagsAuslesen