diff options
| author | Jim Yang <jimstar06@outlook.com> | 2018-04-15 12:51:57 +0300 |
|---|---|---|
| committer | Stanislav Motylkov <x86corez@gmail.com> | 2018-04-15 13:54:26 +0300 |
| commit | 56915ccf5b5145e56f224da9e9e3dc9b0c7e09a6 (patch) | |
| tree | 00bee9a2c586a48ecff5b825e79b6103efbfb2fb | |
| parent | a3cd8ca630190c890109940151290daafe4daf38 (diff) | |
Allow UDP 3389 at firewall configuration
| -rw-r--r-- | res/legacy.install.bat | 3 | ||||
| -rw-r--r-- | src-installer/RDPWInst.dpr | 6 |
2 files changed, 6 insertions, 3 deletions
diff --git a/res/legacy.install.bat b/res/legacy.install.bat index a7d8de2..303cc32 100644 --- a/res/legacy.install.bat +++ b/res/legacy.install.bat @@ -50,6 +50,7 @@ if not !errorlevel!==0 ( echo [*] Setting firewall configuration... reg add "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server" /v fDenyTSConnections /t REG_DWORD /d 0 /f netsh advfirewall firewall add rule name="Remote Desktop" dir=in protocol=tcp localport=3389 profile=any action=allow +netsh advfirewall firewall add rule name="Remote Desktop" dir=in protocol=udp localport=3389 profile=any action=allow echo [*] Looking for TermService PID... tasklist /SVC /FI "SERVICES eq TermService" | find "PID" /V echo. @@ -88,4 +89,4 @@ echo net start Service2 echo etc. goto END -:END
\ No newline at end of file +:END diff --git a/src-installer/RDPWInst.dpr b/src-installer/RDPWInst.dpr index 7894f3b..b6c2462 100644 --- a/src-installer/RDPWInst.dpr +++ b/src-installer/RDPWInst.dpr @@ -978,8 +978,10 @@ end; procedure TSConfigFirewall(Enable: Boolean); begin if Enable then - ExecWait('netsh advfirewall firewall add rule name="Remote Desktop" dir=in protocol=tcp localport=3389 profile=any action=allow') - else + begin + ExecWait('netsh advfirewall firewall add rule name="Remote Desktop" dir=in protocol=tcp localport=3389 profile=any action=allow'); + ExecWait('netsh advfirewall firewall add rule name="Remote Desktop" dir=in protocol=udp localport=3389 profile=any action=allow'); + end else ExecWait('netsh advfirewall firewall delete rule name="Remote Desktop"'); end; |