vbs

关注公众号 jb51net

关闭
首页 > 脚本专栏 > vbs > VBS修改远程桌面的默认端口

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

投稿:mdxy-dxy

用vbs实现端口就是用vbs修改的注册表,主要是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 "设置成功" 

下面是其他人的补充

'**********************************************
'*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

到此这篇关于用VBS修改远程桌面3389端口并添加到Windows防火墙的代码的文章就介绍到这了,更多相关VBS修改远程桌面的默认端口内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家!

您可能感兴趣的文章:
阅读全文