VBS修改远程桌面的默认端口,并添加至Windows防火墙 - 51windows.Net
51windows.Net
>
计算机技术
>
小技巧
> VBS修改远程桌面的默认端口,并添加至Windows防火墙
VBS修改远程桌面的默认端口,并添加至Windows防火墙
关键字
：3389 远程桌面 默认端口
将下面代码存为.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 "设置成功"
网站推荐：
虎的笑话
虎的成语
虎的歇后语
在线小游戏
成语排行榜
歇后语排行榜
中华五千年
文革图片
转载本站内容，请务必保留原作者信息。
本站提供的内容部分是在网上搜集，如果侵犯了您的版权，请告之，我们会删除内容或加上您的信息。(
网站留言
、
站内搜索
)