Sicherung Anwendungsordner mit Profilordner per Batch

@echo off & setlocal
REM ***Profilsich_TB-Std_IHRNAME.bat
REM ***Backup des Standard Thunderbird Anwendungsordners incl. aller Profilordner***
REM ***V_01-2022
REM ***Ergebnis sieht z.B. so aus: IHRNAME_TB-V91-4-1_DT_JJJJ-MM-TT_hh-mm-ss
REM ***Achtung! Ab hier Ersetzungen vornehmem!
REM -----------------------------------------------------------------
REM UserName=IHRNAME entspr. ersetzen!
REM           ||
set UserName=IHRNAME

REM Laufwerk-Buchstabe und Sicherungsordner 'ohne\' entpr. ersetzen!
REM Zielort=E:\1Archiv  <<Beispiel
REM           ||
set Zielort=E:\1Archiv
REM -----------------------------------------------------------------
if not exist "%appdata%\Thunderbird" goto Fehler1
if not exist "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" goto 32Bit
set "Ursprung=C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
goto Losgehts
:32Bit
if not exist "C:\Program Files\Mozilla Thunderbird\thunderbird.exe" goto Fehler2
set "Ursprung=C:\Program Files\Mozilla Thunderbird\thunderbird.exe"
:Losgehts
(
echo Set objFSO = CreateObject^("Scripting.FileSystemObject"^)
echo Set objShell = CreateObject^("Shell.Application"^)
echo Set objFolder = objShell.NameSpace^(objFSO.GetParentFolderName^(WScript.Arguments^(0^)^)^)
echo WScript.Echo objFolder.ParseName^(objFSO.GetFileName^(WScript.Arguments^(0^)^)^).ExtendedProperty^("productversion"^)
)>"%temp%\getPV.vbs"

for /f %%i in ('cscript //nologo "%temp%\getPV.vbs" "%Ursprung%"') do set "ProdVersion=%%i"
del "%temp%\getPV.vbs"

set vernum=%ProdVersion:.=-%

set datzeit=%date:~-4%-%date:~-7,2%-%date:~-10,2%_%time:~-11,2%-%time:~-8,2%-%time:~-5,2%
setlocal enabledelayedexpansion
set datzeit=!datzeit:^ =0!
setlocal disabledelayedexpansion

set archnam=%UserName%_TB-V%vernum%_DT_%datzeit%
@echo "v" | xcopy "%appdata%\Thunderbird\*.*" %Zielort%\TB\%archnam%\Thunderbird\ /S /E /H /R /V /Y
Pause
Exit
:Fehler1
@echo Keinen Thunderbird Profilordner im Standardpfad gefunden!
Pause
Exit
:Fehler2
@echo Keine Thunderbird Installation gefunden!
Pause
Exit