JST時間をhh:mm:ss形式で取得したい

Question

前提・実現したいこと

どんな環境のPCでもJST時間でログを記録したいと考えています。
（英語OSでも、タイムゾーンを他国に設定していても）

ちなみに、NOW関数を使った場合はタイムゾーンに依存することがわかりましたので、
例えば地域をアメリカにしてしまうとアメリカ時間が取得されたのでNGでした。

いまのところの考えではUTC時間を取得してから+9時間を調整すればよいかと考えていますが、
思うように習得できずにいます。

試したこと

【参考元１】
https://www.366service.com/jp/qa/365938f2e4504e7ec8a8f445f0b47779

【URL先からコードを抜粋】

 Set dateTime = CreateObject("WbemScripting.SWbemDateTime")    
dateTime.SetVarDate (now())
wscript.echo  "Local Time:  " & dateTime
wscript.echo  "UTC Time: " & dateTime.GetVarDate (false)

この方法ではあとから数字の加工（+9時間）するこができなさそうで断念しました。。。

【参考元２】
http://www.wmifun.net/sample/win32_utctime.html

【URL先からコード抜粋】

Option Explicit

'WMIにて使用する各種オブジェクトを定義・生成する。
Dim oClassSet
Dim oClass
Dim oLocator
Dim oService
Dim sMesStr

'ローカルコンピュータに接続する。
Set oLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set oService = oLocator.ConnectServer
'クエリー条件を WQL にて指定する。
Set oClassSet = oService.ExecQuery("Select * From Win32_UTCTime")

'コレクションを解析する。
For Each oClass In oClassSet

sMesStr = sMesStr & oClass.Hour & ": " & oClass.Minute & ": " & oClass.Second & vbCrLf

Next

MsgBox ("UTC (協定世界時) に関する情報です。" & vbCrLf & vbCrLf & sMesStr)

'使用した各種オブジェクトを後片付けする。
Set oClassSet = Nothing
Set oClass = Nothing
Set oService = Nothing
Set oLocator = Nothing

この場合はhh:mm:ss形式で取得することはできませんでした。
7時8分5秒が7:8:5となる。。。

Comments

[y_waiwai]

> 7時8分5秒が7:8:5となる。。。

きちんと取れているようですが、それをどうしたいというはなしなんでしょうか。

[WaterSausage]

ご回答が遅くなってしまいすみません。

希望としてはhh:mm:ssとして取得したかったので、例の場合では07:08:05が正解になります。

Answer 1

参考２で10より下の数には文字列0を追加してHH:MM:SSの形にしました。