sortie vbscript vers la console


165

Quelle est la commande ou le moyen le plus rapide d'afficher les résultats sur la console à l'aide de vbscript?

Réponses:


311

Vous voulez dire:

Wscript.Echo "Like this?"

Si vous exécutez cela sous wscript.exe(le gestionnaire par défaut pour l'extension .vbs, donc ce que vous obtiendrez si vous double-cliquez sur le script), vous obtiendrez une boîte de dialogue "MessageBox" avec votre texte. Si vous exécutez cela sous, cscript.exevous obtiendrez la sortie dans votre fenêtre de console.


1
Vous pouvez utiliser directement sur le wscript.exe la fonction MsgBox("text")ou MsgBox(object.property)mais Wscript.Echoc'est plus facile à écrire. Merci.
m3nda

22
De manière non intuitive pour moi, WScript.Echo doit être utilisé pour savoir si vous exécutez via WScriptou CScript. Autrement dit, il n'est pas un CScript.Echo, dans le cas où l' avenir Googlers merveille. ( Très heureux que les msgbox aient disparu [lorsqu'elles sont exécutées avec cscript], cependant; merci.)
ruffin

1
@GabrielStaples - Pas avec le stock WScript.Echo. Je suppose que si vous vouliez rester totalement dans WScript, vous pourriez faire quelque chose d'horriblement douteux comme Exécuter un autre processus pour faire un «SendKeys» au processus parent pour fermer la MessageBox.
Evan Anderson

4
En fait, je viens de trouver cette popupméthode. Très similaire à echomais vous permet de spécifier un délai après lequel il fermera automatiquement la boîte de dialogue. Très pratique et facile à utiliser: technet.microsoft.com/en-us/library/ee156593.aspx
Gabriel Staples

63

Cela a été trouvé sur les scripts Dragon-IT et le référentiel de code .

Vous pouvez le faire avec ce qui suit et rester à l'écart des différences cscript / wscript et vous permet d'obtenir la même sortie de console qu'un fichier de commandes. Cela peut vous aider si vous appelez VBS à partir d'un fichier de commandes et que vous devez le rendre transparent.

Set fso = CreateObject ("Scripting.FileSystemObject")
Set stdout = fso.GetStandardStream (1)
Set stderr = fso.GetStandardStream (2)
stdout.WriteLine "This will go to standard output."
stderr.WriteLine "This will go to error output."

5
Si le script est démarré par double-clic et donc ouvert avec wscript, le script génère un message d'erreur: "Invalid Handle".
Bernhard Hiller

6
@Bernhard: Vous obtenez cette erreur si vous exécutez le script à l'aide de wscript.exe. Wscript est orienté Windows et n'a pas de flux de console. Utilisez plutôt cscript.exe: technet.microsoft.com/en-us/library/bb490816.aspx
Axel Kemper

20
@BernhardHiller a un point valide. L'idée maîtresse de cette réponse est que l'utilisation directe de stdout éviterait les différences CScript / WScript. C'est inexact. Cette solution ne fonctionne toujours que sous CScript.exe, il ne semble donc pas y avoir beaucoup d'avantages à utiliser WScript.Echo. En fait, la différence est amplifiée, car le script ne fonctionnera plus du tout sous WScript. C'est une technique valide qui a ses utilisations, par exemple si l'on a besoin d'écrire dans StdErr, mais dans le contexte de cette réponse, elle est trompeuse.
Tim Long

3
Je veux juste éclairer l'avantage de cette méthode sur WScript.Echo: cscript //b foobar.vbs Fonctionne foobar.vbssans aucune sortie de console, mais par la méthode de Rob, vous pouvez avoir une sortie même en passant \\bàcscript.exe
S.Razi

24

Il vous suffit de forcer cscript à la place de wscript. J'utilise toujours ce modèle. La fonction ForceConsole () exécutera vos vbs en cscript, vous avez également un joli alias pour imprimer et numériser du texte.

 Set oWSH = CreateObject("WScript.Shell")
 vbsInterpreter = "cscript.exe"

 Call ForceConsole()

 Function printf(txt)
    WScript.StdOut.WriteLine txt
 End Function

 Function printl(txt)
    WScript.StdOut.Write txt
 End Function

 Function scanf()
    scanf = LCase(WScript.StdIn.ReadLine)
 End Function

 Function wait(n)
    WScript.Sleep Int(n * 1000)
 End Function

 Function ForceConsole()
    If InStr(LCase(WScript.FullName), vbsInterpreter) = 0 Then
        oWSH.Run vbsInterpreter & " //NoLogo " & Chr(34) & WScript.ScriptFullName & Chr(34)
        WScript.Quit
    End If
 End Function

 Function cls()
    For i = 1 To 50
        printf ""
    Next
 End Function

 printf " _____ _ _           _____         _    _____         _     _   "
 printf "|  _  |_| |_ ___ ___|     |_ _ _ _| |  |   __|___ ___|_|___| |_ "
 printf "|     | | '_| . |   |   --| | | | . |  |__   |  _|  _| | . |  _|"
 printf "|__|__|_|_,_|___|_|_|_____|_____|___|  |_____|___|_| |_|  _|_|  "
 printf "                                                       |_|     v1.0"
 printl " Enter your name:"
 MyVar = scanf
 cls
 printf "Your name is: " & MyVar
 wait(5)

Êtes-vous sûr que cela répond à la vraie question ?
dakab

Oui, appelez uniquement ForceConsole (), puis utilisez printf () pour imprimer le texte dans la console de sortie. Vous avez également d'autres alias pour effacer l'écran, scanner le texte et attendre (sommeil)
MadAntrax

1
Meilleure solution jamais, merci, mais seule la fonction "ForceConsole" compte, le "printf" et le reste sont totalement inutiles car si vous forcez à fermer le script actuel sur l'instance Wscript.exe, puis exécutez une nouvelle instance cscript.exe de le script actuel, puis Wscript.Echo affichera cette instance de console ...
ElektroStudios

6

Je suis tombé sur ce post et suis revenu à une approche que j'ai utilisée il y a quelque temps et qui est similaire à celle de @ MadAntrax.

La principale différence est qu'il utilise une classe définie par l'utilisateur VBScript pour encapsuler toute la logique de basculement vers CScript et de sortie de texte vers la console, ce qui rend le script principal un peu plus propre.

Cela suppose que votre objectif est de diffuser la sortie vers la console, plutôt que d'avoir la sortie vers les boîtes de message.

La classe cCONSOLE est ci-dessous. Pour l'utiliser, incluez la classe complète à la fin de votre script, puis instanciez-la dès le début du script. Voici un exemple:

    Option Explicit

'// Instantiate the console object, this automatically switches to CSCript if required
Dim CONS: Set CONS = New cCONSOLE

'// Now we can use the Consol object to write to and read from the console
With CONS

    '// Simply write a line
     .print "CSCRIPT Console demo script"

     '// Arguments are passed through correctly, if present
     .Print "Arg count=" & wscript.arguments.count

     '// List all the arguments on the console log
     dim ix
     for ix = 0 to wscript.arguments.count -1
        .print "Arg(" & ix & ")=" & wscript.arguments(ix)
     next

     '// Prompt for some text from the user
     dim sMsg : sMsg = .prompt( "Enter any text:" )

     '// Write out the text in a box
     .Box sMsg

     '// Pause with the message "Hit enter to continue"
     .Pause

End With     




'= =========== End of script - the cCONSOLE class code follows here

Voici le code de la classe cCONSOLE

     CLASS cCONSOLE
 '= =================================================================
 '= 
 '=    This class provides automatic switch to CScript and has methods
 '=    to write to and read from the CSCript console. It transparently
 '=    switches to CScript if the script has been started in WScript.
 '=
 '= =================================================================

    Private oOUT
    Private oIN


    Private Sub Class_Initialize()
    '= Run on creation of the cCONSOLE object, checks for cScript operation


        '= Check to make sure we are running under CScript, if not restart
        '= then run using CScript and terminate this instance.
        dim oShell
        set oShell = CreateObject("WScript.Shell")

        If InStr( LCase( WScript.FullName ), "cscript.exe" ) = 0 Then
            '= Not running under CSCRIPT

            '= Get the arguments on the command line and build an argument list
            dim ArgList, IX
            ArgList = ""

            For IX = 0 to wscript.arguments.count - 1
                '= Add the argument to the list, enclosing it in quotes
                argList = argList & " """ & wscript.arguments.item(IX) & """"
            next

            '= Now restart with CScript and terminate this instance
            oShell.Run "cscript.exe //NoLogo """ & WScript.ScriptName & """ " & arglist
            WScript.Quit

        End If

        '= Running under CScript so OK to continue
        set oShell = Nothing

        '= Save references to stdout and stdin for use with Print, Read and Prompt
        set oOUT = WScript.StdOut
        set oIN = WScript.StdIn

        '= Print out the startup box 
            StartBox
            BoxLine Wscript.ScriptName
            BoxLine "Started at " & Now()
            EndBox


    End Sub

    '= Utility methods for writing a box to the console with text in it

            Public Sub StartBox()

                Print "  " & String(73, "_") 
                Print " |" & Space(73) & "|"
            End Sub

            Public Sub BoxLine(sText)

                Print Left(" |" & Centre( sText, 74) , 75) & "|"
            End Sub

            Public Sub EndBox()
                Print " |" & String(73, "_") & "|"
                Print ""
            End Sub

            Public Sub Box(sMsg)
                StartBox
                BoxLine sMsg
                EndBox
            End Sub

    '= END OF Box utility methods


            '= Utility to center given text padded out to a certain width of text
            '= assuming font is monospaced
            Public Function Centre(sText, nWidth)
                dim iLen
                iLen = len(sText)

                '= Check for overflow
                if ilen > nwidth then Centre = sText : exit Function

                '= Calculate padding either side
                iLen = ( nWidth - iLen ) / 2

                '= Generate text with padding
                Centre = left( space(iLen) & sText & space(ilen), nWidth )
            End Function



    '= Method to write a line of text to the console
    Public Sub Print( sText )

        oOUT.WriteLine sText
    End Sub

    '= Method to prompt user input from the console with a message
    Public Function Prompt( sText )
        oOUT.Write sText
        Prompt = Read()
    End Function

    '= Method to read input from the console with no prompting
    Public Function Read()
        Read = oIN.ReadLine
    End Function

    '= Method to provide wait for n seconds
    Public Sub Wait(nSeconds)
        WScript.Sleep  nSeconds * 1000 
    End Sub

    '= Method to pause for user to continue
    Public Sub Pause
        Prompt "Hit enter to continue..."
    End Sub


 END CLASS

3

Il existe cinq façons de sortir du texte sur la console:

Dim StdOut : Set StdOut = CreateObject("Scripting.FileSystemObject").GetStandardStream(1)

WScript.Echo "Hello"
WScript.StdOut.Write "Hello"
WScript.StdOut.WriteLine "Hello"
Stdout.WriteLine "Hello"
Stdout.Write "Hello"

WScript.Echo sortira sur la console mais uniquement si le script est démarré à l'aide de cscript.exe. Il sortira dans les boîtes de message s'il est démarré avec wscript.exe.

WScript.StdOut.Write et WScript.StdOut.WriteLine seront toujours affichés sur la console.

StdOut.Write et StdOut.WriteLine seront également toujours émis vers la console. Il nécessite la création d'objets supplémentaires, mais il est environ 10% plus rapide que WScript.Echo.


1
... et comme dit dans un commentaire à une réponse précédente, cela ne fonctionne pas lors de l'exécution avec wscript.exe: stackoverflow.com/questions/4388879/…
maxxyme

Nous avons également trouvé une explication sur GetStandardStream () vs WScript.StdIn / .StdOut / .StdErr: "VBScript en bref: une référence rapide sur le bureau (2e édition)" books.google.fr/books?id=NLpuZSatG3QC page 298 dit que c'est " équivalent fonctionnellement ".
maxxyme
En utilisant notre site, vous reconnaissez avoir lu et compris notre politique liée aux cookies et notre politique de confidentialité.
Licensed under cc by-sa 3.0 with attribution required.