Как вывести содержимое txt файла в консоль

WScript.Echo

 Function Main(inputs, outputFolder, params)
Dim WshShell, fso, loc, cmd, sFile, pyExe, inputFile, outFolder
Const Quote = """"
 inputFile = inputs(0)
 WScript.Echo(Recode("Входящий файл XLS: " & inputFile, "cp866", "windows-1251"))
 outFolder = outputFolder
 WScript.Echo(Recode("Папка XML: " & outFolder, "cp866", "windows-1251"))
 
Set fso = CreateObject("Scripting.FileSystemObject")
loc = fso.GetAbsolutePathName(".")
sFile = "C:\Esko\bg_data_fastserverscrrunnt_v100\Scripts\WindowsScript\MyPyScript_SpuskToCAD_Flexo_v1.py "  & Quote & inputFile & Quote & " " & Quote & outFolder & Quote 
pyExe = "C:\Python37\python.exe "
 
 
 
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run (pyExe & sFile),3,true
 
if WScript.Arguments.Count = 0 then
    loc = fso.GetAbsolutePathName(".")
else
    loc = WScript.Arguments(0)
end if
 
 
'WScript.Echo "Create XML: "  & outputFolder & params(0)
 
 
 
End function
'Функция смены кодировки для вывода кирилицы в консоль'
            Function Recode(StrText, SrcCode, DestCode)
                With CreateObject("ADODB.Stream")
                    .Type = 2
                    .Mode = 3
                    .Charset = DestCode
                    .Open
                    .WriteText (strText)
                    .Position = 0
                    .Charset = SrcCode
                    Recode = .ReadText
                    .Close
                end with
            End Function
 
 Dim inputs()
 Dim outputFolder
 Dim params()
 
 Main inputs, outputFolder, params
 Main = "OK"