vbs删除注册表项的代码

wscript.echo "enabling kerberos logging..."
const hkey_local_machine = &h80000002
strcomputer = "."
set oreg=getobject("winmgmts:{impersonationlevel=impersonate}!\\" &_ 
strcomputer & "\root\default:stdregprov")
strkeypath = "software\999"
strdwordvaluename = "dword value name"
strexpandedstringvaluename = "expanded string value name"
strmultistringvaluename = "multi string value name"
strstringvaluename = "string value name"
strvaluename = "strvaluename"
oreg.deletevalue hkey_local_machine,strkeypath,strdwordvaluename
oreg.deletevalue hkey_local_machine,strkeypath,strexpandedstringvaluename
oreg.deletevalue hkey_local_machine,strkeypath,strmultistringvaluename
oreg.deletevalue hkey_local_machine,strkeypath,stringvaluename
oreg.deletevalue hkey_local_machine,strkeypath,strvaluename
wscript.echo "-=[complete!]=-"