Cscript pstlocate.vbs Laufzeitfehler

@echo off & setlocal enabledelayedexpansion
if exist %temp%\Output1.txt del %temp%\Output1.txt
if exist %temp%\Output2.txt del %temp%\Output2.txt
xcopy D:\Test\pstlocate.vbs %temp% /Y
cscript %temp%\pstlocate.vbs | findstr /C:".pst">>%temp%\Output1.txt  
set "filename=%temp%\Output1.txt"  
set "tempfile=%temp%\tmptxt.txt"  
for /F "delims=" %%a in (%filename%) do (  
set text=%%a
set text=!text:^&=und!>>%tempfile%
 )
set xy=7
set "Alt=%filename%"  
set "Neu=%temp%\Output2.txt"  
set "Cut=%temp%\Cut.vbs"  
echo Set fso=CreateObject("Scripting.FileSystemObject"):aL=Split(fso.OpenTextFile(WScript.Arguments(0),1).ReadAll,vbCrLF)>"%Cut%"  
echo Set N=fso.OpenTextFile(WScript.Arguments(1),2,-1):P=WScript.Arguments(2)+1:For Each sL In aL: N.WriteLine Mid(sL,P):Next:N.Close>>"%Cut%"  
cscript //nologo "%Cut%" "%Alt%" "%Neu%" %xy%  
del "%Cut%"  
del %tempfile%
del %temp%\Output1.txt
set "Datei=%temp%\Output2.txt"  
set "VonC=C:\"  
set "NachC$=\\%COMPUTERNAME%\C$\"  
set "VonD=D:\"  
set "NachD$=\\%COMPUTERNAME%\D$\"  
set "VonW=W:\"  
set "NachdomW=\\domaenel\K010\Benutzer\%USERNAME%\"  
set "VonX=X:\"  
set "NachdomX=ERROR "  
set "t=%temp%\text.tmp"  
if exist "%t%" del "%t%"  
for /f "usebackq delims=" %%i in ("%Datei%") do set "Line=%%i" & set Line=!Line:%VonC%=%NachC$%! & echo !Line!>>"%t%"  
move /y "%t%" "%Datei%"  
for /f "usebackq delims=" %%i in ("%Datei%") do set "Line=%%i" & set Line=!Line:%VonD%=%NachD$%! & echo !Line!>>"%t%"  
move /y "%t%" "%Datei%"  
for /f "usebackq delims=" %%i in ("%Datei%") do set "Line=%%i" & set Line=!Line:%VonW%=%NachdomW%! & echo !Line!>>"%t%"  
move /y "%t%" "%Datei%"  
for /f "usebackq delims=" %%i in ("%Datei%") do set "Line=%%i" & set Line=!Line:%VonX%=%NachdomX%! & echo !Line!>>"%t%"  
move /y "%t%" "%Datei%"  
%temp%\Output2.txt