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))