จะเพิ่มรีจิสตรีคีย์ด้วย VBScript ได้อย่างไร?

ฉันต้องการเพิ่มรีจิสตรีคีย์ (DWORD = 1) HKEY_LOCAL_MACHINE \SYSTEM\CurrentControlSet\Control\StorageDevicePolicies ใช้ VBScript ฉันจะทำสิ่งนั้นได้อย่างไร

ตัวอย่างของการสร้างรายการรีจิสทรีคือ:

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

ที่เป้าหมายสามารถเปลี่ยนแปลงได้ตามความต้องการของคุณ

แหล่ง

ตัวอย่างบางส่วน:

ตัวอย่างที่ 1 : ตั้งค่าสถานะรีจิสทรีเพื่อแสดงไฟล์ที่ซ่อนและระบบใน 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

ตัวอย่างที่ 2 : ตั้งค่าสถานะรีจิสทรีเพื่อซ่อนไฟล์ที่ซ่อนไว้และไฟล์ระบบใน Windows Explorer (ค่าเริ่มต้น):

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