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

将下面代码存为.vbs，双击运行。然后重启一下系统，就修改了系统的远程桌面的默认的3389端口

"#####################
"VBS修改远程桌面的默认端口,并添加至Windows防火墙
"作者51windows.Net
"56868为要设置的端口
"#####################

Set WshShell = WScript.CreateObject（"WScript.Shell"）
WshShell.RegWrite "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTerminal ServerWinStationsRDP-TcpPortNumber",56868,"REG_DWORD"
WshShell.RegWrite "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTerminal ServerWds dpwdTds cpPortNumber",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 "设置成功"