WScript.Echo"EnablingKerberosLogging..."

constHKEY_LOCAL_MACHINE=&H80000002

strComputer="."

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

strComputer&"rootdefault:StdRegProv")

strKeyPath="SOFTWARE999"

strDWORDValueName="DWORDValueName"

strExpandedStringValueName="ExpandedStringValueName"

strMultiStringValueName="MultiStringValueName"

strStringValueName="StringValueName"

strValueName="strValueName"

oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strDWORDValueName

oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strExpandedStringValueName

oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strMultiStringValueName

oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,StringValueName

oReg.DeleteValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName

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