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

maxSlide = application.ActivePresentation.Slides.Count

WScript.StdOut.WriteLine "elgato" & maxSlide & "elgato"