[終了時に起動時間を表示する]

InternetExplorer が終了したときに、起動時間を表示します。

【ソースコード】

[tips0167.vbs]
Option Explicit
On Error Resume Next

' 終了通知関数
Sub Test_OnQuit()
    Dim dtmEndDate  ' 終了時間
    Dim lngSecond   ' 起動時間

    dtmEndDate = Now()
    lngSecond = CLng(DateDiff("s", dtmStartDate, dtmEndDate))
    WScript.Echo "起動時間は " & _
        CLng(lngSecond / 60) & " 分 " & _
        lngSecond Mod 60 & " 秒でした。"

    Set objIE = Nothing
    WScript.Quit
End Sub

Dim objIE           ' IE オブジェクト
Dim dtmStartDate    ' 開始時間

Set objIE = WScript.CreateObject("InternetExplorer.Application", "Test_")
If Err.Number = 0 Then
    dtmStartDate = Now()
    objIE.GoHome
    objIE.Visible = True

    ' 無限ループ
    Do While True
        WScript.Sleep(1000)
    Loop
Else
    WScript.Echo "エラー：" & Err.Description
End If

【実行結果】

C:\> cscript //NoLogo tips0167.vbs
起動時間は 2 分 15 秒でした。