Print entire Keychain in Mountain Lion?

Question

I'm trying to print my entire keychain from mountain lion. Here's what I've tried already.
- I started out at this post: https://discussions.apple.com/thread/1343386
- Then I found out that the Keychain Scripting.app isn't available in ML.
- I downloaded Usable Keychain Scripting.app from here: http://www.red-sweater.com/blog/2035/usable-keychain-scripting-for-lion
- Now I'm getting an error when I try to run it: Syntax error: Expected class name but found constant (or something, my system is in dutch so it's a bit hard to translate). The error relates to the statement "Internet" on the line: "set KeyList to every Internet key of current keychain".
I'm not very fluent in applescript. Has anyone any ideas?
Regards,
Fabian
The script:
set osXKeychainScriptingPath to (path to scripting additions from system domain as Unicode text) & "Usable Keychain Scripting.app:"
set theSecuridPIN to {}
tell application "Usable Keychain Scripting" to launch
tell application "Keychain Access" to launch
using terms from application "Usable Keychain Scripting"
          tell application osXKeychainScriptingPath
                    set KeyList to every Internet key of current keychain
                    repeat with aKey in KeyList
                              set theSecuridPIN to theSecuridPIN & ((name of aKey) & tab & (account of aKey) & tab & (password of aKey) & return) as text
                    end repeat
          end tell
end using terms from
tell application "Usable Keychain Scripting" to quit
tell application "Keychain Access" to quit
tell application "Finder"
          open for access file (((path to desktop folder) as text) & "Passwords") with write permission
                    set theFile to result
                    write theSecuridPIN to theFile
          close access theFile
end tell

Answer 1

FWIW, this revised script works in SL through Mavericks, but requires the Usable Keychain Scripting.app vers 1.0b4 reside in /System/Library/ScriptingAdditons/.
set osXKeychainScriptingPath to ¬
  (path to scripting additions from system domain as Unicode text) ¬
  & "Usable Keychain Scripting.app:" -- one liner
set theSecuridPIN to {}
tell application "Usable Keychain Scripting" to launch
tell application "Keychain Access" to launch
using terms from application "Usable Keychain Scripting"
  tell application osXKeychainScriptingPath
  set KeyList to every internet password of current keychain
  repeat with aKey in KeyList
  set theSecuridPIN to theSecuridPIN & ((name of aKey) & tab & ¬
  (account of aKey) & tab & (password of aKey) & return) as text
  end repeat
  end tell
end using terms from
tell application "Usable Keychain Scripting" to quit
tell application "Keychain Access" to quit
tell application "Finder"
  open for access file (((path to desktop folder) as text) & "Passwords") with write permission
  set theFile to result
  write theSecuridPIN to theFile
  close access theFile
end tell