vbs更改3389远程桌面端口的脚本
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| SetWshShell=CreateObject("Wscript.Shell") FunctionImput() imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务","更改终端端口号","3389",100,100) Ifimputport<>""Then IfIsNumeric(imputport)Then WshShell.RegWrite"HKLM\SYSTEM\CurrentControlSet\Control\TerminalServer\Wds\rdpwd\Tds\tcp\PortNumber",imputport,"REG_DWORD" WshShell.RegWrite"HKLM\SYSTEM\CurrentControlSet\Control\TerminalServer\WinStations\RDP-Tcp\PortNumber",imputport,"REG_DWORD" wscript.echo"操作成功" Elsewscript.echo"输入出错，请重新输入" Imput() EndIf Elsewscript.echo"操作已经取消" EndIf EndFunction Imput() setWshShell=nothing |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于vbs更改3389远程桌面端口的脚本的所有评论
