convert_powerpoint_to_video.ps1

param (
	[string] $inFilePath,
	[string] $outFilePath = $false
)

# older PowerPoint versions don't support exporting to MP4 (e.g. 2010)
# use WMV as fallback and if necessary convert via ffmpeg (not part of this script)
if ([Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType]::ppSaveAsMP4) {
	$outExt = "mp4"
	$outExtType = [Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType]::ppSaveAsMP4
} else {
	$outExt = "wmv"
	$outExtType = [Microsoft.Office.Interop.PowerPoint.PpSaveAsFileType]::ppSaveAsWMV
}

$inFile = gci $inFilePath
if ($outFilePath -eq $false) {
	$outFile = "$($inFile.Directory.FullName)\$($inFile.BaseName).$outExt"
} else {
	$outFile = $outFilePath
}
echo "converting '$inFile' => '$outFile'"

$Application = New-Object -ComObject powerpoint.application
$Application.Visible = [Microsoft.Office.Core.MsoTriState]::msoTrue
$Presentation = $Application.Presentations.Open($inFile.FullName)
$Presentation.SaveAs($outFile, $outExtType)

# wait until finished
while ($Presentation.CreateVideoStatus -eq 1) {
	sleep 0.5
}

$Presentation.Close()
$Application.Quit()