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

If application.Presentations.Count > 0 Then
	Set presentation = application.ActivePresentation
Else
	Call Err.Raise(60002, , "Not open any files")
End If

If application.SlideShowWindows.Count > 0 Then
	Set slideshow = application.SlideShowWindows.Item(1)
End If

If IsNull(slideshow) Or IsEmpty(slideshow) Then
	Call Err.Raise(60003, , "SlideShow not running")
Else
	Set slideNavigation = application.ActivePresentation.SlideShowWindow.SlideNavigation
	WScript.StdOut.WriteLine "elgato" & slideNavigation.Visible & "elgato"
End If