使用 VBScript 的权限被拒绝

Question

我有一个脚本可以移动和重命名文件夹。 在本地运行它是成功的，但是当尝试使用映射驱动器读取或写入目录时，该过程失败并出现“Permission Denied”错误。

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

代码看起来不错。 此外，如果它在本地工作，我猜您映射网络驱动器的用户没有编辑文件夹的权限。

尝试使用相同的用户名和密码手动映射驱动器。 将文件夹复制到同一位置以检查用户权限