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

result = "false"

If application.SlideShowWindows.Count > 0 Then
	result = "true"
End If

WScript.StdOut.WriteLine result