コードはほれ

Do Until WScript.StdIn.AtEndOfStream
 WScript.StdOut.WriteLine StrReverse(WScript.StdIn.ReadLine)
Loop