How to tell the difference between a VBscript is run from command line or by clicking it in a window?

Question

All I want to do is differentiate between the program being run by the command line or by clicking the test.vbs file in a window.

If you run the script by typing

Answer 1

If you want to test against WScript.FullName, you can use InStr with vbTextCompare so that the match is case-insensitive.

If InStr(1, WScript.FullName, "cscript", vbTextCompare) Then
    WScript.Echo "Console"
ElseIf InStr(1, WScript.FullName, "wscript", vbTextCompare) Then
    WScript.Echo "Windows"
Else
    WScript.Echo "???"
End If

Answer 2

i=(instrrev(ucase(WScript.FullName),"CSCRIPT")<>0)

returns -1 if running cscript, 0 if running wscript

Answer 3

You could try something like this:

Set WshShell = CreateObject("WScript.Shell")
Set objEnv = WshShell.Environment("Process")

msgbox objenv("PROMPT")

In general PROMPT will be set to something like $P$G when run from a command prompt, but left blank when you run the .VBS file directly.