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

Function TotalSlideWithoutHidden()
	Dim maxSlide, minSlide, hiddenSlide
	
	maxSlide = application.ActivePresentation.Slides.Count
	minSlide = 1
	hiddenSlide = 0
	
	While minSlide <= maxSlide
		Dim SectionIndex, isHidden
		isHidden = application.ActivePresentation.Slides(minSlide).SlideShowTransition.Hidden
		
		If isHidden Then
			hiddenSlide = hiddenSlide + 1
		End If
		
		minSlide = minSlide + 1
	Wend
	
	TotalSlideWithoutHidden = maxSlide - hiddenSlide
End Function

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