VBSの質問です

前にこんなのを回答したことがありました。
同じような感じでいけますよ。

Set objStream = WScript.CreateObject("adodb.stream")
objStream.Type = 2
objStream.Charset = "Shift_JIS"
objStream.Open
objStream.LoadFromFile("a.html")        ' Shift-JIS のファイルを読み込み

txt = objStream.ReadText()

objStream.Close()


objStream.Open()
objStream.Position = 0
objStream.Charset = "UTF-8"             ' UTF-8 でファイルへ書き込み
objStream.WriteText txt

objStream.SaveToFile("b.html")

objStream.Close
Set objStream = Nothing