vbs更改3389远程桌面端口的脚本
更新时间：2008年05月20日 22:19:23 作者：
用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
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
相关文章
dictionnary，是一个集合对象。一般情况霞，我把这个特殊的集合想象为数组，可以使用其中内建的函数完成存储和操纵数据等基本任务，无须担心数据是在哪些行列2006-11-11
即Grade school multiplication（小学乘法？）算法的VBS实现。2011-01-01
这篇文章主要为大家分享下通过vbs脚本实现设置IE的打印页眉页脚信息的代码，需要的朋友可以参考下2007-02-02
SQLids.vbs 0.7(最终版，以后改成gui界面的)
今天搞了个网站，注入点过滤得很变态，工具都不能跑，于是写了这个东东。2009-10-10
VBS教程：属性-RootFolder 属性...2006-11-11
windows 利用vbs 写的延时关闭ie进程的脚本，需要的朋友可以参考下。2010-11-11
VBS教程：VBScript 对象...2006-11-11
页面源文件解密 页面链接查看具体查看收藏夹2009-04-04
WMI IE代理 切换或改变(Use WMI Change IE Proxy)
把你弄到的代理都写在一个文本文件里（IP.txt），格式是一行一个： ip:端口2008-12-12
我们在用迅雷或flashget时间长了后，下载过的文件地址都保存在已下载分类中，我们可以把这些珍贵的地址列表都导出，保存到一个txt文件中。2010-11-11
最新评论