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路径将保持不变。是否有可用于SERVER名称的通配符或其他方法？

我一直在研究像app.path这样的东西但是没有成功找到解决方案。

Answer 1

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

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