一件修改3389端口批处理程序附带一件修改系统密码

把下面的批处理代码放到 txt文档里，然后把拓展名改成.cmd  或者bat 都行

切记，修改 3389变成其他端口之前，一定要开放他的防火墙端口。

还有，一定要右键管理员模式运行

免重启电脑即可生效

@echo off
title www.yidongwang.cn 远程端口修改器
color 0a
Rd "%WinDir%\system32\test_permissions" >NUL 2>NUL
Md "%WinDir%\System32\test_permissions" 2>NUL||(Echo 请使用右键管理员身份运行！&&Pause >nul&&Exit)
Rd "%WinDir%\System32\test_permissions" 2>NUL

echo.
echo www.yidongwang.cn 远程端口修改器 免重启即可生效
echo www.yidongwang.cn 远程端口修改器 免重启即可生效
echo www.yidongwang.cn 远程端口修改器 免重启即可生效
echo 这是一个cmd命令行,用户可自行修改
echo 这是一个cmd命令行,用户可自行修改
echo 这是一个cmd命令行,用户可自行修改
echo 今天是:%date% 现在是: %time%
echo.
for /f "tokens=16" %%i in ('ipconfig ^|find /i "ipv4"') do set ip=%%i
echo 本机IP地址为：%ip%
echo.
set "str=HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Terminal Server\WinStations\RDP-Tcp"
for /f "tokens=3" %%i in ('reg query "%str%" /v UserAuthentication') do set "PortNum=%%i"
set /a Z=%PortNum%

echo.
set "str=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp"
for /f "tokens=3" %%i in ('reg query "%str%" /v PortNumber') do set "PortNum=%%i"
set /a n=%PortNum%
echo 当前远程桌面端口为：%n%
echo.
netstat -an|findstr %n% >nul 2>nul && echo 远程端口已监听 || echo 远程端口未监听
echo.
echo.

for /f "skip=2 tokens=3" %%a in ('reg query "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp" /v PortNumber') do set/a a=%%a

:getport

set/p getport=当前远程桌面端口：%a%，请输入需设定远程桌面的端口号：

if "%getport%"=="" (Goto noset) else goto start

:start
color E

for %%a in (ControlSet001 ControlSet002 CurrentControlSet) do for %%b in (Wds\rdpwd\Tds\tcp WinStations\RDP-Tcp) do reg add "HKLM\SYSTEM\%%a\Control\Terminal Server\%%b" /v PortNumber /t REG_DWORD /d %getport% /f

echo 远程桌面端口已设置为：%getport%，如果已启用防火墙，请将此端口添加进例外。

cls
echo 本机IP地址为：%ip%
echo 曾经远程桌面端口：%n%
echo.
echo.
echo 新远程端口：[%getport%]按任意键立即生效免重启；如关闭此窗口，请手动重启后生效......
echo 新远程端口：[%getport%]按任意键立即生效免重启；如关闭此窗口，请手动重启后生效......
echo 新远程端口：[%getport%]按任意键立即生效免重启；如关闭此窗口，请手动重启后生效......
echo 新远程端口：[%getport%]按任意键立即生效免重启；如关闭此窗口，请手动重启后生效......
pause >nul
logoff rdp-tcp
echo.
echo.
echo.
echo 如果需要修改系统密码请按[1]..关闭请按任意键....
echo 如果需要修改系统密码请按[1]..关闭请按任意键....
set ST=s
set /p ST= 选择后按回车键:
if %ST%==0 (
set ok=0
goto stat
)else (
if "%ST%"=="1" goto yczm

)
&exit

:yczm
echo.
echo.
echo.
echo 当前用户是：%USERNAME%
echo.
echo.
set /p pass= 请输入要修改的密码：
If /I "%pass%"=="" goto b
net user %USERNAME% %pass% >nul
cls
echo.
echo.
echo. 设置成功！按任意键继续开启远程桌面服务
pause >nul

cls
echo 正在开启远程桌面服务...
reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Terminal Server" /v "fDenyTSConnections" /d 0 /t REG_DWORD /f
reg add "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Terminal Server\WinStations\RDP-Tcp" /v "UserAuthentication" /d 0 /t REG_DWORD /f

::开启远程桌面
sc config TermService start= auto
net start TermService
sc config SessionEnv start= auto
net start SessionEnv
sc config RemoteAccess start= auto
net start RemoteAccess
sc config RemoteRegistry start= auto
net start RemoteRegistry
sc config UmRdpService start= auto
net start UmRdpService

gpupdate /force
echo.
echo.
mshta vbscript:msgbox("远程桌面已经开启，无需重启!!",vbSystemModal+64,"提示")(window.close)
goto start

:b

mshta vbscript:msgbox("密码没有变动，操作忽略!!",vbSystemModal+64,"提示")(window.close)
goto start

:noset
echo 输入值为空，端口未改变，按任意键退出！
pause>nul
goto Main