I meant to post this earlier. This works for me across my servers\instances.

It's just a slightly amended version of the original.

declare @Server as varchar(128)

declare @KeyToInterogate as varchar(200)

declare @Version as varchar (512)

declare @PortNumber as varchar(8)

set @Server = @@ServerName

set @Version = left(@@Version, 38)

set @KeyToInterogate = 'SOFTWARE\MICROSOFT\MSSQLSERVER\MSSQLSERVER\SUPERSOCKETNETLIB\TCP'

if charindex('\',@@ServerName) > 0

begin

set @KeyToInterogate = 'SOFTWARE\Microsoft\Microsoft SQL Server\'

set @KeyToInterogate = @KeyToInterogate + substring(@@ServerName,charindex('\',@@ServerName) + 1,len(@@ServerName) - charindex('\',@@ServerName))

set @KeyToInterogate = @KeyToInterogate + '\MSSQLServer\SuperSocketNetLib\Tcp'

end

exec xp_regread

@rootkey = 'HKEY_LOCAL_MACHINE',

@key = @KeyToInterogate,

@value_name = 'TcpPort',

@value = @PortNumber output

If @PortNumber <> '1433'

begin

print '*****server: ' + @server + ' is running on port ' + cast(@PortNumber as varchar) + '. Server is: ' + @Version

end

else print 'server: ' + @server + ' is running on port ' + cast(@PortNumber as varchar) + '. Server is: ' + @Version