VBScript 実行パスを取得する

vbscript
スクリプト名を含むパス
scriptPath = WScript.ScriptFullName
スクリプト名を含まないパス
scriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,””)
scriptPath = WScript.ScriptFullName
scriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,””)