VBScript将一个文件复制到多个目标并显示gui进度条

我正在尝试创建一个VBScript，它将同时将一个文件复制到多个UNC目标，并在执行此操作时显示Windows资源管理器进度条

我是VBScript新手，到目前为止，我只能使用以下代码复制一个文件：

Const FOF_CREATEPROGRESSDLG = &H0&

strTargetFolder = "\\computer\target"

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(strTargetFolder)

objFolder.CopyHere "C:\tmp\copy\*.*", FOF_CREATEPROGRESSDLG

---

如何添加另一个目标并显示两个进度条？

将最后一行执行两次，这只会将同一文件再次复制到同一目标，并询问是否要替换已存在的文件。我希望多个目标同时具有同一个文件。其中一个目标假设您在每一行上都有一些智能更改目标。请注意，我需要它们同时运行，而不是在另一行完成后运行。VBScript是单线程的。通过执行最后一行两次，只会将同一文件反复复制到同一目标询问我是否要替换已经存在的文件。我希望多个目标同时具有相同的文件。其中一个目标假定您有一些智能来更改每行的目标。请注意，我需要它们同时运行，而不是在另一行完成后运行。VBScript是单线程的。