じゃ完全版な

Dim str
Do Until WScript.StdIn.AtEndOfStream = True
　str = WScript.StdIn.ReadLine
　WScript.StdOut.WriteLine StrReverse(str)
Loop

インデントを全角スペースにしてみました