[起動スクリプト名を取得する]

起動されたスクリプト名と、フォルダ名を表示します。

【ソースコード】
[tips0006.vbs]
Option Explicit

Dim strFolderName   ' フォルダ名
Dim strScriptName   ' スクリプト名

strScriptName = WScript.ScriptName
strFolderName = Left(WScript.ScriptFullName, _
                    InStrRev(WScript.ScriptFullName, "\"))

WScript.Echo "フォルダ名:" & strFolderName
WScript.Echo "スクリプト名:" & strScriptName

【実行結果】
C:\> cscript //NoLogo tips0006.vbs
フォルダ名:C:\temp\
スクリプト名:tips0006.vbs