用vbscript實(shí)現(xiàn)的修改服務(wù)器3389端口的代碼，比較方便使用，不用每次都要進(jìn)注冊(cè)表修改，方便大家

 

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