' This technique forces this WSH script to run in a console window,
' even if it is started by double-clicking the .vbs file
' in Windows Explorer.

' SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
' For more information, please refer to <https://unlicense.org/>
' SPDX-License-Identifier: Unlicense

Option Explicit
Dim WshShell
Dim I
Dim Pause

If InStr(UCase(WScript.FullName), "CSCRIPT") = 0 Then
    Set WshShell = WScript.CreateObject("WScript.Shell")
    WshShell.Run "CScript //Nologo " & Chr(34) & WScript.ScriptFullName & Chr(34) & " /Pause", 1, True
Else
    WScript.Echo "This should appear in a Console window"
    'Remainder of your script goes here
    Pause = False
    For I = 0 to WScript.Arguments.Count - 1
        If WScript.Arguments(I) = "/Pause" Then
	    Pause = True
	End If
    Next
    If Pause Then
        WScript.Echo "[Press Enter to close this window]"
        WScript.StdIn.ReadLine
    End If
End If