Vbs windows 1251 to utf 8

Гена9

0 / 0 / 0

Регистрация: 08.04.2015

Сообщений: 28

Метки нет (Все метки)

Здравствуйте!
Есть скрипт vbs, который записывает инфу о версии и сборке системы в Winver.txt
И к сожалению этот файл выводится в кодировке ANSI и соответственно не все символы видны.
Вопрос в том, можно ли перекодировать и вывести его в кодировке utf8, какую запись добавить?
Пробовал разные варианты, но ни один не подходит к этому скрипту или файл сам создается в utf8,но пустым без инфы о системе
Удалось только перекодировать в utf-16le, но оно вообще портит запись в файле

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

Dim objWMI, Win7, ProductInstances
Win7 = False
Call Main()
Sub Main()
    On Error Resume Next
    Set objWMI = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & "." & "rootcimv2")
    ExecuteQuery "Caption, Version","Win32_OperatingSystem"
    For Each Instance in ProductInstances
        Set fso=CreateObject("Scripting.FileSystemObject")
        Set objFile=fso.OpenTextFile("WinVer.txt",8,true)
        With objFile
        .WriteLine("Windows Версия: "&Instance.Caption)
        .WriteLine("Сборка: "&Instance.Version)
        End With
    Next
End Sub
 
Function ExecuteQuery(strSelect,strClass)
    Set ProductInstances = objWMI.ExecQuery("SELECT " & strSelect & " FROM " & strClass)
End Function

FlasherX

5292 / 2481 / 987

Регистрация: 06.06.2017

Сообщений: 8,483

С чего бы?

1
2
3

For Each i in GetObject("winmgmts:\.rootcimv2").ExecQuery("SELECT Caption,Version FROM Win32_OperatingSystem")
   CreateObject("Scripting.FileSystemObject").CreateTextFile("WinVer.txt",1,1).Write "Windows Версия: " & i.Caption & vbCrLf & "Сборка: " & i.Version
Next

0 / 0 / 0

Регистрация: 08.04.2015

Сообщений: 28

Не помогает и опять же выходной файл в кодировке utf-16 LE с BOM

5292 / 2481 / 987

Регистрация: 06.06.2017

Сообщений: 8,483

Punkt5

1122 / 428 / 185

Регистрация: 30.01.2020

Сообщений: 1,070

Гена9, Попробуйте открывать/создавать файл в ANSI, а просто запись делать с предварительной перекодировкой текста в UTF-8 с помощью подпрограммы типа:

1
2
3
4
5
6
7
8
9
10
11
12

sub writeUTF8toFile(Text) 'Преобразуем строку из Ansi в UTF-8 и сразу выводим в файл.
  Dim Stream
  Set Stream=CreateObject("ADODB.Stream")
  Stream.Type=2
  Stream.Mode=3
  Stream.Open
  Stream.Charset="utf-8" 'Во что преобразуем
  Stream.WriteText Text
  Stream.Position=0
  Stream.Charset="Windows-1251"'Из чего преобразуем
  ObjFile.writeline Mid(Stream.ReadText,4) 'записываем сразу в файл
End Sub

А файл ObjFile так и открывать в ANSI формате.
Или возвращать строку, переделав эту подпрограмму в функцию, или найдя аналогичную функцию преобразвания в нете.

0 / 0 / 0

Регистрация: 08.04.2015

Сообщений: 28

0 / 0 / 0

Регистрация: 08.04.2015

Сообщений: 28

К сожалению я в этом не силен, куда и как добавить чтоб заработало
В инете уже больше недели ничего подходящего не нашел к этому скрипту и поэтому уже решил обратиться к знающим!

Punkt5

1122 / 428 / 185

Регистрация: 30.01.2020

Сообщений: 1,070

А как вы собираетесь приспосабливать к своим задачам то, что вам посоветуют? Вам же наверное не эта мура нужна, что вы приложили?

Конкретно для приложенного случая изменение будет выглядеть так:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

Dim objWMI, Win7, ProductInstances, objFile, FSO
Win7 = False
Call Main()
 
Sub Main()
    Set fso=CreateObject("Scripting.FileSystemObject")
    Set objFile=fso.OpenTextFile("WinVer.txt",8,true)
 
    Set objWMI = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\" & "." & "rootcimv2")
    ExecuteQuery "Caption, Version","Win32_OperatingSystem"
    For Each Instance in ProductInstances
        writeUTF8toFile("Windows Версия: "&Instance.Caption)
        writeUTF8toFile("Сборка: "&Instance.Version)
    Next
End Sub
 
Function ExecuteQuery(strSelect,strClass)
    Set ProductInstances = objWMI.ExecQuery("SELECT " & strSelect & " FROM " & strClass)
End Function
 
sub writeUTF8toFile(Text) 'Преобразуем строку из Ansi в UTF-8 и сразу выводим в файл.
  Dim Stream
  Set Stream=CreateObject("ADODB.Stream")
  Stream.Type=2
  Stream.Mode=3
  Stream.Open
  Stream.Charset="utf-8" 'Во что преобразуем
  Stream.WriteText Text
  Stream.Position=0
  Stream.Charset="Windows-1251"'Из чего преобразуем
  ObjFile.writeline Mid(Stream.ReadText,4) 'записываем сразу в файл
End Sub

