Set application = WScript.CreateObject("PowerPoint.Application")

Function TotalSection()
	TotalSection = application.ActivePresentation.SectionProperties.Count
End Function

WScript.StdOut.WriteLine "elgato" & TotalSection() & "elgato"