'This script can be used to change the TCP Port of the a SQL Server instance using SQL Server WMI Namespace

'Specify the computer name in the parameter below. Default is local server.

strComputer = "." 

'Specify the instance name if any. Default is MSSQLSERVER.
'Assumption is that we are running this for the default instance. 
'For a named instance, only provide the instance name. Eg: For a named instance LABDC\INST1, the parameter below would be strInstance = "INST1"
'For a cluster, we need to run this script on the active node.

strInstance = "KATMAI"

'Specify the new PORT 

strPort = "1434"

'Parameter to store the current Port Value
Dim strCurrPort

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\Microsoft\SqlServer\ComputerManagement10") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM ServerNetworkProtocolProperty WHERE ProtocolName = 'Tcp' AND InstanceName = '"&strInstance&"' AND PropertyName = 'TcpPort' AND IPAddressName = 'IPAll'",,48) 
For Each objItem in colItems 
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "    TCP Port Setting for IP ALL    "
    Wscript.Echo "-----------------------------------"
    Wscript.Echo "TCP Port Value: " & objItem.PropertyStrVal
    Wscript.Echo "ProtocolName: " & objItem.ProtocolName
Next

' Obtain an instance of the the class 
' using a key property value.
Set objShare = objWMIService.Get("ServerNetworkProtocolProperty.InstanceName='"&strInstance&"',IPAddressName='IP1',PropertyName='TcpPort',PropertyType='1',ProtocolName='Tcp'")

' Obtain an InParameters object specific
' to the method.
Set objInParam = objShare.Methods_("SetStringValue"). _
    inParameters.SpawnInstance_()

' Add the new TCP Port here.
objInParam.Properties_.Item("StrValue") =  strPort

' Execute the method and obtain the return status.
' The OutParameters object in objOutParams
' is created by the provider.
Set objOutParams = objWMIService.ExecMethod("ServerNetworkProtocolProperty.InstanceName='"&strInstance&"',IPAddressName='IPAll',PropertyName='TcpPort',PropertyType='1',ProtocolName='Tcp'", "SetStringValue", objInParam)

Wscript.Echo ""

'List success/failure
If (objOutParams.ReturnValue = 0) Then 

Wscript.Echo "TCP Port changed SUCCESSFULLY changed for instance : " & strInstance 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM ServerNetworkProtocolProperty WHERE ProtocolName = 'Tcp' AND InstanceName = '"&strInstance&"' AND PropertyName = 'TcpPort' AND IPAddressName = 'IPAll'",,48) 
For Each objItem in colItems 
    Wscript.Echo ""
    Wscript.Echo "------------------------------------------------------------"
    Wscript.Echo "  NEW TCP Port Setting for IP ALL         :"& objItem.PropertyStrVal
    Wscript.Echo "------------------------------------------------------------"
Next

' Execute the method and obtain the return status.
' Change the TCP Dynamic Ports to blank to avoid startup issues

' Change the input paramter to blank
objInParam.Properties_.Item("StrValue") =  ""

Set objOutParams = objWMIService.ExecMethod("ServerNetworkProtocolProperty.InstanceName='"&strInstance&"',IPAddressName='IPAll',PropertyName='TcpDynamicPorts',PropertyType='1',ProtocolName='Tcp'", "SetStringValue", objInParam)

Wscript.Echo ""
If (objOutParams.ReturnValue = 0) Then 
Wscript.Echo "TCP Dynamic Port changed SUCCESSFULLY changed for instance : " & strInstance 
Wscript.Echo "SQL Services need to be restarted for the changes to take effect." 
End If

If (objOutParams.ReturnValue > 0 OR objOutParams.ReturnValue < 0) Then Wscript.Echo "TCP Dynamic Port change UNSUCCESSFUL for instance : " & strInstance End If      

End If

If (objOutParams.ReturnValue > 0 OR objOutParams.ReturnValue < 0) Then Wscript.Echo "TCP Port change UNSUCCESSFUL for instance : " & strInstance End If   

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server\MSSQL14.INST1\MSSQLServer\SuperSocketNetLib\Tcp\IPAll]
"TcpPort" = "20"
"TcpDynamicPorts"="50220"

EXEC xp_instance_regwrite N'HKEY_LOCAL_MACHINE', N'Software\Microsoft\MSSQLServer\MSSQLServer\SuperSocketNetLib\Tcp\IPAll', N'TcpPort', REG_SZ, '1433'
EXEC xp_instance_regwrite N'HKEY_LOCAL_MACHINE', N'Software\Microsoft\MSSQLServer\MSSQLServer\SuperSocketNetLib\Tcp\IPAll', N'TcpDynamicPorts', REG_SZ, ''

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server\MSSQL14.INST1\MSSQLServer\SuperSocketNetLib\Tcp\IPAll]
"TcpPort"="1433"
"TcpDynamicPorts"=""
"DisplayName"="Any IP Address"