[標準入出力を使用する（簡易電卓）]

『標準入力』から数式を読み込み、『標準出力』に計算結果を出力します。
※ cscript 専用です。

【ソースコード】

[tips0007.vbs]
Option Explicit

Dim strMyName   ' コマンド名
Dim strExpr     ' 数式

strMyName = UCase(Replace(WScript.FullName, WScript.Path & "\", ""))
If strMyName = "CSCRIPT.EXE" Then
    WScript.StdOut.Write "数式を入力> "
    strExpr = WScript.StdIn.ReadLine
    If strExpr <> "" Then
        WScript.StdOut.WriteLine "　計算結果: " & _
            strExpr & " = " & Eval(strExpr)
    End If
Else
    WScript.Echo "cscript で実行してください。"
End If

【実行結果】

C:\> cscript //NoLogo tips0007.vbs
数式を入力> 2 + 5
　計算結果: 2 + 5 = 7