用vbs實現端口就是用vbs修改的注冊表，主要是vbs的添加到防火墻的代碼，值得大家學習

 

將下面代碼存為.vbs，雙擊運行。然后重啟一下系統，就修改了系統的遠程桌面的默認的3389端口 

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

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("遠程桌面56868",56868,1) 
set WshShell = nothing 

msgbox "設置成功"