vbs-文字コード

Const adTypeBinary = 1
Const adTypeText = 2
Const adReadAll = -1
Const adReadLine = -2

Dim bin
Dim str
Dim srcFile
Dim srcCode
Dim dstFile
Dim dstCode

'読み込み ver2
Dim objADOST_R

srcFile = "c:\src.txt" '元ファイル
srcCode = "UTF-8"
'srcCode = "Shift-JIS"
dstFile = "c:\dst.txt" '変換後ファイル
dstCode = "Shift-JIS"
'dstCode = "UTF-8"

'読み込み
'With CreateObject("ADODB.Stream")
'.Open
'.Type = adTypeText
'.Charset = srcCode
'.LoadFromFile srcFile
'str = .ReadText(adReadAll) '全て読み込み
'.Close
'End With

'読み込み ver2
Set objADOST_R = CreateObject("ADODB.Stream")
objADOST_R.Type = 1 'adTypeBinary
objADOST_R.Open
objADOST_R.LoadFromFile srcFile
objADOST_R.Position = 0
str = objADOST_R.ReadText(adReadAll) '全て読み込み-

Wscript.Echo str

'Base64デコード
With CreateObject("Microsoft.XMLDOM").createElement("temp")
.DataType = "bin.base64"
.Text = str
bin = .NodeTypedValue
End With

'UTF-8をSHIFT-JISでファイル出力
With CreateObject("ADODB.Stream")
.Open
.Type = adTypeBinary
.Write bin
.Position = 0
.Type = adTypeText
.Charset = dstCode
.SaveToFile dstFile
'.SaveToFile "c:\test.txt", 2 '同名ファイルがあったら上書きする場合 adSaveCreateOverWrite=2
.Close
End With