Да-да, я тоже возмущен! И почему никто на этом форуме (несомненно являющемся негласным отделением Microsoft)

почему "тоже" и почему сразу "является отделением MS" - ветка же по VBS, что не логичного в посте здесь?  я вовсе не возмущен. за ответ спасибо.

off > зы. а что у вас с кэп'ом связано, просто непонятно выражаетесь как-то ?

Да-да, я тоже возмущен! И почему никто на этом форуме (несомненно являющемся негласным отделением Microsoft) не берется ответить на такие простые вопросы как, например:
- за что отвечает вот этот вот конкретный ключ в реестре?
- почему это в ветке кодовых наборов находятся названия стандартов кодирования, а в разделе кодовых страниц - какие-то циферки?! Ведь это же совершенно непонятно и нелогично!

(И под влиянием нездоровых эмоций бросаюсь на амбразуру отвечать на дурацкие вопросы со всей серьезностью. )

Еще раз, другими словами: "Это реестр, детка". MS не обязаны сообщать в деталях о внутренностях своей ОС. А все что они-таки сочли нужным сообщить, можно узнать используя магическое сочетание STFW. Или проводить собственные исследования.

Часто логика и назначение значений известна лишь разработчикам. Соответственно, utf-7 и utf-8 в реестре это такие подключи (привет от кэпа). А в мире это ни наборы символов, ни кодовые страницы, а подвиды unicode, у которого кодовых страниц нет в принципе, ну или, если так можно выразиться, есть одна единственная, но не суть... Может не стоит искать логику там, где ее может и не быть?

Капитан Очевидность также сообщает, что InternetEncoding - это идентификатор метода определения кодировки интернет-контента, а судя по наличию его в ключах типа charset\_autodetect, сей метод вероятно завязан на логику некоего конкретного приложения (а не браузер IE ли это, предположит внимательный читатель), что ставит под сомнение целесообразность использования данного идентификатора для определения характеристик какой либо из локалей ОС.

Чего еще не ответил?.. Ах, да! 1200 - думаю, это просто такое красивое круглое число. Вот! По мнению MS оно как-то связано с unicode, а по мнению Руслана Петренко из Украины, оно связано с IE, который уже в свою очередь связан с MS, которые, как мы уже знаем, известно что думают. Как ни странно, я склоняюсь ко мнению последнего, не пренебрегая впрочем мнением первых. А с учетом того, что это число также связано с InternetEncoding, для нас оно интереса скорей всего не представляет.

Все не так уж важно (с) Мумий Тролль о значении внутренних значений реестра Windows, предположительно.

[/Лирическая страничка маньяка-исследователя]

alexii упоминал про функции WinAPI32, но не сообщил о возвращаемых значениях. Для полноты картины восполняю пробел примером на jscript с использованием DynamicWrapperX

var DX = new ActiveXObject("DynamicWrapperX");
DX.Register("Kernel32.dll", "GetACP", "r=u");
WScript.Echo(DX.GetACP()); //возвращает 1251
//UINT GetOEMCP(void);
DX.Register("Kernel32.dll", "GetOEMCP", "r=u");
WScript.Echo(DX.GetOEMCP()); //возвращает 866

