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!]=-"
【vbs AD日志开启脚本nableKerbLog的脚本】相关文章：