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

2009-7-15 13:41 668 0

摘要: 　　用vbscript实现的修改服务器3389端口的代码，比较方便使用，不用每次都要进注册表修改，方便大家　　Set WshShell=CreateObject("Wscript.Shell")　　F...

关键词： imputport WshShell Wscript 输入 CurrentControlSe 端口 Imput PortNumber 口号终端

　　用vbscript实现的修改服务器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

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除