从 VBScript 中访问网络共享，例如 FileSystemObject

Question

有没有一种好方法可以使用替代凭据（而不是运行 VBS 脚本所使用的凭据）从 VBS 脚本内访问网络共享？

目的是执行两项任务：

1. 以编程方式导航远程共享文件结构，以确认存在几个远程文件，并
2. 从本地驱动器（使用本地用户名访问）将一个文件 复制到另一个（都是远程）文件上/ 权限）到远程驱动器（使用备用凭据访问）

据我所知，FSO（Scripting.FileSystemObject）不适用，因为它始终使用使用它的应用程序的凭据运行 - 这将是本地机器用户。（？）

我在谷歌搜索准备批处理文件（或对“cmd.exe”的扩展调用）时发现的唯一看似可行的方法，该文件使用“net use”提供远程共享凭据，然后复制来自同一命令外壳“会话”内的带有 robocopy 等的文件。 这对于将文件从本地驱动器复制/部署到远程共享来说是可行的，但以这种方式进行任何类型的文件系统浏览（就像使用 FSO 一样）会非常复杂且脆弱。

我考虑过的另一种可能性涉及有两个脚本会话 - 您调用脚本（在命令行中提供备用凭据），它运行一个 cmd.exe 会话，该会话首先执行“net use”将远程共享映射到临时共享本地驱动器，然后以“实际执行操作”模式自行运行并使用 FSO，完成后（返回 cmd.exe shell）再次使用“net use”断开临时驱动器的连接。 这很笨重（多个窗口，临时驱动器......），我什至不确定它是否有效。

有人知道这两种方式，或者知道可行的替代方案吗？ （在 Windows 2000 机器上坚持使用 VBScript / WScript - 没有 PowerShell！）

Answer 1

好吧，我一直在误解 - FSO 不会“获取”使用“NET USE”（或 Wscript.Network“MapNetworkDrive”）建立的网络凭据。

事实证明确实如此，并且以下示例代码运行得非常好（无需设置临时网络驱动器）：

ServerShare = "\\192.168.3.56\d$"
UserName = "domain\username"
Password = "password"

Set NetworkObject = CreateObject("WScript.Network")
Set FSO = CreateObject("Scripting.FileSystemObject")

NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password

Set Directory = FSO.GetFolder(ServerShare)
For Each FileName In Directory.Files
    WScript.Echo FileName.Name
Next

Set FileName = Nothing
Set Directory = Nothing
Set FSO = Nothing

NetworkObject.RemoveNetworkDrive ServerShare, True, False

Set ShellObject = Nothing
Set NetworkObject = Nothing