Создать Winver.txt в кодировке utf8 в vbs скрипте

@Гена9 · Регистрация: 08.04.2015

Студворк — интернет-сервис помощи студентам

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

Кликните здесь для просмотра всего текста

Visual Basic
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}!\\" & "." & "\root\cimv2")
    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

@Гена9 · 18.09.2021, 12:55 **[ТС]**

Сообщение от FlasherX

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

Спасибо, хоть буду иметь понятие различия
Очень помогли!
Последний Ваш код отлично работают - все выдает правильно!
Благодарю Вас!

Добавлено через 10 минут
А можно сделать в этом скрипте, так чтоб и Выпуск (ReleaseId) системы выдавал - записывал в тот же текстовый файл?
В Win32_OperatingSystem не нашел такого
Через реестр есть скрипт, но его не могу приспособить к этому скрипту
Скрипт через реестр:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
Set windowsShell = CreateObject("WScript.Shell")
regValue = windowsShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ReleaseId")

FlasherX · 18.09.2021, 13:44

Гена9, пожал'ста. Параметр ReleaseId есть только на Win 10-11.
Но если очень надо, то:

Visual Basic
1
2
3
4
5
6
7
On Error Resume Next
Set oCvt = CreateObject("OlePrn.OleCvt")
Release  = vbCrLf & oCvt.ToUnicode("Выпуск: ", 65001) & CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ReleaseId")
For Each i in GetObject("winmgmts:\\.\root\cimv2").ExecQuery("SELECT Caption,Version FROM Win32_OperatingSystem")
   CreateObject("Scripting.FileSystemObject").CreateTextFile("WinVer.txt", 1, 1).Write _
   oCvt.ToUnicode("Windows Версия: ", 65001) & i.Caption & vbCrLf & oCvt.ToUnicode("Сборка: ", 65001) & i.Version & Release
Next

@Гена9 · 18.09.2021, 14:07 **[ТС]**

Сообщение от FlasherX

Но если очень надо, то:

Благодарю Вас!
Работает отлично!

Новые блоги и статьи Все статьи Все блоги /
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .