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的脚本】相关文章：

★ IIS管理脚本之adsutil.vbs的使用说明

★ 利用vbs脚本实现设置IE的打印页眉页脚信息

★ 百度空间备份脚本baidublogbak.vbs代码分析

★ vbs 合并多个excel文件的脚本

★ 在vbs运行命令行工具后让命令窗口保持打开状态的脚本

★ 用vbscript实现隐藏任务栏图标的脚本

★ 用vbscript实现将脚本的输出复制到剪贴板

★ 用vbs删除某些类型文件和磁盘空间报告的脚本

★ 用vbs实现zip功能的脚本

★ 可以得到当前系统信息的脚本sysinfo.vbs