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.