将下面代码存为.vbs，双击运行。然后重启一下系统，就修改了系统的远程桌面的默认的3389端口

'#####################

'VBS修改远程桌面的默认端口,并添加至Windows防火墙

'作者51windows.Net

'56868为要设置的端口

'#####################

SetWshShell=WScript.CreateObject("WScript.Shell")

WshShell.RegWrite"HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTerminalServerWinStationsRDP-TcpPortNumber",56868,"REG_DWORD"

WshShell.RegWrite"HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTerminalServerWdsrdpwdTdstcpPortNumber",56868,"REG_DWORD"

FunctionAddfirewall(name,port,state)

SetobjFirewall=CreateObject("HNetCfg.FwMgr")

SetobjPolicy=objFirewall.LocalPolicy.CurrentProfile

SetobjPort=CreateObject("HNetCfg.FwOpenPort")

objPort.Port=port

objPort.Name=name

objPort.Enabled=state

SetcolPorts=objPolicy.GloballyOpenPorts

errReturn=colPorts.Add(objPort)

EndFunction

callAddfirewall("远程桌面56868",56868,1)

setWshShell=nothing

msgbox"设置成功"