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

If application.SlideShowWindows.Count > 0 Then
	result = application.SlideShowWindows.Item(1).View.CurrentShowPosition
Else
	result = application.Windows(1).Selection.SlideRange.SlideNumber
End If

Set objPresentation = application.ActivePresentation.Slides(result)

WScript.StdOut.WriteLine "elgato" & objPresentation.sectionIndex & "elgato"