VBS修改远程桌面的默认端口,并添加至Windows防火墙

最新推荐文章于 2021-07-21 10:54:51 发布

dotnet90

最新推荐文章于 2021-07-21 10:54:51 发布

阅读量1k

点赞数

分类专栏： Javascript/前端开发 WEB 文章标签： windows 防火墙

本文链接：https://blog.csdn.net/dotnet90/article/details/2573384

版权

WEB 同时被 2 个专栏收录

44 篇文章 0 订阅

订阅专栏

Javascript/前端开发

36 篇文章 0 订阅

订阅专栏

'##################### 'VBS修改远程桌面的默认端口,并添加至Windows防火墙 '作者51windows.Net '56868为要设置的端口 '##################### Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.RegWrite "HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Terminal Server/WinStations/RDP-Tcp/PortNumber",56868,"REG_DWORD" WshShell.RegWrite "HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Terminal Server/Wds/rdpwd/Tds/tcp/PortNumber",56868,"REG_DWORD" Function Addfirewall(name,port,state) Set objFirewall = CreateObject("HNetCfg.FwMgr") Set objPolicy = objFirewall.LocalPolicy.CurrentProfile Set objPort = CreateObject("HNetCfg.FwOpenPort") objPort.Port = port objPort.Name = name objPort.Enabled = state Set colPorts = objPolicy.GloballyOpenPorts errReturn = colPorts.Add(objPort) End Function call Addfirewall("远程桌面56868",56868,1) set WshShell = nothing msgbox "设置成功"