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

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

原创最新推荐文章于 2021-07-21 10:54:51 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#windows #防火墙

WEB 同时被 2 个专栏收录

44 篇文章

订阅专栏

Javascript/前端开发

36 篇文章

订阅专栏

本文介绍了一段VBS脚本，用于修改Windows系统的远程桌面默认端口，并将新端口添加到Windows防火墙中以允许访问。通过设置特定端口56868，提高了远程桌面连接的安全性。

'##################### '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 "设置成功"