Using the script below you can find how much time it took to execute your VBScript code.
Dim startTime
startTime = Now
'execute your code here
endTime = Now
MsgBox("Time taken to execute code : " & DateDiff("s",startTime,endTime)&" seconds")
You can try this example
Dim startTime
startTime = Now
'execute your code here
MsgBox("Wait for sometime")
endTime = Now
MsgBox("Time taken to execute code : " & DateDiff("s",startTime,endTime)&" seconds")
Check PHP version here