Unzip-Dateifehler beim Ausführen eines VBS-Skripts aus einem Stapel in Windows 10

Beim Ausführen des VBSunzip code Batch in Win 10, ich erhalte den folgenden Fehler. Was kann ein Grund dafür sein, da von anderen berichtet wurde, dass es bereits funktioniert hat? Das Ändern oder explizite Festlegen von Zielverzeichnissen hat keinen Einfluss auf den Fehler.

@echo off
setlocal enabledelayedexpansion
cd /d %~dp0
set vbs="%temp%\_.vbs"
call :UnZipFile "E:\Temp\" "%USERPROFILE%\Downloads\archive.zip\"
exit /b

:UnZipFile <ExtractTo> <newzipfile>
if exist %vbs% del /f /q %vbs%
>%vbs%  echo Set fso = CreateObject("Scripting.FileSystemObject")
>>%vbs% echo If NOT fso.FolderExists(%1) Then
>>%vbs% echo fso.CreateFolder(%1)
>>%vbs% echo End If
>>%vbs% echo set objShell = CreateObject("Shell.Application")
>>%vbs% echo set FilesInZip=objShell.NameSpace(%2).items
>>%vbs% echo objShell.NameSpace(%1).CopyHere(FilesInZip)
>>%vbs% echo Set fso = Nothing
>>%vbs% echo Set objShell = Nothing
cscript //nologo %vbs%
if exist %vbs% del /f /q %vbs%

::error
VBScript runtime error: Object required: 'objShell.NameSpace(...)'

EDIT: Speicherort der .zip-Datei geändert, jetzt funktioniert das Skript. Der Fehlergrund war, dass der Benutzer-Download-Ordner auf ein anderes Volume verschoben wurde als der Standard-Download-Ordner% USERPROFILE% \ Downloads. Das Skript scheint Probleme mit der ordnungsgemäßen Funktion von Systemordner-Symlinks zu haben.

Antworten auf die Frage(4)

Ihre Antwort auf die Frage