'CheckCScript forces a script to run from CScript even if WScript is the default.

Option Explicit

Private Sub Main()
    CheckCScript
End Sub

Private Sub CheckCScript()
    Dim Shell

    If LCase(Right(WScript.FullName, 11)) = "wscript.exe" Then
        Set Shell = WScript.CreateObject("WScript.Shell")
        Shell.Run "cscript " & WScript.ScriptFullName, 1, False
        WScript.Quit 0
    End If
End Sub