В доступе отказано с использованием VBScript

Question

У меня есть скрипт, который будет перемещать и переименовывать папки. Он успешен при локальном запуске, но при попытке чтения или записи в каталоги с использованием подключенных дисков процесс завершается с ошибкой «Отказано в доступе».

Разве VBScript не нравится подключенные диски? Ниже приведен скрипт с учетными данными для чтения и записи в исходный и целевой каталог:

dim objNetwork

Set objNetwork = WScript.CreateObject("WScript.Network")
strLocalDrive = "Y:"
strRemoteShare = "\\servername\directory"
strPer = "False"
strUsr = "userid"
strPas = "password"
objNetwork.MapNetworkDrive strLocalDrive, strRemoteShare, strPer, strUsr, strPas

Dim fso, objFol, objMoveFol, strPathBuild

Set fso = CreateObject("Scripting.FileSystemObject")
Set objFol = fso.GetFolder("D:\Source")

For Each objMoveFol In objFol.SubFolders

    'Replace the root folder locations in the path
    strPathBuild = Replace(objMoveFol, "D:\Source", "Y:\Destination")

    'Do the required other fiddle
    strPathBuild = Replace(strPathBuild, "A.", "Ack~")

    fso.Movefolder objMoveFol, strPathBuild

Next

Answer 1

Код выглядит хорошо.Также, если он работает локально, я думаю, что пользователь, с которым вы подключаете сетевой диск, не имеет прав на редактирование папки.

Попробуйте подключить диск вручную с тем же именем пользователя и паролем.Скопируйте папку в ту же папку, чтобы проверить права пользователей