VBScript 环境变量%COMPUTERNAME%

Question

我正在寻找有关环境变量 %COMPUTERNAME% 的帮助。它在我的脚本中作为一种以本地主机名命名文件的方法。在另一点上，我使用脚本在网络上的不同目录中构建一个文件夹(到映射驱动器)，并且我需要将该文件夹命名为原始计算机的本地主机名。这可能没有意义，但我将在下面提供一个示例:

Comp1 = BobPC
Comp2 = JakePC

我正在 BobPC 上制作一个 zip 文件，然后将其复制到 JakePC，但我需要将此文件复制到像 C:\CopiedFiles\BobPc 这样的目录中，因为此脚本将在许多计算机上运行计算机，每台计算机都需要一个文件夹，其中的文件以文件所在计算机的名称命名。

我希望这是有道理的。

现在我可以让它构建一个文件夹，但它显然将其命名为“JakePC”，因为我正在使用环境变量来获取本地主机名。

我的问题基本上是如何告诉它以原始计算机的名称命名文件夹？

如果您有任何疑问，请告诉我，我会非常乐意解释，因为我知道我可能没有多大意义。

Answer 1

如果您从源电脑运行脚本，您可以使用以下内容

dim oFso, oShell, oShellEnv, computerName, target, source
const overwrite = true
set oFso      = CreateObject("Scripting.FileSystemObject")
set oShell    = WScript.CreateObject("WScript.Shell")
set oShellEnv = oShell.Environment("Process")
computerName  = oShellEnv("ComputerName")
source =  "c:\test\yourZip.zip"
target = "\\JakePC\copiedFiles\" & computerName & ".zip"
'copiedFiles needs to be a share with write permission for the user who runs the script
oFso.CopyFile source, target, overwrite
'do check on errors and the cleanup of your objects

如果您从目标电脑运行它，您应该使用远程脚本，但这并不明智，因为您必须知道需要运行它的电脑的名称，因此不需要环境变量。