vbs更改3389遠程桌面端口的腳本
更新時間：2008年05月20日 22:19:23 作者：
用vbscript實現(xiàn)的修改服務(wù)器3389端口的代碼，比較方便使用，不用每次都要進注冊表修改，方便大家
Set WshShell=CreateObject("Wscript.Shell")
Function Imput()
imputport=InputBox("請輸入一個端口號，注意：這個端口號目前不能被其它程序使用，否則會影響終端服務(wù)"," 更改終端端口號", "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 "操作已經(jīng)取消"
End If
End Function
Imput()
set WshShell=nothing
Function Imput()
imputport=InputBox("請輸入一個端口號，注意：這個端口號目前不能被其它程序使用，否則會影響終端服務(wù)"," 更改終端端口號", "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 "操作已經(jīng)取消"
End If
End Function
Imput()
set WshShell=nothing
相關(guān)文章
vbs中通過intpu傳值進行運算的方法，需要的朋友可以參考下。2011-03-03
運行一下上面的程序，輸出2.43290200817664E+18。笑而不語，再次證明了我之前的結(jié)論，在這種網(wǎng)站上回答問題的，大部分水平都不咋地。2011-04-04
VBScript教程 第八課 使用循環(huán)語句...2006-11-11
用vbs刪除前一天創(chuàng)建的備份文件...2007-03-03
本文給大家分享的是一個使用VBS實現(xiàn)查詢服務(wù)的制造商的代碼，思路非常的巧妙，方法很簡單，這里推薦給大家。2015-09-09
VBS教程：函數(shù)-Space 函數(shù)...2006-11-11
VBS教程：VBscript屬性-Description 屬性
VBS教程：VBscript屬性-Description 屬性...2006-11-11
VBS教程：函數(shù)-TimeValue...2006-11-11
vbs字符串操作小考題，學(xué)習(xí)的朋友可以參考下。2010-11-11
用vbscript實現(xiàn)隱藏任務(wù)欄圖標的腳本
一個可以隱藏任務(wù)欄圖標的腳本，方便需要隱藏任務(wù)欄圖標的朋友2008-06-06