Modify Remote Desktop 3389 port with VBS and add code to Windows Firewall _vbs

Save the following code as a. vbs, and double-click to run. Then reboot the system and modify the default 3389 port on the system's Remote Desktop

'#####################
' VBS modifies the default port for Remote Desktop and adds it to Windows Firewall
' Author 51windows.net
' 56868 is the port you want to set
'#####################

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 ("Remote Desktop 56868", 56868, 1)
Set WshShell = Nothing

MsgBox "Set Success"