Создание объектов FSO и ObjFile я вынес из цикла — зачем им каждый раз создаваться по новой?

0 / 0 / 0

Регистрация: 08.04.2015

Сообщений: 28

Первый раз сталкиваюсь с таким тяжелым скриптом
И до этого еще приспосабливал, а то все выдавал вообще криво косо (с Поднебесной создавали поэтому) и сейчас попробую разобраться
Если нет, то и до этого сделанного хватит и обойдусь без Winver записи
Именно нужно было узнать, как можно преобразовать в utf8 за что Вас Благодарю!

PS: Файл хоть и преобразовался в utf8, а Кириллица все ровно в ней не читается

Punkt5

1122 / 428 / 185

Регистрация: 30.01.2020

Сообщений: 1,070

А это точно та кириллица, что была записана в него в UTF-8? Или та, что была записана ранее в UTF-16?

Попробуйте в строке

1

Set objFile=fso.OpenTextFile("WinVer.txt",8,true)

Заменить 8 на 2. Тогда файл будет создан с нуля, даже, если он уже существует.

0 / 0 / 0

Регистрация: 08.04.2015

Сообщений: 28

Записал Кириллицу заново и заменил восьмерку на двойку (по умолчанию), но развития не последовало

Добавлено через 6 минут
Преобразовал файл скрипта в win-1251 и успех, Кириллица читается
А вот с utf8 и oem 866 не читалась

5292 / 2481 / 987

Регистрация: 06.06.2017

Сообщений: 8,483

Ха. А при чём тут тогда проблемы кода? Если пишете скрипт с кириллицей, то обязаны сохранять .vbs в ANSI или UTF-16. Проверяйте мой в годной кодировке. Не нужен вам этот монстр на 20-30+ строк. И UTF-8 тоже не нужен.

0 / 0 / 0

Регистрация: 08.04.2015

Сообщений: 28

Ничего не подходит
И Ваше решение и последующее все делает частично

5292 / 2481 / 987

Регистрация: 06.06.2017

Сообщений: 8,483

0 / 0 / 0

Регистрация: 08.04.2015

Сообщений: 28

Частично это значит нет оригинального решения, чтоб сказать вот все встает на свое места, то есть как хотелось бы
А то что скрипт был написан в совсем другой кодировке это и так ясно

5292 / 2481 / 987

Регистрация: 06.06.2017

Сообщений: 8,483

0 / 0 / 0

Регистрация: 08.04.2015

Сообщений: 28

Да просто говорю
Ваш код выдает без крякозябры если сам файл преобразовать в utf16 le

Добавлено через 3 минуты

Хотел чтоб оставалась в utf8, но увы
Благодарю Вас за код!
Вставляется то есть приспосабливается без танцев

FlasherX

5292 / 2481 / 987

Регистрация: 06.06.2017

Сообщений: 8,483

Прежде стоило понятие универсальности загуглить.

Какой файл? Скриптовый? Я же привёл кодировки на выбор (LE или BE, не суть). ANSI уместней, т. к. вдвое меньший размер и нет никакого Юникода.

Скрипт? Таковы условия WSH, тут ничего не попишешь. Можно извратиться и с UTF-8, только в этом не будет никакого практического смысла:

1
2
3
4
5

Set oCvt = CreateObject("OlePrn.OleCvt.1")
For Each i in GetObject("winmgmts:\.rootcimv2").ExecQuery("SELECT Caption,Version FROM Win32_OperatingSystem")
   CreateObject("Scripting.FileSystemObject").CreateTextFile("WinVer.txt", 1).Write _
   oCvt.ToUnicode("Windows Версия: ", 65001) & i.Caption & vbCrLf & oCvt.ToUnicode("Сборка: ", 65001) & i.Version
Next

0 / 0 / 0

Регистрация: 08.04.2015

Сообщений: 28

Универсальность или оригинальность, написал просто не в прямом смысле!
Вообще не гуглю, а Яндекслю!

Да, файл скриптовый.
Не заметил где Вы предложили кодировки на выбор.
Пока что сам файл скрипта в кодировке utf16 le с bom.
И кстати хотел спросить в какую кодировку преобразовать чтоб в разных локализованных системах (Например: Английской,Китайской,Японской) работала, то есть записи Версия: и Сборка: выводились на Кириллице!?
Значит как понимаю в ANSI лучше!?

Все понял уже когда столкнулся с этим скриптом — не простой язык.
Да конечно и в utf8 тоже портятся символы часто и глупо это отрицать или верить в уникальность этой кодировки!
Благодарю за новый код!
Еще не использовал — использую отпишусь

Добавлено через 2 минуты

Уже приспособил и работает как часы!
Пришлось только вот, файл скрипта преобразовать с utf8 в utf16 le с bom — можно и в ansi
Благодарю Вас еще раз за код!

5292 / 2481 / 987

Регистрация: 06.06.2017

Сообщений: 8,483

Я уже начинал догадываться.

В 12 посте, который продублирован (зачем-то) в цитате 13-го:

Нет, в таком случае как раз понадобится UTF-16.

При чём тут простота языка? WSH — это сервер сценариев, а не язык. У другого интерпретатора этого же языка могут быть другие условия. И похожий батник в ANSI без chcp 1251 даст кракозябры. Язык тут ни при чём.

Как и в любой кухне, главное уметь правильно готовить, тогда портиться ничего не будет.