La Force d'un SCRIPT à exécuter à l'aide de cscript au lieu de wscript

Mon Seigneur, que pure foutaise. Il me fait pleurer de voir de telles cruddy de codage (n'en déplaise à personne, lol). Sérieusement, si, voici mes 2 centimes:

Sub forceCScriptExecution
    Dim Arg, Str
    If Not LCase( Right( WScript.FullName, 12 ) ) = "\cscript.exe" Then
        For Each Arg In WScript.Arguments
            If InStr( Arg, " " ) Then Arg = """" & Arg & """"
            Str = Str & " " & Arg
        Next
        CreateObject( "WScript.Shell" ).Run _
            "cscript //nologo """ & _
            WScript.ScriptFullName & _
            """ " & Str
        WScript.Quit
    End If
End Sub
forceCScriptExecution

Il traite les arguments, ET des contrôles pour les espaces en dit arguments -- de sorte que dans le cas d'un nom de fichier passé au script d'origine de l'instance qui contenait des espaces, il ne serait pas obtenir "segmentées" lorsqu'il est passé à cscript.exe.

Seule chose qu'il n'a pas fait de test pour l'entrée standard (par exemple, dans le cas où quelqu'un les canalisations de quelque chose pour le script via la ligne de commande, mais vous avez oublié d'utiliser "cscript script.vbs") - mais si elle a été exécutée par WScript.exe, WScript.StdIn méthodes retournent toutes erreurs de descripteur non Valide, donc il n'y a aucun moyen de tester ça de toute façon.

Hésitez pas à me faire savoir si il existe un moyen de "casser"; je suis prêt à l'améliorer si nécessaire.

OriginalL'auteur

Voici un semblable, dans le JScript pour faire .fichiers js exécuter dans CScript:

(function(ws) {
  if (ws.fullName.slice(-12).toLowerCase() !== '\\cscript.exe') {
    var cmd = 'cscript.exe //nologo "' + ws.scriptFullName + '"';
    var args = ws.arguments;
    for (var i = 0, len = args.length; i < len; i++) {
      var arg = args(i);
      cmd += ' ' + (~arg.indexOf(' ') ? '"' + arg + '"' : arg);
    }
    new ActiveXObject('WScript.Shell').run(cmd);
    ws.quit();
  }
})(WScript);

WScript.echo('We are now in CScript. Press Enter to Quit...');
WScript.stdIn.readLine();

https://gist.github.com/4482361

OriginalL'auteur

Voici mon extrait de code que j'utilise pour certains de mes scripts. Il traite les Arguments ainsi. Tout ce que vous avez à faire est de remplacer les {EnterWorC} avec un "w" ou "c" AVEC des citations

Dim WorC, Command, Arguments, I

WorC={EnterWOrC}  'Make sure you replace "{EnterWOrC}" with a "w" or a "c" and BE SURE TO PUT QUOTES AROUND THE LETTER.

WorC=LCase (WorC)
If lcase (WorC)="w" Or lcase (WorC)="c" Then

If LCase (Right (WScript.FullName,11))<> WorC & "script.exe" Then
    command=WScript.ScriptFullName
    Arguments=""
    For I=0 To UBound (WScript.Arguments)
        Arguments=Arguments & Chr (34) & WScript.Arguments(I) & Chr (34) & Space (1)
    Next
    CreateObject("Wscript.Shell").Run WorC & "script.exe " & Chr (34) & command & Chr (34) & Space (1) & Arguments, 1
    WScript.Quit
End If
    WorC=Empty
    Command=Empty
    I=Empty
    Arguments=Empty
End If

Ici, vous aurez à remplacer le 2e ligne (2e ligne NON vide)

WorC={EnterWOrC}  'Make sure you replace "{EnterWOrC}" with a "w" or a "c" and BE SURE TO PUT QUOTES AROUND THE LETTER.

Pour Wscript: WorC="W"

Pour CScript: WorC="C"

Il n'est PAS Sensible à la casse.

OriginalL'auteur