VBA/VBScript通过局域网移动文件失效问题求助

常见故障原因 #

• 身份权限不匹配：Scripting.FileSystemObject 执行时继承当前登录用户（或脚本调度的运行身份）的权限，仅开启共享权限无效，需同时满足共享权限、目标文件夹NTFS权限两个条件；如果使用\\computerName\C$这类默认管理员共享，还会受到Windows UAC远程过滤规则限制，普通管理员身份默认无访问权限。
• 共享凭据未预存：FSO对象不会主动触发网络共享的凭据输入弹窗，若运行脚本的设备未提前保存目标共享的有效账号密码，直接访问UNC路径会直接报错。
• SMB协议版本不兼容：目标系统为Windows Enterprise LTSC默认可能禁用SMB 1.0协议，若运行脚本的设备为Win7及更早版本系统，会因协议不兼容无法访问共享路径。
• 路径格式仍存在问题：注意UNC路径规则为\\主机名/IP\共享名\子路径，不能写成\\主机名\C\Test这类格式，C盘的默认共享名是C$，需要写为\\主机名\C$\Test。

对应解决方案 #

1. 配置双权限规则
   打开目标设备的共享文件夹属性：
   • 进入「共享」选项卡→高级共享→权限，给脚本运行身份的账号授予「修改/完全控制」权限
   • 进入「安全」选项卡，给相同账号授予「读取、写入、修改、删除子文件/文件夹」的NTFS权限
   • 如果使用默认管理员共享，在目标设备以管理员身份运行命令：
     reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System /v LocalAccountTokenFilterPolicy /t REG_DWORD /d 1 /f
     执行后重启目标设备即可关闭UAC远程限制。
2. 脚本中提前映射网络共享
   可以通过脚本先完成共享路径的身份验证，再执行文件移动操作，优化后参考代码如下：

   Set WshNetwork = WScript.CreateObject("WScript.Network")
   Set fso = CreateObject("Scripting.FileSystemObject")
   
   ' 替换为实际的共享路径、登录账号、密码
   WshNetwork.MapNetworkDrive "Z:", "\\computerName\Test", False, "你的账号", "你的密码"
   WshNetwork.MapNetworkDrive "Y:", "\\computerName\Test2", False, "你的账号", "你的密码"
   
   folderPath = "Z:\test.txt"
   outFilePath = "Y:\test.txt"
   
   fso.MoveFile folderPath, outFilePath
   
   ' 执行完成后删除驱动器映射
   WshNetwork.RemoveNetworkDrive "Z:"
   WshNetwork.RemoveNetworkDrive "Y:"
   

3. 适配SMB协议
   打开目标LTSC设备的「控制面板→程序→启用或关闭Windows功能」，勾选「SMB 1.0/CIFS 文件共享支持」，重启后生效即可兼容旧系统的访问请求。
4. 添加错误调试信息
   若仍未解决，可以在脚本开头添加调试代码定位错误：

   On Error Resume Next
   ' 你的原有代码
   If Err.Number <> 0 Then
       WScript.Echo "错误码：" & Err.Number & " 错误描述：" & Err.Description
   End If
   

   常见错误码：错误5为权限不足，错误76为路径不存在/无法访问，错误424为对象初始化失败。

内容的提问来源于stack exchange，提问作者AgnesP