При запуске VBSраспаковать код пакет в Win 10, я получаю ошибку ниже. Что может быть причиной этого, учитывая, что другие работали раньше? Изменение целевых каталогов или их явная установка не влияют на ошибку.

@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(...)'

РЕДАКТИРОВАТЬ: изменил расположение файла .zip, теперь скрипт работает. Причиной ошибки была пользовательская папка загрузки, перемещенная на другой том по сравнению со значением по умолчанию% USERPROFILE% \ Downloads. Сценарий, похоже, имеет проблемы с правильной работой с символическими ссылками на системные папки.