(ЗЫ. Здесь вообще пишут http://msdn.microsoft.com/ru-ru/library/2x8et5ee.aspx: A code page is a character set  Ну т.е. как Вы говорите грань отсутствует)

Основы читаны уже давно и не раз и про локаль и про кодепэйдж и про кодовый набор, но при всем при том я не могу врубиться в различия между codepage и кодовым набором(charset), и , если они зависят от locale, то, конечно, хочется понять и эту зависимость.

Что-то видимо не там читали, раз непонятно. Вот, например, в статье Языковые стандарты и кодовые страницы все ясно английским/русским языком написано (рекомендую зайти в Предпочтения сверху-справа и выбрать классический стиль отображения, чтобы видеть en/ru).
Таким образом, набор символов (charset) это просто набор буковок безотносительно языка и кодов (ABCD...), кодовая страница (code page) - сопоставление некоторых буковок с некоторыми кодами (Я-239, ...), а языковой стандарт или локаль (locale) - это сочетание языка, кодовой страницы и местных настроек сортировки, представления даты-времени, валют и пр.

С другой стороны, грань между charset и codepage "вдали от теории", в дебрях документации вечно спешащих разработчиков - она там часто просто отсутствует.

так где тут кодовая страница? Может кто-ни распутаться с этими тремя соснами ?

Исключительно, чтобы окончательно все запутать - "тысячи их".
Там же выше упоминается ключик HKEY_CURRENT_USER\Control Panel\International\Locale (="00000409" -> 16-чное 0x409 = 10-чное 1049), изменение значения которого в реестре мгновенно отзывается на результате GetLocale. Но, повторяюсь, это путь великого реестрового запутывания.

А вот чтобы разобраться, начинаем с основ, смотрим стандарты, а также читаем мнение MS по этому поводу.

Вот в реестре Windows, как выше говорилось, есть три  ветки :

HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage\
HKCR\Mime\Database\Charset\
HKCR\Mime\Database\Codepage\

первая дает вроде как кодовые страницы - числа, куча чисел ( ACP = 1251, OEMACP = 866 у меня ).
вторая - названия кодовых наборов (charset) или их алиасов . В этой ветке для кодовых наборов также указана кодовая страница codepage и InternetEncoding (InternetEncoding - что это?).
третья  - вот что дает, не понимаю.

Вот , Скажем, во второй ветке для charset : 
utf-7 - InternetEncoding=65000,  utf-8 -> InternetEncoding=65001, а codepage у них один - 1200.
Кроме того, для ключей 65000 и 65001 в третьей вышеописанной ветке реестра есть параметр Family , который = 1200 для обоих.

так где тут кодовая страница? Может кто-ни распутаться с этими тремя соснами ?

PS. Кстати, - зачем заботиться от убивстве объектов в конце - ведь VBS сам это делает при выходе из процедуры ?

Сила привычки, оставшаяся от C. В основном, предпочитаю заботиться об этом сам. Отчасти ещё и потому, что любой код может стать частью какого-либо другого, более объёмного кода.

OFF: Завидую Вашим глазам .

Я секунды не считал, наверно, - тоже как-то так, но на глаз это заметно

Незачем считать. Достаточно добавить:

WScript.Echo Timer

до и после, затем сравнить. Запустил на машине с давно установленной и весьма потрудившейся ОС:

67252.17
OEMCP: 866
Charset: ibm866
67252.45

Чему там тормозить-то? У Вас случайно KAV/KIS не стоит?!

В каком цикле? В таком?

Option Explicit

Dim elem

WScript.Echo Timer

WScript.Echo GetCharsetNameOnNlsCP(Array("OEMCP", "ACP"))

WScript.Echo Timer

WScript.Quit 0

Function GetCharsetNameOnNlsCP(arrCodePages)
    Const HKEY_CLASSES_ROOT  = &H80000000
    Const HKEY_LOCAL_MACHINE = &H80000002
    
    Dim objSWbemServicesEx
    Dim objSWbemObjectEx
    
    Dim arrSubKeys
    Dim elem, elem2
    Dim strValue, lngValue
    Dim strOut
    
    Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default")
    Set objSWbemObjectEx = objSWbemServicesEx.Get("StdRegProv")
    
    strOut = ""
    
    For Each elem In arrCodePages
        If objSWbemObjectEx.GetStringValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\Nls\CodePage", elem, strValue) = 0 Then
            'WScript.Echo elem, strValue
            
            If objSWbemObjectEx.EnumKey(HKEY_CLASSES_ROOT, "MIME\Database\Charset", arrSubKeys) = 0 Then
                For Each elem2 In arrSubKeys
                    If objSWbemObjectEx.GetDWORDValue(HKEY_CLASSES_ROOT, "MIME\Database\Charset\" & elem2, "InternetEncoding", lngValue) = 0 Then
                        If CStr(lngValue) = strValue Then
                            'WScript.Echo "Charset:", elem2
                            strOut = strOut & elem2 & vbCrLf
                        End If
                    End If
                Next
            End If
        End If
    Next
    
    Set objSWbemObjectEx   = Nothing
    Set objSWbemServicesEx = Nothing
    
    GetCharsetNameOnNlsCP = strOut
End Function

Опять-таки, не вижу тормозов:

У меня сие занимает не более полусекунды. Реестр, правда, на свежеустановленной ОС пока практически пустой:

Я секунды не считал, наверно, - тоже как-то так, но на глаз это заметно, а если в цикле, - тогда вобще...
Вот ,как оказалось, если Ваш вариант преобразолвать как-то так, то гораздо скорее получается (раз в 10 скорее, а может больше):

Public Function GetCharsetNameOnNlsCP(CP)
Const HKEY_CLASSES_ROOT = &H80000000, HKEY_LOCAL_MACHINE = &H80000002
Dim objSWbemServicesEx, objSWbemObjectEx, arrSubKeys, elem, strValue, lngValue, i, sh
Set sh = CreateObject("WScript.Shell")
GetCharsetNameOnNlsCP = ""
If CP = "" Then CP = "ACP"
CP = Split(CP, ",")

Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default")
Set objSWbemObjectEx = objSWbemServicesEx.get("StdRegProv")

With objSWbemObjectEx
If .EnumKey(HKEY_CLASSES_ROOT, "MIME\Database\Charset", arrSubKeys) = 0 Then
 For i = 0 To UBound(CP)
 If .GetStringValue(HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\Nls\CodePage", CP(i), strValue) = 0 Then 'OEMCP ACP
   On Error Resume Next
   For Each elem In arrSubKeys
    'If .GetDWORDValue(HKEY_CLASSES_ROOT, "MIME\Database\Charset\" & elem, "InternetEncoding", lngValue) = 0 Then ' Ниже побыстрее будет
    lngValue = sh.RegRead("HKCR\Mime\Database\Charset\" & elem & "\InternetEncoding") ' м.б. - Не удается открыть для чтения раздел реестра
    If Err.Number = 0 Then
     If CStr(lngValue) = strValue Then
      If GetCharsetNameOnNlsCP <> "" Then elem = "," & elem
      GetCharsetNameOnNlsCP = GetCharsetNameOnNlsCP & elem: Exit For
     End If
    End If
    Err.Clear
   Next
 End If
 Next
End If
End With

End Function ' GetCurrentCharsetName -->>

PS. Кстати, - зачем заботиться от убивстве объектов в конце - ведь VBS сам это делает при выходе из процедуры ?

allexii…

Лучше пользуйтесь цитированием .

У меня сие занимает не более полусекунды. Реестр, правда, на свежеустановленной ОС пока практически пустой:

wmic.exe registry get CurrentSize

И даже пока не фрагментированный (во всяком случае, «C:\WINDOWS\system32\config\system»), судя по «PageDefrag».

HKEY_USERS\.DEFAULT\Control Panel\International\Locale

(а, может, из HKCU), одно из:

HKEY_CLASSES_ROOT\MIME\Database\Rfc1766\

не более того.

Кодировка же может быть в принципе любой. Где искать для локали по умолчанию:

HKLM\SYSTEM\CurrentControlSet\Control\Nls\CodePage\ACP … OEMCP

Вы уже упомянули в первом же посте темы. Я нашёл относительное подтверждение, что это правильный подход (только для скриптов, разумеется) в KB153449, KB199819, KB304614, KB867677. Переход от найденного значения «ACP»/«OEMCP» к «Charset» в посте #15. Или что-то ещё нужно? Потому как вопрос:

не понятен, ибо, начиная перекодировку в «ADODB.Stream», нужно в любом случае заранее знать кодировку исходного текста.