VBScriptで計算