Saltar al contenido

salida vbscript a la consola

Traemos la mejor respuesta que descubrimos por todo internet. Nuestro deseo es que te resulte de utilidad y si deseas compartir algún detalle que nos pueda ayudar a crecer hazlo con libertad.

Solución:

Te refieres a:

Wscript.Echo "Like this?"

Si ejecutas eso bajo wscript.exe (el controlador predeterminado para la extensión .vbs, por lo que obtendrá si hace doble clic en el script) obtendrá un cuadro de diálogo “MessageBox” con su texto en él. Si ejecutas eso bajo cscript.exe obtendrá resultados en la ventana de su consola.

Esto fue encontrado en Repositorio de código y scripts de Dragon-IT.

Puede hacer esto con lo siguiente y mantenerse alejado de las diferencias cscript/wscript y le permite obtener la misma salida de consola que tendría un archivo por lotes. Esto puede ayudar si está llamando a VBS desde un archivo por lotes y necesita que se vea perfecto.

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."

Solo necesita forzar cscript en lugar de wscript. Yo siempre uso esta plantilla. La función ForceConsole () ejecutará su vbs en cscript, también tiene un buen alias para imprimir y escanear texto.

 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)

Recuerda que puedes añadir una valoración justa si descubriste tu disgusto a tiempo.

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)



Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *