WScript.Echo"EnablingKerberosLogging..."

constHKEY_LOCAL_MACHINE=&H80000002

strComputer="."

SetStdOut=WScript.StdOut

SetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!"&_

strComputer&"rootdefault:StdRegProv")

strKeyPath="SOFTWAREMicrosoftWindowsCurrentVersionRun"

'===============================================================================

'创建项的位置

oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath

'启动创建项目的类型

'=====================================1'REG_SZ字符串值==========================================

strValueName="SysExplr"

'创建字符串的名称

strValue="d:HerosoftHeroV8SYSEXPLR.EXE"

'创建字符串的数据

oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

'所创建的类型字符串

'=====================================2.REG_DWORDDWORD值===========================================

strValueName="DWORDValueName"

'创建DWORD名称

dwValue=82

'创建DWORD数据

oReg.SetDWORDValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

'所创建类型DWORD

'=======================================3.REG_EXPAND_SZ可扩充字符串值=========================================

strValueName="ExpandedStringValueName"

'创建扩充字符串名称

strValue="%PATHEXT%"

'字符串数据

oReg.SetExpandedStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

'所创建类型为扩充字符串

'========================================4.REG_MULTI_SZ多字符串值=========================================

strValueName="MultiStringValueName"

'创建多字符串名称

arrStringValues=Array("firststring","secondstring","thirdstring","fourthstring")

'创建多字符串值

oReg.SetMultiStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,arrStringValues

'所创建类型为多字符串值

'======================================================================================

oReg.DeleteKeyHKEY_LOCAL_MACHINE,strKeyPath

strKeyPath="SOFTWAREMicrosoftWindowsCurrentVersionRun"

oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath

WScript.Echo"-=[Complete!]=-"