PowerShell Script mit Anwendung

# function to get pathes of currently opened office files
Function Get-OpenedOfficeFiles {
    param(
        [parameter(mandatory=$false)][ValidateSet('All','Powerpoint','Visio','Excel','Word','Publisher','Acrobat')][string[]]$app = 'All'    
    )
    function Get-ExcelFiles {
        # Excel
        try{
            $excel = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Excel.Application')    
            $excel.Workbooks | ?{Test-Path $_.FullName} | select -Expand Fullname
            [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel)
        }catch{}
    }
    function Get-PowerpointFiles {
        # Powerpoint
        try{
            $pp = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Powerpoint.Application')    
            $pp.Presentations | ?{Test-Path $_.FullName} | select -Expand Fullname
            [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($pp)
        }catch{}
    }
    function Get-VisioFiles {
        # Visio
        try{
            $visio = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Visio.Application')    
            $visio.Documents | ?{$_.ObjectType -eq 10 -and (Test-Path $_.Fullname)} | select -Expand Fullname
            [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($visio)
        }catch{}
    }
    function Get-WordFiles {
        # Word
        try{
            $word = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Word.Application')    
            $word.Documents | ?{Test-Path $_.FullName} | select -Expand Fullname
            [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($word)
        }catch{}
    }
    function Get-PublisherFiles {
       # Publisher
        try{
            $pub = [System.Runtime.InteropServices.Marshal]::GetActiveObject('Publisher.Application')    
            $pub.Documents | ?{Test-Path $_.FullName} | select -Expand Fullname
            [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($pub)
        }catch{}
    }
    function Get-AcrobatFiles {
       # Acrobat
        try{
            $acro = New-Object -Com "AcroExch.App"    
            $numdocs = $acro.GetNumAVDocs()
            if ($numdocs){
                0..($numdocs-1) | %{
                    $js = $acro.GetAVDoc($_).GetPDDoc().GetJSObject()
                    [Type]::GetType($js).InvokeMember('Path',[System.Reflection.BindingFlags]::GetProperty,$null,$js,$null) -replace '^/' -replace '/','\' -replace '^(\w+)(?=\\)','$1:'    
                    [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($js)
                }
            }
            [void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($acro)
        }catch{}
    }

    switch ($app){
        'All' {    
            Get-PowerpointFiles
            Get-ExcelFiles
            Get-WordFiles
            Get-PublisherFiles
            Get-VisioFiles
            Get-AcrobatFiles
        }
        'Powerpoint' {Get-PowerpointFiles}    
        'Visio' {Get-VisioFiles}    
        'Word' {Get-WordFiles}    
        'Excel' {Get-ExcelFiles}    
        'Publisher' {Get-PublisherFiles}    
        'Acrobat' {Get-AcrobatFiles}    
    }
    [gc]::collect()
    [gc]::WaitForPendingFinalizers()
}

function foreach-parallel {
    [CmdletBinding()]
    param(
        [parameter(mandatory=$true,ValueFromPipeline=$true)][ValidateNotNullOrEmpty()][object[]]$InputObject,
        [parameter(mandatory=$true)][ValidateNotNullOrEmpty()][scriptblock]$process,
        [parameter(mandatory=$false)][ValidateNotNullOrEmpty()][int]$ThrottleLimit = [System.Environment]::ProcessorCount,
        [parameter(mandatory=$false)][switch]$showprogress,
        [parameter(mandatory=$false)][object]$messagedata
        
    )
    begin{
        $rspool = [runspacefactory]::CreateRunspacePool(1,$ThrottleLimit)
        $rspool.ApartmentState = 'STA'    
        $rspool.Open()
        $jobs = New-Object System.Collections.ArrayList
        $objects = New-Object System.Collections.ArrayList
    }
    process{
        $InputObject | %{[void]$objects.Add($_)}
    }
    end{
        foreach ($obj in $objects){
            $ps = [Powershell]::Create()
            $ps.RunspacePool = $rspool
            [void]$ps.AddScript($process).AddParameter('_',$obj).AddParameter('MessageData',$messagedata)    
            $job = $ps.BeginInvoke()
            [void]$jobs.Add(([pscustomobject]@{Handle = $job; Powershell = $ps}))
        }

        write-verbose "Waiting for all jobs to complete."    
        $completed = 0
        while($jobs.Count){
            if ($showprogress.IsPresent){
                Write-Progress -Activity $PSCmdlet.MyInvocation.InvocationName -Status "Total of $($objects.Count) objects." -PercentComplete (($completed / $objects.Count) * 100) -CurrentOperation "Completed $completed of  $($objects.Count)."    
            }
            # process finished jobs and output their result
            $finished = @()
            foreach($job in $jobs | ?{$_.Handle.IsCompleted}){
                $job.Powershell.EndInvoke($job.handle)
                $job.Powershell.Dispose()
                $completed++
                $finished += $job
            }
            $finished | %{$jobs.Remove($_)}
        }
        # cleanup
        $rspool.Close();$rspool.Dispose()
    }
}


# get currently opened word and excel files
$openfiles = Get-OpenedOfficeFiles -app Word,Excel
if ($openfiles){
    write-host "Waiting until all files are closed ..." -F Green    
    #  process files in parallel
    $openfiles | foreach-parallel -showprogress -process {
        param($_)
        # Check file locked state function
        function Is-FileLocked([string]$filePath){
            $fileStream =  $null; $result = $true
            try{
                $fileStream = (New-Object System.IO.FileInfo $filePath).OpenWrite()
                # file is not locked by another process
                $result = $false
            }catch{
            }finally{
                if($filestream){
                    $fileStream.Close(); $fileStream.Dispose()
                }
            }
            return $result
        }
        # wait until file is unlocked
        while(Is-FileLocked $_){
            sleep 1
        }
        
        "File '$_' was closed"    
        # start application to process closed file
        start cmd -ArgumentList "/c echo File '$_' was closed. &pause"    
    }
}else{
    write-warning "No open office files found."    
}