実行パスの取得

WSH 
Set ws = WScript.CreateObject("WScript.Shell")
WScript.Echo ws.CurrentDirectory