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

If application.SlideShowWindows.Count > 0 Then
	result = application.SlideShowWindows.Item(1).View.CurrentShowPosition
Else
	Dim length, min, names
	length = application.ActivePresentation.SlideMaster.CustomLayouts.Count
	min = 1
	names = ""

	While min <= length
		Dim name
		name = application.ActivePresentation.SlideMaster.CustomLayouts(min).Name

		names = names & name & ","
		min = min + 1
	Wend

	WScript.StdOut.WriteLine "elgato" & names & "elgato"

End If