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

将下面代码存为.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修改远程桌面3389端口并添加到Windows防火墙的代码的全部内容，希望文章能够帮你解决用VBS修改远程桌面3389端口并添加到Windows防火墙的代码所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。