DimwsObj

SetwsObj=CreateObject("Wscript.Shell")

'AddtheLogLevelValuetoKerberosKeyinRegistry.

OnErrorResumeNext

WScript.Echo"EnablingKerberosLogging..."

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics1KnowledgeConsistencyChecker",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics2SecurityEvents",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics3ExDSInterfaceEvents",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics4MAPIInterfaceEvents",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics5ReplicationEvents",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics6GarbageCollection",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics7InternalConfiguration",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics8DirectoryAccess",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics9InternalProcessing",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics10PerformanceCounters",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics11Initialization/Termination",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics12ServiceControl",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics13NameResolution",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics14Backup",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics15FieldEngineering",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics16LDAPInterfaceEvents",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics17Setup",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics18GlobalCatalog",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics19Inter-siteMessaging",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics20GroupCaching",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics21Linked-ValueReplication",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics22DSRPCClient",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics23DSRPCServer",3,"REG_DWORD"

wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics24DSSchema",3,"REG_DWORD"

SetwsObj=Nothing

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