tell application "System Events"
  if not (exists application process "Microsoft PowerPoint") then
    error "PowerPoint not running"
  end if
end tell


tell application "Microsoft PowerPoint"

if it is running then
set maxSlide to (get count of slides of presentation of document window 1)
set presentationName to name of active presentation

set minSlide to 1

set slideIndex to 0
set _result to  presentationName & "/"

repeat while minSlide ≤ maxSlide
  set selectedSlide to slide minSlide of active presentation
  set currentSection to section index of selectedSlide
  set _hidden to hidden of slide show transition of selectedSlide
  set currentIndex to -1

  if _hidden is false then
    set slideIndex to (slideIndex + 1)
    set currentIndex to slideIndex
  end if

  set _result to (_result & minSlide & ":" & (_hidden as text) & "." & (currentSection as text)) & "." & currentIndex & ","


  set minSlide to (minSlide + 1)
end repeat


return _result
else
  error "PowerPoint not running"
end if

end tell