output di vbscript su console


Risposte:


311

Intendi:

Wscript.Echo "Like this?"

Se lo esegui in wscript.exe(il gestore predefinito per l'estensione .vbs, quindi cosa otterrai se fai doppio clic sullo script) otterrai una finestra di dialogo "MessageBox" con il tuo testo. Se lo esegui sotto cscript.exe, otterrai l'output nella finestra della console.


1
Puoi usare direttamente su wscript.exe la funzione MsgBox("text")o MsgBox(object.property)ma Wscript.Echoè più facile da scrivere. Grazie.
m3nda,

22
Non intuitivamente per me, WScript.Echo deve essere usato per correre WScripto tramite CScript. Cioè, non c'è una CScript.Echo, nel caso in cui i googler futuri si meraviglino. ( Molto contento che i msgbox siano spariti [quando eseguito con cscript], comunque; grazie.)
ruffin,

1
@GabrielStaples - Non con lo stock WScript.Echo. Suppongo che, se volessi rimanere totalmente all'interno di WScript, potresti fare qualcosa di orribilmente sfuggente come eseguire un altro processo per fare un "SendKeys" al processo genitore per chiudere MessageBox.
Evan Anderson,

4
In realtà, ho appena trovato questo popupmetodo. Molto simile echoma consente di specificare un timeout dopo il quale chiuderà automaticamente la finestra popup. Molto comodo e facile da usare: technet.microsoft.com/en-us/library/ee156593.aspx
Gabriel Staples

63

Questo è stato trovato su Dragon-IT Scripts and Code Repository .

Puoi farlo con le seguenti informazioni e stare lontano dalle differenze cscript / wscript e ti permette di ottenere lo stesso output di console che avrebbe un file batch. Questo può essere d'aiuto se si chiama VBS da un file batch e si deve renderlo perfetto.

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
Se lo script viene avviato facendo doppio clic e quindi aperto con wscript, lo script genera un messaggio di errore: "handle non valido".
Bernhard Hiller il

6
@ Bernard: questo errore viene visualizzato se si esegue lo script utilizzando wscript.exe. Wscript è orientato a Windows e non ha flussi di console. Utilizzare invece cscript.exe invece: technet.microsoft.com/en-us/library/bb490816.aspx
Axel Kemper

20
@BernhardHiller ha un punto valido. Il punto di forza di questa risposta è che l'uso diretto di stdout eviterebbe le differenze CScript / WScript. Non è corretto Questa soluzione funziona ancora solo con CScript.exe, quindi non sembrano esserci molti vantaggi rispetto al solo utilizzo WScript.Echo. In effetti, la differenza viene ingrandita, poiché lo script non verrà più eseguito in WScript. È una tecnica valida che ha i suoi usi, ad esempio se si deve scrivere a StdErr, ma nel contesto di questa risposta, è fuorviante.
Tim Long,

3
Voglio solo chiarire il vantaggio di questo metodo WScript.Echo: cscript //b foobar.vbs Esegue foobar.vbssenza output della console, ma con il metodo di Rob puoi avere l'output anche quando passi \\bacscript.exe
S. Razi il

24

Devi solo forzare cscript invece wscript. Uso sempre questo modello. La funzione ForceConsole () eseguirà i tuoi vbs in cscript, inoltre hai un bel alias per stampare e scansionare il testo.

 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)

Sei sicuro che risponda alla domanda reale ?
dakab,

Sì, chiama solo ForceConsole () e quindi usa printf () per stampare il testo nella console di output. Inoltre hai altri alias per cancellare lo schermo, scansionare il testo e attendere (
sospensione

1
La migliore soluzione di sempre, grazie, ma conta solo la funzione "ForceConsole", "printf" e il resto sono totalmente inutili poiché se si forza a chiudere lo script corrente sull'istanza di Wscript.exe e quindi a eseguire una nuova istanza di cscript.exe di lo script corrente, quindi Wscript.Echo verrà
inviato

6

Mi sono imbattuto in questo post e sono tornato a un approccio che ho usato qualche tempo fa, simile a quello di @ MadAntrax.

La differenza principale è che utilizza una classe definita dall'utente VBScript per avvolgere tutta la logica per passare a CScript e inviare il testo alla console, in modo da rendere lo script principale un po 'più pulito.

Questo presuppone che il tuo obiettivo sia quello di trasmettere l'output alla console, anziché far sì che l'output vada nelle finestre di messaggio.

La classe cCONSOLE è sotto. Per usarlo, includi la classe completa alla fine dello script, quindi istanziala proprio all'inizio dello script. Ecco un esempio:

    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

Ecco il codice per 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

Esistono cinque modi per inviare testo alla 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 verrà emesso sulla console ma solo se lo script viene avviato utilizzando cscript.exe. Verrà emesso nelle finestre di messaggio se avviato utilizzando wscript.exe.

WScript.StdOut.Write e WScript.StdOut.WriteLine verranno sempre inviati alla console.

Anche StdOut.Write e StdOut.WriteLine verranno sempre inviati alla console. Richiede la creazione di oggetti extra ma è circa il 10% più veloce di WScript.Echo.


1
... e come detto in un commento ad una precedente risposta, questo non funziona quando si esegue con wscript.exe: stackoverflow.com/questions/4388879/...
maxxyme

Ho anche trovato una spiegazione su GetStandardStream () vs WScript.StdIn / .StdOut / .StdErr: "VBScript in a Nutshell: A Desktop Quick Reference (2nd Edition)" books.google.fr/books?id=NLpuZSatG3QC pagina 298 dice che è " funzionalmente equivalente ".
max.
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.