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的使用说明

★ vbscript禁用 启用fso的方法

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

★ 用VBS检测Guest状态的脚本

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

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

★ 用vbs判断系统补丁的脚本

★ windows脚本调试howto的方法

★ vbs实现的定时提醒你休息的脚本

★ vbs更改3389远程桌面端口的脚本