桃白白出来たぞ！

Dim str
Do Until WScript.StdIn.AtEndOfStream = True
str = WScript.StdIn.ReadLine
'ここで文字列を反転
WScript.StdOut.WriteLine str
Loop

終了は Ctrl+Z 押してから リターンキーか Ctrl+C 押せばいい