将下面代码存为.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 "设置成功"
下面是其他人的补充
'********************************************** '*BY r05e '*改变终端服务端口号 '********************************************** Set WshShell=CreateObject("Wscript.Shell") Function Imput() imputport=InputBox("请输入一个端口号,注意:这个端口号目前不能被其它程序使用,否则会影响终端服务"," 更改终端端口号", "3389", 100, 100) If imputport<>"" Then If IsNumeric(imputport) Then WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber",imputport,"REG_DWORD" WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber",imputport,"REG_DWORD" wscript.echo "操作成功" Else wscript.echo "输入出错,请重新输入" Imput() End If Else wscript.echo "操作已经取消" End If End Function Imput() set WshShell=nothing
标签:
3389,远程桌面,默认端口
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“用VBS修改远程桌面3389端口并添加到Windows防火墙的代码”评论...
《魔兽世界》大逃杀!60人新游玩模式《强袭风暴》3月21日上线
暴雪近日发布了《魔兽世界》10.2.6 更新内容,新游玩模式《强袭风暴》即将于3月21 日在亚服上线,届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。
艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕,并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时,他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中,玩家将会进入一个全新的海盗主题大逃杀式限时活动,其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场,作为一个独立于主游戏之外的活动,玩家可以用大逃杀的风格来体验《魔兽世界》,不分职业、不分装备(除了你在赛局中捡到的),光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式,玩家在加入海盗主题的预赛大厅区域前,可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹,《巨龙崛起》和《魔兽世界:巫妖王之怒 经典版》的玩家都可以获得奖励。
更新动态
2024年05月12日
2024年05月12日
- 《歌手 2019 歌手第三季》全季音频[FLAC/分轨][6GB]
- ABC唱片-《MasteringSound.狗仔唛又发烧》HD德国版[WAV+CUE]
- 群星.2005-《浪漫古筝.丁香花2CD》[WAV+CUE]
- ABC唱片-《斯塔克.大提琴小品集》HD德国版[WAV+CUE]
- 蔡琴《经典老歌2023MQA》[WAV+CUE][510MB]
- 《梅小琴 风云 2023头版限量HQCD》[WAV+CUE][530MB]
- 群星《飞碟抒情金曲2 蓝色的第一次爱情》台湾版[WAV+CUE][280MB]
- ABC唱片-《长发妹.2015纪念版》HD德国版[WAV+CUE]
- ABC唱片-《真空管录音35年特别版》HD德国版[WAV+CUE]
- [ABC唱片]-《雪莉—红》[SACD-002][SACD]
- 苏思棣-中国古琴,文人的乐器-FLAC分轨
- 姚璎格《影》头版限量编号24K金碟[低速原抓WAV+CUE]
- 群星.2024-与凤行电视剧原声带【新丽】【FLAC分轨】
- 群星《飞碟抒情金曲1 最美的第一种声音》台湾版[WAV+CUE][390MB]
- 鍒€閮庛€婂北姝屽鍝?2023绾摱鐗堛€媅WAV+CUE][508MB]