vbscript 注册表脚本书写

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!]=-"