VBS サブルーチン化
いつもお世話になっております。
WindowsXP環境にある下記のようなVBSがあります。
コード------------------------------------------------------------------
'********変数強制宣言********
Option Explicit
'********フォルダ変数宣言************
Dim LOG_DIR
'********ファイル変数宣言************
Dim LOG_FILE , LOG_FILENAME
LOG_DIR = "D:\LOG"
LOG_FILE = "CHECK_LOG.txt"
LOG_FILENAME = LOG_DIR & "\" & LOG_FILE
'********オブジェクト変数定義********
Dim FSO , LOG
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set LOG = FSO.OpenTextFile(LOG_FILENAME, 2, True)
'********時間変数宣言********
Dim YYYY , MM1 , DD , HHMMSS , HH , MM2 , SS
'********処理開始時間********
YYYY = Year(Date)
MM1 = MONTH(Date)
DD = DAY(Date)
HH = Right("0" & Hour(Time), 2)
MM2 = Right("0" & Minute(Time), 2)
SS = Right("0" & Second(Time), 2)
LOG.WriteLine("★★★************** 処理日 = " & YYYY & "/" & MM1 & "/" & DD & " 処理開始時間= " & HH & ":" & MM2 & ":" & SS & " ***************★★★")
LOG.WriteBlankLines(1)
処理１（省略）
'********処理終了時間********
YYYY = Year(Date)
MM1 = MONTH(Date)
DD = DAY(Date)
HH = Right("0" & Hour(Time), 2)
MM2 = Right("0" & Minute(Time), 2)
SS = Right("0" & Second(Time), 2)
LOG.WriteLine("★★★************** 処理日 = " & YYYY & "/" & MM1 & "/" & DD & " 処理終了時間= " & HH & ":" & MM2 & ":" & SS & " ***************★★★")
LOG.WriteBlankLines(1)
コード------------------------------------------------------------------
上記VBSは処理１（省略）の前後に開始時間と終了時間をログに出力しています。
ただ、開始と終了時間を取得するのにログ出力直前に現在の【YYYY , MM1 , DD , HHMMSS , HH , MM2 , SS】を取得して
ログを出力するのでコードが増えてしまい、スッキリしません。
もっとシンプルに、現在の時間・時刻等をVBSサブルーチンとかで（出来れば同じVBS内に）随時取得したいのですが
なかなかコードが書けません。バッチファイルでは無く、VBSだけで実現したいです。
ご存知の方がいれば、ご教授願いませんでしょうか？
何卒、宜しくお願い致します。
