Remote Desktop Port Change

'Kelly Theriot 11-2004
'Kelly's Korner

Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, t, p1, n, cn, MyBox, vbdefaultbutton
Dim itemtype

p1 = "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlTerminal ServerWinStationsRDP-Tcp"

n = ws.RegRead(p1 & "PortNumber")
t = "Change Port Number"
cn = InputBox("Type in the new port number", t, n)
If cn <> "" Then
  ws.RegWrite p1 & "PortNumber", cn
End If

MyBox = MsgBox("Once done hit refresh (F5) for the changes to take effect.", vbOKOnly,"Done")