スクリプトホスト名を取得する

[vb]
Dim tmpS
tmpS = Replace(WScript.FullName, WScript.Path + "\", "")
MsgBox tmpS
[/vb]
スクリプトホスト名を取得するにはWScript.FullNameを参照する。
実際はWScript.FullNameにはスクリプトホストのフルパスが入っているので、スクリプトホスト名だけを得たい場合は、これからWScript.Pathとその直後に続く¥を引いてやればいい。