Remote Desktop Port Change

Posted on By David Kittell 
'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")
Originally Posted on July 18, 2013
Last Updated on October 26, 2015
All information on this site is shared with the intention to help. Before any source code or program is ran on a production (non-development) system it is suggested you test it and fully understand what it is doing not just what it appears it is doing. I accept no responsibility for any damage you may do with this code.
Code Windows VBS

Related Posts

Test Password Strength

Posted on

$(‘#pass’).keyup(function(e) { var strongRegex = new RegExp("^(?=.{8,})(?=.*[A-Z])(?=.*[a-z])(?=.*[0-9])(?=.*\W).*$", "g"); var mediumRegex = new RegExp("^(?=.{7,})(((?=.*[A-Z])(?=.*[a-z]))|((?=.*[A-Z])(?=.*[0-9]))|((?=.*[a-z])(?=.*[0-9]))).*$", "g"); var enoughRegex = new RegExp("(?=.{6,}).*", "g"); if (false == enoughRegex.test($(this).val())) { $(‘#passstrength’).html(‘More Characters’); } else if (strongRegex.test($(this).val())) { $(‘#passstrength’).className = ‘ok’; $(‘#passstrength’).html(‘Strong!’); } else if (mediumRegex.test($(this).val())) { $(‘#passstrength’).className = ‘alert’; $(‘#passstrength’).html(‘Medium!’); } else { $(‘#passstrength’).className =…

Read More

C# String Like

Posted on

I had a need to find a string like function similar to MSSQL and found this useful function. public static bool StringLike(this string toSearch, string toFind) { return new Regex(@"A" + new Regex(@".|$|^|{|[|(|||)|*|+|?|").Replace(toFind, ch => @"" + ch).Replace(‘_’, ‘.’).Replace("%", ".*") + @"z", RegexOptions.Singleline).IsMatch(toSearch); } bool willBeTrue = StringLike("abcdefg","abcd_fg"); bool willAlsoBeTrue…

Read More

MS SQL Import Txt File

Posted on

sqlcmd -i nonMemLoad.txt -o sqllog.txt Reference: http://msdn.microsoft.com/en-us/library/ms170572.aspx Originally Posted on October 15, 2013Last Updated on October 26, 2015 All information on this site is shared with the intention to help. Before any source code or program is ran on a production (non-development) system it is suggested you test it and…

Read More