VB Script Региональные настройки

Question

Можно ли установить региональные настройки для процесса через скрипт VB?

Dim oEnv: Set oEnv = WshShell.Environment("PROCESS")
oEnv.Item("NLS_LANG") = "AMERICAN_AMERICA.WE8MSWIN1252"

Это один бит кода, который я получил. Не уверен, как это работает? Я хотел бы установить стандарты и форматы для моего приложения специально для Соединенных Штатов из Великобритании.

Спасибо нишант

Answer 1

Ваш компьютер использует переменные среды для запоминания определенных внутренних настроек приложений. Вы можете просмотреть их, нажав клавишу Windows (флаг) + Пауза / Прерывание, выбрав вкладку "Дополнительно", нажав кнопку "Переменные среды" и заглянув в раздел "Системные переменные".

С помощью объекта WshShell.Environment вы можете читать и записывать эти переменные:

Option Explicit
dim wshshell, EnvVar
set WshShell = WScript.CreateObject("WScript.Shell")

Dim oEnv: Set oEnv = WshShell.Environment("PROCESS") 

' This shows you all environment variables in your system:    
For each EnvVar in oEnv
    msgbox EnvVar
Next

' This shows you a particular environment variable:
msgbox oEnv.item("OS")

' And this sets a particular environment variable:
oEnv.Item("NLS_LANG") = "AMERICAN_AMERICA.WE8MSWIN1252"  

NLS_LANG это параметр, используемый Oracle и задающий культурные параметры. Установив его на AMERICAN_AMERICA.WE8MSWIN1252 вы говорите своей реализации Oracle, какую культуру вы хотите использовать в вашей конкретной системе (помните, что переменные среды зависят от ПК). Вы можете найти больше информации об этом в сети.

Answer 2

Это должно быть установлено в реестре. Путь к реестру, который вы используете, отличается в зависимости от используемой версии.

Для Oracle версии 7:

HKEY_LOCAL_MACHINE \ SOFTWARE \ ORACLE

Const HKEY_LOCAL_MACHINE = &H80000002

strKeyPath = "SOFTWARE\ORACLE"
strValueName = "NLS_LANG"
strValue = "AMERICAN_AMERICA.WE8MSWIN1252"

strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

Для баз данных Oracle версий 8, 8i и 9i:

HKEY_LOCAL_MACHINE \ SOFTWARE \ ORACLE \ HOMEx \ где "x" - это уникальный номер, идентифицирующий дом Oracle. HOME0 - это первая установка

Const HKEY_LOCAL_MACHINE = &H80000002

strKeyPath = "SOFTWARE\ORACLE\HOMEx"
strValueName = "NLS_LANG"
strValue = "AMERICAN_AMERICA.WE8MSWIN1252"

strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue

Для базы данных Oracle 10g:

HKEY_LOCAL_MACHINE \ SOFTWARE \ ORACLE \ KEY_

Const HKEY_LOCAL_MACHINE = &H80000002

strKeyPath = "SOFTWARE\ORACLE\KEY_<oracle_home_name>"
strValueName = "NLS_LANG"
strValue = "AMERICAN_AMERICA.WE8MSWIN1252"

strComputer = "."
Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
objRegistry.SetStringValue HKEY_LOCAL_MACHINE, strKeyPath, strValueName, strValue