functions/Get-DbaLocaleSetting.ps1

Function Get-DbaLocaleSetting
{
  <#
      .SYNOPSIS
      Gets the Locale settings on a computer.
 
      .DESCRIPTION
      Gets the Locale settings on one or more computers.
 
      Requires Local Admin rights on destination computer(s).
 
      .PARAMETER ComputerName
      The SQL Server (or server in general) that you're connecting to. This command handles named instances.
 
      .PARAMETER Credential
      Credential object used to connect to the computer as a different user.
 
      .NOTES
      Author: Klaas Vandenberghe ( @PowerDBAKlaas )
      Tags: OS
      dbatools PowerShell module (https://dbatools.io)
      Copyright (C) 2016 Chrissy LeMaire
      This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version.
      This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
      You should have received a copy of the GNU General Public License along with this program. If not, see http://www.gnu.org/licenses/.
 
      .LINK
      https://dbatools.io/Get-DbaLocaleSetting
 
      .EXAMPLE
      Get-DbaLocaleSetting -ComputerName sqlserver2014a
 
      Gets the Locale settings on computer sqlserver2014a.
 
      .EXAMPLE
      'sql1','sql2','sql3' | Get-DbaLocaleSetting
 
      Gets the Locale settings on computers sql1, sql2 and sql3.
 
      .EXAMPLE
      Get-DbaLocaleSetting -ComputerName sql1,sql2 | Out-Gridview
 
      Gets the Locale settings on computers sql1 and sql2, and shows them in a grid view.
 
  #>

  [CmdletBinding()]
  Param (
    [parameter(ValueFromPipeline)]
    [Alias("cn","host","Server")]
    [string[]]$ComputerName = $env:COMPUTERNAME,
    [PSCredential] $Credential
  )

  BEGIN
  {
    $FunctionName = (Get-PSCallstack)[0].Command
    $ComputerName = $ComputerName | ForEach-Object {$_.split("\")[0]} | Select-Object -Unique
    $sessionoption = New-CimSessionOption -Protocol DCom
    $keyname = "Control Panel\International"
    $NS = 'root\cimv2'
    $Reg = 'StdRegProv'
    [UInt32]$CIMHiveCU = 2147483649
  }
  PROCESS
  {
    foreach ($computer in $ComputerName)
    {
      $props = @{ "ComputerName" = $computer }
      $Server = Resolve-DbaNetworkName -ComputerName $Computer -Credential $credential
      if ( $Server.ComputerName )
      {
        $Computer = $server.ComputerName
        Write-Verbose "$FunctionName - Creating CIMSession on $computer over WSMan"
        $CIMsession = New-CimSession -ComputerName $Computer -ErrorAction SilentlyContinue -Credential $Credential
        if ( -not $CIMSession )
        {
          Write-Verbose "$FunctionName - Creating CIMSession on $computer over WSMan failed. Creating CIMSession on $computer over DCom"
          $CIMsession = New-CimSession -ComputerName $Computer -SessionOption $sessionoption -ErrorAction SilentlyContinue -Credential $Credential
        }
        if ( $CIMSession )
        {
          Write-Verbose "$FunctionName - Getting properties from Registry Key"
          $PropNames = Invoke-CimMethod -CimSession $CIMsession -Namespace $NS -ClassName $Reg -MethodName enumvalues -Arguments @{hDefKey=$CIMHiveCU; sSubKeyName=$keyname} |
          Select-Object -ExpandProperty snames

          foreach ($Name in $PropNames)
          {
            $sValue = Invoke-CimMethod -CimSession $CIMsession -Namespace $NS -ClassName $Reg -MethodName GetSTRINGvalue -Arguments @{hDefKey=$CIMHiveCU; sSubKeyName=$keyname; sValueName=$Name} |
            Select-Object -ExpandProperty svalue
            $props.add($Name,$sValue)
          }
          [PSCustomObject]$props
        } #if CIMSession
        else
        {
          Write-Warning "$FunctionName - Can't create CIMSession on $computer"
        }
      } #if computername
      else
      {
        Write-Warning "$FunctionName - can't connect to $computer"
      }
    } #foreach computer
  } #PROCESS
} #function