Set application = GetObject(, "PowerPoint.Application")

Function SlideInformation()
	Dim maxSlide, minSlide, slideIndex, resultData, presentationName
	
	maxSlide = application.ActivePresentation.Slides.Count
	presentationName = application.SlideShowWindows(1).Presentation.FullName
	minSlide = 1
	resultData = ""
	slideIndex = 0
	
	If presentationName <> "" Then
		resultData = presentationName & "/"
	End If
	
	While minSlide <= maxSlide
		Dim CurrentSection, isHidden, currentIndex
		CurrentSection = application.ActivePresentation.Slides(minSlide).SectionIndex
		isHidden = application.ActivePresentation.Slides(minSlide).SlideShowTransition.Hidden
		currentIndex = - 1
		If isHidden = False Then
			slideIndex = slideIndex + 1
			currentIndex = slideIndex
		End If
		resultData = resultData & minSlide & ":" & isHidden & "." & CurrentSection & "." & currentIndex & ","
		
		minSlide = minSlide + 1
	Wend
	
	SlideInformation = "elgato-RD3S05" & resultData & "elgato-RD3S05"
End Function

WScript.Echo SlideInformation()