Change source V1.0.ps1

# Lifted from http://www.scconfigmgr.com/2013/07/25/update-the-content-path-of-all-applications-in-configmgr-2012-with-powershell/

[System.Reflection.Assembly]::LoadFrom((Join-Path (Get-Item $env:SMS_ADMIN_UI_PATH).Parent.FullName "Microsoft.ConfigurationManagement.ApplicationManagement.dll")) | Out-Null
[System.Reflection.Assembly]::LoadFrom((Join-Path (Get-Item $env:SMS_ADMIN_UI_PATH).Parent.FullName "Microsoft.ConfigurationManagement.ApplicationManagement.Extender.dll")) | Out-Null
[System.Reflection.Assembly]::LoadFrom((Join-Path (Get-Item $env:SMS_ADMIN_UI_PATH).Parent.FullName "Microsoft.ConfigurationManagement.ApplicationManagement.MsiInstaller.dll")) | Out-Null

$SiteServer = "sccmpw001"
$SiteCode = "PR1"

# Content locations
$CurrentContentPath = "\\Server\Share\source\Applications"
$UpdatedContentPath = "\\Server\Share\source\Applications"

# Convert all to lower case
$CurrentContentPath = $CurrentContentPath.ToLower()
$UpdatedContentPath = $UpdatedContentPath.ToLower()

# To be used when applying to only one application
$applicationName = "Single Application Name for Testing"

# To be used when applying to only one application
$Applications = Get-WmiObject -ComputerName $SiteServer -Namespace root\SMS\site_$SiteCode -class SMS_Application | Where-Object { $_.LocalizedDisplayName -eq $applicationName -and $_.isLatest -eq $True }

# Selects all applications, ignores application name value
# $Applications = Get-WmiObject -ComputerName $SiteServer -Namespace root\SMS\site_$SiteCode -class SMS_Application | Where-Object { $_.isLatest -eq $True }

$ApplicationCount = $Applications.Count

Write-Output ""
Write-Output "INFO: A total of $($ApplicationCount) applications will be modified`n"
Write-Output "INFO: Value of current content path: $($CurrentContentPath)"
Write-Output "INFO: Value of updated content path: $($UpdatedContentPath)`n"
Write-Output "# What would you like to do?"
Write-Output "# ---------------------------------------------------------------------"
Write-Output "# 1. Verify first - Verify the applications new path before updating"
Write-Output "# 2. Update now - Update the path on all applications"
Write-Output "# ---------------------------------------------------------------------`n"
$EnumAnswer = Read-Host "Please enter your selection [1,2] and press Enter"

switch ($EnumAnswer) {
    1 {$SetEnumAnswer = "Verify"}
    2 {$SetEnumAnswer = "Update"}
    Default {$SetEnumAnswer = "Verify"}
}

if ($SetEnumAnswer -like "Verify") {
    
    Write-Output ""
    
    $Applications | ForEach-Object {
        
        $CheckApplication = [wmi]$_.__PATH
        $CheckApplicationXML = [Microsoft.ConfigurationManagement.ApplicationManagement.Serialization.SccmSerializer]::DeserializeFromString($CheckApplication.SDMPackageXML,$True)
        
        foreach ($CheckDeploymentType in $CheckApplicationXML.DeploymentTypes) {
            
            $CheckInstaller = $CheckDeploymentType.Installer
            $CheckContents = $CheckInstaller.Contents[0]

            # Convert to lowercase
            $CheckContents.Location = ($CheckContents.Location).ToLower()

            Write-Host "FallbackToUnprotectedDP: $($CheckContents.FallbackToUnprotectedDP)"
            Write-Host "OnFastNetwork: $($CheckContents.OnFastNetwork)"
            Write-Host "OnSlowNetwork: $($CheckContents.OnSlowNetwork)"
            Write-Host "Peer cache: $($CheckContents.PeerCache)"
            Write-Host "PinOnClient: $($CheckContents.PinOnClient)"

            $CheckUpdatedPath = ($CheckContents.Location).replace($CurrentContentPath,$UpdatedContentPath)
            
            Write-Output "INFO: Current content path for $($_.LocalizedDisplayName):"
            Write-Host -ForegroundColor Green "$($CheckContents.Location)"
            Write-Output "UPDATE: Updated content path will be:"
            Write-Host -ForegroundColor Red "$($CheckUpdatedPath)`n"
        }
    }
}

if ($SetEnumAnswer -like "Update") {
    Write-Output ""
    $Applications | ForEach-Object {
        $Application = [wmi]$_.__PATH
        $ApplicationXML = [Microsoft.ConfigurationManagement.ApplicationManagement.Serialization.SccmSerializer]::DeserializeFromString($Application.SDMPackageXML,$True)
        foreach ($DeploymentType in $ApplicationXML.DeploymentTypes) {
            $Installer = $DeploymentType.Installer
            $Contents = $Installer.Contents[0]

            #Covert to lowercase
            $Contents.Location = ($Contents.Location).ToLower()

            $UpdatePath = ($Contents.Location).Replace($CurrentContentPath,$UpdatedContentPath)

            if ($UpdatePath -ne $Contents.Location) {

                $UpdateContent = [Microsoft.ConfigurationManagement.ApplicationManagement.ContentImporter]::CreateContentFromFolder($UpdatePath)
                $UpdateContent.FallbackToUnprotectedDP = $Contents.FallbackToUnprotectedDP
                $UpdateContent.OnFastNetwork = [Microsoft.ConfigurationManagement.ApplicationManagement.ContentHandlingMode]::$($Contents.OnFastNetwork)
                $UpdateContent.OnSlowNetwork = [Microsoft.ConfigurationManagement.ApplicationManagement.ContentHandlingMode]::$($Contents.OnSlowNetwork)
                $UpdateContent.PeerCache = $Contents.PeerCache
                $UpdateContent.PinOnClient = $Contents.PinOnClient

                $Installer.Contents[0].ID = $UpdateContent.ID
                $Installer.Contents[0] = $UpdateContent

            }
        }
        $UpdatedXML = [Microsoft.ConfigurationManagement.ApplicationManagement.Serialization.SccmSerializer]::SerializeToString($ApplicationXML, $True)
        $Application.SDMPackageXML = $UpdatedXML
        $Application.Put() | Out-Null
        Write-Output "INFO: Updated content path for $($_.LocalizedDisplayName)"
    }
}