Почему не получается изменить кодировку текста?

На просторах Интернета нашёл VBS скрипт, который должен менять кодировку текста:

Set stream = CreateObject("ADODB.Stream")
stream.Type = 2
stream.Charset = "windows-1251"
stream.Open()
stream.LoadFromFile("G:\sourceFile.txt")
Text = stream.ReadText()
stream.Close()

stream.Charset = "windows-1256"
stream.Open()
stream.WriteText(Text)
stream.SaveToFile "G:\resultFile.txt", 2
stream.Close()

Но при попытке перекодировать текст

Привет, я Дима!

из Windows-1251 в Windows-1256 (арабские символы) он выводит

?»??????????µ?‚, ?? ?”?????°!

И это совсем не похоже на арабские символы. Подскажите, в чём загвоздка и как решить задачу?