vbs更改3389遠程桌面端口的腳本
更新時間：2008年05月20日 22:19:23 作者：
用vbscript實現(xiàn)的修改服務器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，是一個集合對象。一般情況霞，我把這個特殊的集合想象為數(shù)組，可以使用其中內建的函數(shù)完成存儲和操縱數(shù)據等基本任務，無須擔心數(shù)據是在哪些行列2006-11-11
即Grade school multiplication（小學乘法？）算法的VBS實現(xiàn)。2011-01-01
這篇文章主要為大家分享下通過vbs腳本實現(xiàn)設置IE的打印頁眉頁腳信息的代碼，需要的朋友可以參考下2007-02-02
SQLids.vbs 0.7(最終版，以后改成gui界面的)
今天搞了個網站，注入點過濾得很變態(tài)，工具都不能跑，于是寫了這個東東。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