[コマンド名の取得と強制終了]

wscript.exe から呼び出された場合は、エラーを表示して終了します。

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

Dim strMyName   ' コマンド名

strMyName = UCase(Replace(WScript.FullName, WScript.Path & "\", ""))
If strMyName = "WSCRIPT.EXE" Then
    WScript.Echo "cscript で実行してください。"
    WScript.Quit
End If