Приветствую!
Описанную в заголовке проблему до сих пор испытываю я. Засим интересуюсь у почтенной публики - ничего лучше этого не придумали?
сам пользуюсь простейшей модификацией vbs-скриптов, к примеру в случае вот этого набора скриптов в .vbs-файлах:
Это
меняется на это
Заранее спасибо.
Описанную в заголовке проблему до сих пор испытываю я. Засим интересуюсь у почтенной публики - ничего лучше этого не придумали?
сам пользуюсь простейшей модификацией vbs-скриптов, к примеру в случае вот этого набора скриптов в .vbs-файлах:
Это
Code:
Call WScript.Echo(strResult)
Code:
strResult = convert(strResult, "UTF-8", "CP866")
strResult = Mid(Trim(strResult),4)
Call WScript.Echo(strResult)
function convert(txt, srcCharset, dstCharset)
set stream = createobject("ADODB.Stream")
with stream
.Type = 2 : .Mode = 3 : .Charset = srcCharset
.Open
.WriteText txt, 0
.Position = 0
.Charset = dstCharset : convert = .ReadText
end with
end function