欢迎来到代码驿站!

VBS

当前位置:首页 > 脚本语言 > VBS

用VBS修改远程桌面3389端口并添加到Windows防火墙的代码

时间:2021-01-16 12:29:40|栏目:VBS|点击:
将下面代码存为.vbs,双击运行。然后重启一下系统,就修改了系统的远程桌面的默认的3389端口

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

上一篇:vbs 列出该目录下所有文件和文件夹的类型,大小,和所有者

栏    目:VBS

下一篇:VBS数组函数学习实例分析

本文标题:用VBS修改远程桌面3389端口并添加到Windows防火墙的代码

本文地址:http://www.codeinn.net/misctech/45884.html

推荐教程

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:914707363 | 邮箱:codeinn#126.com(#换成@)

Copyright © 2020 代码驿站 版权所有