on error resume next
Application.Advise "OnBeginSceneSave","C:\MyEventHandler.vbs",,,"ABCSaveSceneEvent"
set info = Application.EventInfos("ABCSaveSceneEvent")
LogMessage "Type: " & info.Type
LogMessage "Name: " & info.name
LogMessage "Token: " & info.Token
LogMessage "Handler: " & info.Handler
LogMessage "Filename: " & info.Filename
LogMessage "Language: " & info.Language
if IsArray(info.Attributes) then
        arr = info.Attributes
        for i=0 to ubound(arr,1)
                LogMessage "Attributes " & i & ":" & arr(i)
        next
else
        LogMessage "Attributes: " & info.Attributes
end if
if IsArray(info.CustomData) then
        arr = info.CustomData
        for i=0 to ubound(arr,1)
                LogMessage "CustomData " & i & ":" & arr(i)
        next
else
        LogMessage "CustomData: " & info.CustomData
end if