Excel 2010 - Kontaktaufnahme

# --- Variablen ---------------------------
# Alter und neuer Servername angeben
$serverold = "\\serverold"  
$servernew = "\\servernew"  

# Ordner der *.xlsx und *.xlsm Dateien enthält und rekursiv verarbeitet wird
$folder = "D:\Excel-Mappen"  
# --------------------------------------
# Benötigt wird mindestens NET-Framework 4.5 und Powershell 3.0
if ($PSVersionTable.PSVersion.Major -lt 3){write-host "ERROR: Minimum Powershell Version 3.0 is required!" -F Yellow; return}   
# benötigte Assemblies laden
Add-Type -AssemblyName System.IO.Compression
Add-Type -AssemblyName System.IO.Compression.Filesystem

gci "$folder\*" -Include '*.xlsx','*.xlsm' -File -Recurse | %{  
    # Excel File als ZIP-Datei im Update-Modus öffnen
    $zipfile = [System.IO.Compression.ZipFile]::Open($_.FullName,[System.IO.Compression.ZipArchiveMode]::Update)
    
    # Einträge der benötigte Dateien aus dem Dokument holen
    $entries = $zipfile.Entries | ?{$_.FullName -match '^xl/(connections\.xml|externalLinks/_rels/.*?\.rels)$'}  
    $remove = @()
    $entries | %{
        $tmp = "$env:TEMP\$($_.Name)"  
        if (Test-Path $tmp){del $tmp -Force -ErrorAction SilentlyContinue}
        
        # file entry extrahieren
        [System.IO.Compression.ZipFileExtensions]::ExtractToFile($_,$tmp)

        $content = gc $tmp
        if ($content -match [regex]::Escape($serverold)){
            # Einträge ersetzen
            $content -replace [regex]::Escape($serverold),$servernew | Set-Content $tmp -Encoding UTF8
            # geänderte Datei wieder hinzufügen
            [System.IO.Compression.ZipFileExtensions]::CreateEntryFromFile($zipfile,$tmp,$_.FullName) | out-null
            $remove += $_
        }
        # temporäres files löschen
        del $tmp -Force -ErrorAction SilentlyContinue
    }
    # lösche ersetzte Teile im ZIP
    $remove | %{$_.Delete()}
  
    # Zipfile-Resourcen freigeben
    $zipfile.Dispose()
}