用vbs实现本地添加用户的脚本

Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.Run "cmd /k"
for i = 1 to 3
WScript.Sleep 500
WshShell.SendKeys "net user admin" & i & " abcd@123 /add"
WshShell.SendKeys "{ENTER}"
next
WshShell.SendKeys "exit"
WshShell.SendKeys "{ENTER}"

vbs AD日志开启脚本nableKerbLog的脚本
DimwsObjSetwsObj=CreateObject("Wscript.Shell")'AddtheLogLevelValuetoKerberosKeyinRegistry.OnErrorResumeNextWScript.Echo"EnablingKerberosLogging..."wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServices

vbs实现压缩文件夹的脚本
strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate}!\"&strComputer&"rootcimv2")SetcolFolders=objWMIService.ExecQuery_("Select*fromWin32_Directorywhere")ForEacho

用VBS修改远程桌面3389端口并添加到Windows防火墙的代码
将下面代码存为.vbs，双击运行。然后重启一下系统，就修改了系统的远程桌面的默认的3389端口'#####################'VBS修改远程桌面的默认端口,并添加至Win