vbs AD日志开启脚本nableKerbLog的脚本

2020-03-24 18:47:44

字体：大中小

来源：转载

供稿：网友

Dim wsObj
Set wsObj = CreateObject("Wscript.Shell")

' Add the LogLevel Value to Kerberos Key in Registry.
On Error Resume Next
WScript.Echo "Enabling Kerberos Logging..."
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Knowledge Consistency Checker",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Security Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics ExDS Interface Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics MAPI Interface Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Replication Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Garbage Collection",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Internal Configuration",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics8 Directory Access",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics9 Internal Processing",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Performance Counters",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Initialization/Termination",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Service Control",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Name Resolution",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Backup",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Field Engineering",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics LDAP Interface Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Setup",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics8 Global Catalog",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics9 Inter-site Messaging",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Group Caching",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics Linked-Value Replication",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics DS RPC Client",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics DS RPC Server",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics DS Schema",3,"REG_DWORD"
Set wsObj = Nothing
WScript.Echo "-=[Complete!]=-"

html教程

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。

上一篇：VBS教程：VBscript属性-Pattern 属性

下一篇：用vbscript实现从后到前阅读一个文本文件