variables - VBScript - 从可变网络路径运行

Question

我正在尝试修改脚本的一部分，以便它可以从我们的任何 DP 运行。这是当前的代码部分：

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("""\\SERVER\SHARE\FOLDER\FOLDER2\FOLDER3\INSTALL_ME.exe""")
Set objShell = Nothing

这可行，但我不希望它只从这个位置运行，而是从它正在执行的任何 DP 运行。唯一会改变的路径部分是 SERVER 名称。SHARE 和 FOLDER 路径将保持不变。我可以为服务器名称使用通配符或其他方法吗？

我一直在研究使用 app.path 之类的东西，但没有成功找到解决方案。

Answer 1

您可以使用这部分代码获取脚本的路径：

szPath = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) - Len(WScript.ScriptName))