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