Windows 10 Sprach Pack - Neuer Weg

$SystemLocale = "en-US"   

#region Preparations

$currentExecutingPath = $MyInvocation.MyCommand.Definition.Replace($MyInvocation.MyCommand.Name, "")  


#endregion

#=============================================================

#region Variables


$architecture = "x64"   

$SystemLocale = "en-US"   


#endregion

#=============================================================

#region Main Function


Write-Host "Start install language packs..." -ForegroundColor Green  


$installed_lp = New-Object System.Collections.ArrayList


foreach ($language in Get-ChildItem -Path "$currentExecutingPath\LXP") {  


Write-Host "Installing $language" -ForegroundColor Green  

$AppXFile = $currentExecutingPath + "\LXP\" + $language.Name + "\LanguageExperiencePack." + $language.Name + ".Neutral.appx"  

$LicFile = $currentExecutingPath + "\LXP\" + $language.Name + "\License.xml"  

$CabFile = $currentExecutingPath + "\LangPacks\Microsoft-Windows-Client-Language-Pack_" + $architecture + "_" + $language.Name + ".cab"  


Write-Host "Installing $CabFile"  

Start-Process -FilePath "dism.exe" -WorkingDirectory "C:\Windows\System32" -ArgumentList "/online /Add-Package /PackagePath=$CabFile /NoRestart" -Wait  


Write-Host "Installing $AppXFile"  

Start-Process -FilePath "dism.exe" -WorkingDirectory "C:\Windows\System32" -ArgumentList "/online /Add-ProvisionedAppxPackage /PackagePath=$AppXFile /LicensePath=$LicFile /NoRestart" -Wait  


Write-Host "Add to prefered languages"  

$prefered_list = Get-WinUserLanguageList

$prefered_list.Add($language.Name)

Set-WinUserLanguageList($prefered_list) -Force


$installed_lp.Add($language.Name)

}


Write-Host "Setting the system locale: $SystemLocale" -ForegroundColor Green  

Set-WinSystemLocale -SystemLocale $SystemLocale


#endregion

#=============================================================