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