Démarrer avec CSCript au lieu de VBScript

Il est des fois très utile de forcer les script en CScript au lieu de VBscript

Public  oWScript : oWScript = Instr(UCase(Wscript.FullName), UCase("CSCRIPT.EXE"))

If oWScript = 0 Then
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.Run "CSCRIPT.EXE """ & WScript.ScriptFullName & """ //Nologo"
    WScript.Quit
End If