'##################### 
'VBS修改遠(yuǎn)程桌面的默認(rèn)端口,并添加至Windows防火墻 
'作者51windows.Net 
'56868為要設(shè)置的端口 
'##################### 

Set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp\PortNumber",56868,"REG_DWORD" 
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp\PortNumber",56868,"REG_DWORD" 


Function Addfirewall(name,port,state) 
 Set objFirewall = CreateObject("HNetCfg.FwMgr") 
 Set objPolicy = objFirewall.LocalPolicy.CurrentProfile 
 
 Set objPort = CreateObject("HNetCfg.FwOpenPort") 
 objPort.Port = port 
 objPort.Name = name 
 objPort.Enabled = state 
 Set colPorts = objPolicy.GloballyOpenPorts 
 errReturn = colPorts.Add(objPort) 
End Function 

call Addfirewall("遠(yuǎn)程桌面56868",56868,1) 
set WshShell = nothing 

msgbox "設(shè)置成功"

下面是其他人的補(bǔ)充

'**********************************************
'*BY r05e
'*改變終端服務(wù)端口號(hào)
'**********************************************
Set WshShell=CreateObject("Wscript.Shell")
Function Imput()
imputport=InputBox("請(qǐng)輸入一個(gè)端口號(hào)，注意：這個(gè)端口號(hào)目前不能被其它程序使用，否則會(huì)影響終端服務(wù)"," 更改終端端口號(hào)", "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 "輸入出錯(cuò)，請(qǐng)重新輸入"
Imput()
End If
Else wscript.echo "操作已經(jīng)取消"
End If
End Function
Imput()
set WshShell=nothing

到此這篇關(guān)于用VBS修改遠(yuǎn)程桌面3389端口并添加到Windows防火墻的代碼的文章就介紹到這了,更多相關(guān)VBS修改遠(yuǎn)程桌面的默認(rèn)端口內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

您可能感興趣的文章: