繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > vbs更改3389远程桌面端口的脚本
- VBScript
- 用vbs清空iis log 中自己登录ip的记录
- vbs sendmail发邮件带附件方法
- 用vbs通过135端口执行命令的脚本
- 用vbs实现的瞬间关闭多个系统进程的脚本
- vbs 中调用shell.application 简单函数
- vbs wmi获取电脑硬件信息实例
- 用vbscript实现隐藏任务栏图标的脚本
- vbs正则表达式代码
- vbs版IP地理位置查询小偷
- 超级厉害的VBS定时提醒脚本 Remind.vbs
- vbs实现的支持拖动的txt文本切割器
- VBS如何察看或获得剪切板内容的脚本
- VBS备忘录启动代码
- VBS脚本使用WMI操作注册表的代码
- vbs xmldom初次实战获取QQ签名的代码
- VBS破坏性应用代码
- vbs生成ACCESS数据里所有表的字段
- vbs实现的图片自适应表格,目前最佳解决方案!
- ProcessMagnifier.vbs进程查看
- 用于提取网易文件的hta代码
VBScript 中的 vbs更改3389远程桌面端口的脚本
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 87 ::
收藏到网摘: n/a
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
评论 (0) All
