收藏本页 | 设为主页 | RSS
LOGO

我就上乐乐吧

3389这个端口,估计大家都知道,是Window的远程桌面,当然为了安全,肯定是要将其改成一个不常用的地址。通常的情况下是直接修改注册表,要修改的地方共有两...

您当前的位置:首页 » 技术杂萃
全站公告
重要提示!

本站收集各类美图,以无LOGO原汁原味图为主!欢迎大家交流。
怕失联,请认准如下地址:
微博:传送门
土豆:传送门
电报:传送门
微信:superimagelove
花瓣:传送门
Q群1:231151757
Q群2:583138281
文件解压密码:593668.com
热心赞助

站内搜索
 
相关文章
热门文章
热搜词组
文章归档
友情链接
利用VBS修改远程桌面3389端口并添加到Windows防火墙规则

发布日期:2018-05-21  关键词: VBS

3389这个端口,估计大家都知道,是Window的远程桌面,当然为了安全,肯定是要将其改成一个不常用的地址。通常的情况下是直接修改注册表,要修改的地方共有两处:

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber

键类型是REG_DWORD,键值改为你想要并且其它应用不占用的空闲端口即可[1000以上,如43838之类的]。大家可能对这个注册表编辑并不是很熟悉,那么就用VBS来处理相应的注册表。

Set WshShell = WScript.CreateObject("WScript.Shell")
'修改注册表
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber",43838,"REG_DWORD"
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber",43838,"REG_DWORD"
set WshShell = nothing

然后就是Windows防火墙规则处理,当然如果本机没开防火墙,可以无视这一步骤。这个过程也不是很难,主要用到HNetCfg.FwMgr和HNetCfg.FwOpenPort。

'添加防火墙规则函数
Function Addfirewall(name,port,state)
  Set objFirewall = CreateObject("HNetCfg.FwMgr")
  Set objPort = CreateObject("HNetCfg.FwOpenPort")
  objPort.Port = port
  objPort.Name = name
  objPort.Enabled = state
  Set colPorts = objFirewall.LocalPolicy.CurrentProfile.GloballyOpenPorts
  errReturn = colPorts.Add(objPort)
  '释放相关变量
  Set objFirewall=nothing
  Set objPort=nothing
  Set colPorts=nothing
End Function

最后再调用下此函数,并传递相应的参数即可。
’调用函数
call Addfirewall("远程桌面",43848,1)
msgbox "设置成功"

是不是很简单,这样只要稍加修改下43838这个端口数字,就可以将远程桌面改成任意其它未占用端口了。
猜您喜欢:
Q群: 231151757微信:superimagelove 官网:www.593668.com