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

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