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

Function GetNameOfPresentation()
	result = ""
	On Error Resume Next
	result = application.SlideShowWindows(1).Presentation.FullName
	On Error GoTo 0
	GetNameOfPresentation = result
End Function

WScript.Echo "elgato" & GetNameOfPresentation() & "elgato"