vbs更改3389远程桌面端口的脚本

1. Set WshShell=CreateObject("Wscript.Shell")  
2. Function Imput()  
3. imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务"," 更改终端端口号", "3389", 100, 100)  
4. If imputport<>"" Then  
5. If IsNumeric(imputport) Then  
6.  
7. WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber",imputport,"REG_DWORD"  
8. WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber",imputport,"REG_DWORD"  
9. wscript.echo "操作成功"  
10. Else wscript.echo "输入出错，请重新输入"  
11. Imput()  
12. End If  
13. Else wscript.echo "操作已经取消"  
14. End If  
15. End Function  
16. Imput()  
17. set WshShell=nothing