1 2 3 4 5 6 7 8 9 10 11 12 13 14 | activate application "SystemUIServer" tell application "System Events" tell process "SystemUIServer" set x to item 3 of menu bar items of menu bar 1 tell x click click menu item "Connect Cisco VPN" of front menu delay 3 keystroke token keystroke return end tell end tell end tell |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | set tokens to "" tell application "System Events" to tell process "SofToken II" tell application "SofToken II" to activate delay 1 keystroke "***" delay 1 repeat 10 times keystroke return set token to the clipboard set tokens to tokens & "\r" & token delay 1 end repeat end tell tokens |