mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
41 lines
1.3 KiB
AppleScript
41 lines
1.3 KiB
AppleScript
(*
|
|
Get User Name
|
|
|
|
This script uses UI element scripting to get the name for the
|
|
current user.
|
|
|
|
If "Enable access for assistive devices" is not checked,
|
|
this script will open the Universal Access System Preference and ask
|
|
the user to check the checkbox.
|
|
|
|
Copyright 2007 Apple Inc.
|
|
|
|
You may incorporate this Apple sample code into your program(s) without
|
|
restriction. This Apple sample code has been provided "AS IS" and the
|
|
responsibility for its operation is yours. You are not permitted to
|
|
redistribute this Apple sample code as "Apple sample code" after having
|
|
made changes. If you're going to redistribute the code, we require
|
|
that you make it clear that the code was descended from Apple sample
|
|
code, but that you've made changes.
|
|
*)
|
|
|
|
tell application "System Preferences"
|
|
activate
|
|
set current pane to pane "com.apple.preferences.users"
|
|
end tell
|
|
|
|
tell application "System Events"
|
|
if UI elements enabled then
|
|
tell tab group 1 of window "Accounts" of process "System Preferences"
|
|
click radio button 1
|
|
delay 2
|
|
get value of text field 1
|
|
end tell
|
|
else
|
|
tell application "System Preferences"
|
|
activate
|
|
set current pane to pane "com.apple.preference.universalaccess"
|
|
display dialog "UI element scripting is not enabled. Check \"Enable access for assistive devices\""
|
|
end tell
|
|
end if
|
|
end tell |