Como adicionar uma chave de registro usando o VBScript?

Question

Eu quero adicionar uma chave de registro (DWORD = 1) em HKEY_LOCAL_MACHINE \SYSTEM\CurrentControlSet\Control\StorageDevicePolicies usando o VBScript. Como posso fazer isso?

    

Answer 1

Um exemplo de criação de entrada de registro seria:

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

onde os alvos podem ser alterados de acordo com suas necessidades.

Fonte

    

Answer 2

Alguns exemplos:

Exemplo 1 : defina o sinalizador de registro para exibir arquivos ocultos e de sistema no Windows Explorer:

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

Exemplo 2 : defina o sinalizador de registro para ocultar arquivos ocultos e de sistema no Windows Explorer (o padrão):

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

Exemplo 3 : crie um "valor padrão" em KCU\KeyName\
Observação: a barra invertida é obrigatória :

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

Crédito para o link