functions/Get-DbaClientAlias.ps1

Function Get-DbaClientAlias {
<#
    .SYNOPSIS
    Creates/updates a sql alias for the specified server - mimics cliconfg.exe
 
    .DESCRIPTION
    Creates/updates a SQL Server alias by altering HKLM:\SOFTWARE\Microsoft\MSSQLServer\Client
 
    .PARAMETER ComputerName
    The target computer where the alias will be created
 
    .PARAMETER Credential
    Allows you to login to remote computers using alternative credentials
 
    .PARAMETER Silent
    Use this switch to disable any kind of verbose messages
 
    .NOTES
    Tags: Alias
 
    Website: https://dbatools.io
    Copyright: (C) Chrissy LeMaire, clemaire@gmail.com
    License: GNU GPL v3 https://opensource.org/licenses/GPL-3.0
 
    .LINK
    https://dbatools.io/Get-DbaClientAlias
 
        .EXAMPLE
    Get-DbaClientAlias
    Gets all SQL Server client aliases on the local computer
         
    .EXAMPLE
    Get-DbaClientAlias -ComputerName workstationx
    Gets all SQL Server client aliases on Workstationx
#>

    [CmdletBinding()]
    Param (
        [DbaInstanceParameter[]]$ComputerName = $env:COMPUTERNAME,
        [PSCredential]$Credential,
        [switch]$Silent
    )
    
    process {
        foreach ($computer in $ComputerName) {
            $scriptblock = {
                
                function Get-ItemPropertyValue {
                    Param (
                        [parameter()]
                        [String]$Path,
                        [parameter()]
                        [String]$Name
                    )
                    (Get-ItemProperty -LiteralPath $Path -Name $Name).$Name
                }
                
                $basekeys = "HKLM:\SOFTWARE\WOW6432Node\Microsoft\MSSQLServer", "HKLM:\SOFTWARE\Microsoft\MSSQLServer"
                
                foreach ($basekey in $basekeys) {
                    
                    if ((Test-Path $basekey) -eq $false) {
                        Write-Warning "Base key ($basekey) does not exist. Quitting."
                        continue
                    }
                    
                    $client = "$basekey\Client"
                    
                    if ((Test-Path $client) -eq $false) {
                        continue
                    }
                    
                    $connect = "$client\ConnectTo"
                    
                    if ((Test-Path $connect) -eq $false) {
                        continue
                    }
                    
                    if ($basekey -like "*WOW64*") {
                        $architecture = "32-bit"
                    }
                    else {
                        $architecture = "64-bit"
                    }
                    
                    # "Creating/updating alias for $ComputerName for $architecture"
                    $all = Get-Item -Path $connect
                    foreach ($entry in $all.Property) {
                        $value = Get-ItemPropertyValue -Path $connect -Name $entry
                        $clean = $value.Replace('DBNMPNTW,', '').Replace('DBMSSOCN,', '')
                        if ($value.StartsWith('DBMSSOCN')) { $protocol = 'TCP/IP' } else { $protocol = 'Named Pipes' }
                        
                        [pscustomobject]@{
                            ComputerName       = $env:COMPUTERNAME
                            NetworkLibrary       = $protocol
                            ServerName           = $clean
                            AliasName           = $entry
                            AliasString           = $value
                            Architecture       = $architecture
                        }
                    }
                }
            }
            
            if ($PScmdlet.ShouldProcess($computer, "Getting aliases")) {
                try {
                    Invoke-Command2 -ComputerName $computer -Credential $Credential -ScriptBlock $scriptblock -ErrorAction Stop |
                    Select-DefaultView -Property ComputerName, Architecture, NetworkLibrary, ServerName, AliasName
                }
                catch {
                    Stop-Function -Message "Failure" -ErrorRecord $_ -Target $computer -Continue
                }
            }
        }
    }
}