Как добавить раздел реестра с помощью VBScript?

Question

Я хочу добавить раздел реестра (DWORD = 1) в HKEY_LOCAL_MACHINE \SYSTEM\CurrentControlSet\Control\StorageDevicePolicies с использованием VBScript. Как я могу это сделать?

Answer 1

Примером создания записи реестра будет:

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Script Center"
strValueName = "My DWORD Value"
dwValue = 13

objRegistry.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue

где цели могут быть изменены в соответствии с вашими потребностями.

Источник

Answer 2

Некоторые примеры:

Пример 1. Установите флажок реестра для отображения скрытых и системных файлов в проводнике Windows:

Set WshShell = CreateObject("WScript.Shell")
myKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
WshShell.RegWrite myKey,1,"REG_DWORD"
Set WshShell = Nothing

Пример 2. Установите флаг реестра, чтобы скрыть скрытые и системные файлы в проводнике Windows (по умолчанию):

Set WshShell = CreateObject("WScript.Shell")
myKey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
WshShell.RegWrite myKey,0,"REG_DWORD"
Set WshShell = Nothing

Пример 3. Создайте "значение по умолчанию" в KCU\KeyName\
Примечание. Конечная косая черта обязательна:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\KeyName\","", "REG_SZ"
Set WshShell = Nothing

Кредит http://ss64.com