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