>>553
Dim str
WScript.echo("メッセージを入力して下さい")
str = WScript.StdIn.ReadLine
WScript.echo(str)