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

If application.SlideShowWindows.Count > 0 Then
	result = application.SlideShowWindows.Item(1).View.CurrentShowPosition
Else
	result = application.ActiveWindow.View.Slide.SlideIndex
End If

WScript.StdOut.WriteLine "elgato" & result & "elgato"