用VBS修改遠端桌面3389連接埠並添加到Windows防火牆的代碼_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 "設定成功"