Cuando ejecuta el VBSdescomprimir código lote en Win 10, obtengo el siguiente error. ¿Cuál puede ser una razón para esto, dado que otros informaron que funcionaba antes? Cambiar los directorios de destino o establecerlos explícitamente no afecta el error.

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

EDITAR: cambió la ubicación del archivo .zip, ahora el script funciona. La razón del error fue que la carpeta de descarga del usuario se movió a un volumen diferente en comparación con% USERPROFILE% \ Downloads predeterminado. El script parece tener problemas para funcionar correctamente con los enlaces simbólicos de la carpeta del sistema.