PPT zu PNG PS Script

# source path for presentations
$ppt_source = 'D:\Presentationen'  
# target share path
$networkshare ='\\Server\Share'  
# open and edit passwords for presentations
$openpassword = '123456'  
$editpassword = '123456'  
# path to irfanview executable
$irfanviewpath = 'D:\iview\i_view64.exe'  
# --------------------
Add-Type -A System.Drawing
# create powerpoint com object
$pp = New-Object -Com Powerpoint.Application
# disable dialogs
$pp.DisplayAlerts = 1
# for each pptx file in source folder
ls $ppt_source -Filter *.pptx -File | %{
    # open presentation in protected view window (workaround to open file with password protection)
    $docview = $pp.ProtectedViewWindows.Open($_.FullName,$openpassword)
    # enter edit password (needed to export slides from presentation)
    $doc = $docview.Edit($editpassword)
    # if presentation has slides
    if ($doc.slides.Count -gt 0 ){
	$pngpath = "$ppt_source\$($_.Basename).png"  
        # export first slide to same path as presentation with *.png file extension
        $doc.slides[1].Export($pngpath,'png')  
        # get size from png
        $png = [System.Drawing.Image]::FromFile($pngpath)
        # crop 50px from bottom
        $w = $png.Width;$h = $png.Height - 50
        # free png ressources
        $png.Dispose()
        # process png with irfanview (crop 50px from bottom, rotate right 90° resample and resize longest side to 1080px)
        &$irfanviewpath "$pngpath" "/crop=(0,0,$w,$h)" /rotate_r /resample /resize_long=1080 /aspectratio /convert="$pngpath"  
    }
    # close presentation
    $doc.Close()
}
# enable dialogs
$pp.DisplayAlerts = 2
# cleanup
[void][System.Runtime.InteropServices.Marshal]::ReleaseComObject($pp)
Stop-Process -Name POWERPNT -EA SilentlyContinue

# finally move png's to network share 
move-item "$ppt_source\*.png" -Destination $networkshare -Verbose