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