VBScript环境变量%COMPUTERNAME%

Question

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

Comp1 = BobPC
Comp2 = JakePC

我正在BobPC上创建一个zip文件,然后将其复制到JakePC,但我需要将此文件复制到... C:\ CopiedFiles\BobPc这样的目录中,因为这个脚本将在许多计算机上运行,​​每个它们需要一个文件夹,文件将以其来自的计算机命名.

我希望这是有道理的.

现在我可以让它构建一个文件夹就好了但是它将它命名为"JakePC"显然是因为我使用环境变量来获取本地主机名.

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

如果您有任何问题让我知道,我将非常乐意解释,因为我知道我可能没有多大意义.

Answer 1

如果您从源PC运行脚本,您可以使用以下内容

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

如果你从targetpc运行它,你应该使用远程脚本,但这不会很聪明,因为你必须知道你需要运行它的pc的名称,所以不需要环境变量.