Using VBScript functions from TCC

vb {
@setlocal
@echo off
echo set fso=CreateObject("Scripting.FileSystemObject") > c:\utils\vb.vbs
echo set stdout=fso.GetStandardStream(1) >> c:\utils\vb.vbs
echo stdout.WriteLine %* >> c:\utils\vb.vbs
echo set fso=Nothing >> c:\utils\vb.vbs
cscript //nologo c:\utils\vb.vbs
if exist c:\utils\vb.vbs del /q c:\utils\vb.vbs
endlocal
}