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實現從后到前閱讀一個文本文件