VBS 時間の計測について

Question

VBSでバッチを呼び出し、バッチ処理の時間計測を行いたいのですが、
WshShell.Run ("if.bat", 1 , 1);の所で、
subプロージャーを呼び出す時、かっこを使うことはできません。と表示され
コンパイルエラーとなってしまいます。

何が間違っているのでしょうか？

Option Explicit

Dim startTime
Dim endTime
Dim diffTime
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

startTime=Time

'バッチを呼び出し処理させます。
WshShell.Run ("if.bat", 1 , 1);

endTime=Time

diffTime=DateDiff("s" ,startTime , endTime)

msgbox diffTime

Answer 1

VBScript / VBA の関数への引数の渡し方は以下のように複数種類あります。

今回のケースでは括弧を外す以外に、Callをつけることでもエラーを解消することが出来ます。

'返り値を使用しない場合1
MsgBox "括弧無し", vbInformation

'返り値を使用しない場合2
Call MsgBox("Call", vbInformation)

'返り値を使用する場合
Dim ans 'As VbMsgBoxResult
ans = MsgBox("結果を使う", vbYesNo)

Answer 2

その通り、括弧を取ってください。

WshShell.Run "if.bat", 1 , 1