vbs AD日志开启脚本nableKerbLog的脚本
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 "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics1 Knowledge Consistency Checker",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics2 Security Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics3 ExDS Interface Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics4 MAPI Interface Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics5 Replication Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics6 Garbage Collection",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics7 Internal Configuration",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics8 Directory Access",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics9 Internal Processing",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics10 Performance Counters",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics11 Initialization/Termination",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics12 Service Control",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics13 Name Resolution",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics14 Backup",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics15 Field Engineering",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics16 LDAP Interface Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics17 Setup",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics18 Global Catalog",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics19 Inter-site Messaging",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics20 Group Caching",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics21 Linked-Value Replication",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics22 DS RPC Client",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics23 DS RPC Server",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics24 DS Schema",3,"REG_DWORD"
Set wsObj = Nothing
WScript.Echo "-=[Complete!]=-"
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 "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics1 Knowledge Consistency Checker",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics2 Security Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics3 ExDS Interface Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics4 MAPI Interface Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics5 Replication Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics6 Garbage Collection",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics7 Internal Configuration",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics8 Directory Access",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics9 Internal Processing",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics10 Performance Counters",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics11 Initialization/Termination",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics12 Service Control",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics13 Name Resolution",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics14 Backup",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics15 Field Engineering",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics16 LDAP Interface Events",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics17 Setup",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics18 Global Catalog",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics19 Inter-site Messaging",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics20 Group Caching",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics21 Linked-Value Replication",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics22 DS RPC Client",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics23 DS RPC Server",3,"REG_DWORD"
wsObj.RegWrite "HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics24 DS Schema",3,"REG_DWORD"
Set wsObj = Nothing
WScript.Echo "-=[Complete!]=-"
vbs实现压缩文件夹的脚本
strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate}!\"&strComputer&"rootcimv2")SetcolFolders=objWMIService.ExecQuery_("Select*fromWin32_Directorywhere")ForEacho
用VBS修改远程桌面3389端口并添加到Windows防火墙的代码
将下面代码存为.vbs，双击运行。然后重启一下系统，就修改了系统的远程桌面的默认的3389端口'#####################'VBS修改远程桌面的默认端口,并添加至Win
用vbs实现自动检查代理是否可用，并自动设置IE代理的脚本
将下面代码中的地址改一下，存为ieproxy.vbs，然后在文件上点右键，选择在命令提示符中打开不多说了，存下来看看吧！strMachines="24.11.246.125:2406;61.252.60.
