用VBS修改遠程桌面3389端口并添加到Windows防火墻的代碼
2020-07-26 11:57:04
供稿：網友
將下面代碼存為.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 "設置成功"
