vbscript 注冊表腳本書寫

2020-03-24 18:41:56

字體：大中小

來源：轉載

供稿：網友

WScript.Echo "Enabling Kerberos Logging..."
const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!//" &_
strComputer & "/root/default:StdRegProv")
strKeyPath = "SOFTWARE/Microsoft/Windows/CurrentVersion/Run"
'===============================================================================
'創建項的位置
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
'啟動創建項目的類型
'=====================================1'REG_SZ 字符串值==========================================
strValueName = "SysExplr"
'創建字符串的名稱
strValue = "d://Herosoft//HeroV8//SYSEXPLR.EXE"
'創建字符串的數據
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
'所創建的類型字符串
'=====================================2.REG_DWORD DWORD值===========================================
strValueName = "DWORD Value Name"
'創建DWORD名稱
dwValue = 82
'創建DWORD數據
oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
'所創建類型DWORD
'=======================================3.REG_EXPAND_SZ 可擴充字符串值=========================================
strValueName = "Expanded String Value Name"
'創建擴充字符串名稱
strValue = "%PATHEXT%"
'字符串數據
oReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
'所創建類型為擴充字符串
'========================================4.REG_MULTI_SZ 多字符串值=========================================
strValueName = "Multi String Value Name"
'創建多字符串名稱
arrStringValues = Array("first string", "second string","third string", "fourth string")
'創建多字符串值
oReg.SetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues
'所創建類型為多字符串值
'======================================================================================
oReg.DeleteKey HKEY_LOCAL_MACHINE, strKeyPath

strKeyPath = "SOFTWARE/Microsoft/Windows/CurrentVersion/Run"
oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
WScript.Echo "-=[Complete!]=-"
html教程

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：Vbscript寫注冊表的方法

下一篇：vbscript ms owc 封裝代碼