减小字体
增大字体- ·上一篇文章：VBS定时关机
- ·下一篇文章：更换日志目录
- ·百度中搜索更多的关于“用VBS更改3389终端端口”相关内容
- ·谷歌中搜索更多的关于“用VBS更改3389终端端口”相关内容
- ******申明******
- 本站文章内容有部分为收录网络中其他网友内容，DOS资源站不保证所有的代码都适合你使用。
- 由于编辑匆忙，有可能造成某些脚本文件出现丢失代码或代码无法运行的情况，请网友根据情况自行修改。
- 如果能将出错部分反馈给我，那就更好了。
用VBS更改3389终端端口
Set WshShell=CreateObject("Wscript.Shell")
Function Imput()
imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务"," 更改终端端口号", "3389", 100, 100)
If imputport<>"" Then
If IsNumeric(imputport) Then
WshShell.RegWrite "HKLM\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server\\Wds\\rdpwd\\Tds\\tcp\\PortNumber",imputport,"REG_DWORD"
WshShell.RegWrite "HKLM\\SYSTEM\\CurrentControlSet\\Control\\Terminal Server\\WinStations\\RDP-Tcp\\PortNumber",imputport,"REG_DWORD"
wscript.echo "操作成功"
Else wscript.echo "输入出错，请重新输入"
Imput()
End If
Else wscript.echo "操作已经取消"
End If
End Function
Imput()
set WshShell=nothing
