Växla tangentbordsinställningar

on bytAlt(bytTill)
	tell application "System Events"
		tell process "System Preferences"
			click button "Specialtangenter…" of tab group 1 of window "Tangentbord och mus"
			
			if bytTill is equal to "Mac" then
				click button "Återställ förval" of sheet 1 of window "Tangentbord och mus"
				
			else if bytTill is equal to "PC" then
				click pop up button 3 of sheet 1 of window "Tangentbord och mus"
				click menu item 4 of menu 1 of pop up button 3 of sheet 1 of window "Tangentbord och mus"
				delay 1
				click pop up button 4 of sheet 1 of window "Tangentbord och mus"
				click menu item 3 of menu 1 of pop up button 4 of sheet 1 of window "Tangentbord och mus"
			end if
			click button "OK" of sheet 1 of window "Tangentbord och mus"
		end tell
	end tell
end bytAlt

set bytTill to "Mac"
display dialog "Vad ska vi byta till?" buttons {"Mac", "PC"} default button 2
if button returned of result = "PC" then
	set bytTill to "PC"
end if

tell application "System Preferences"
	activate
	set current pane to pane "com.apple.preference.keyboard"
end tell

bytAlt(bytTill)

tell application "System Preferences"
	quit
end tell

Edit:Stavfle.

Startar KeyboardSetupAssistant när du kopplar in tangentbordet? I så fall borde det nog gå att göra det hela automagiskt.

Du kopierar och klistrar in skriptet antingen i Manusredigeraren och sparar det sen som ett program och kör det manuellt eller så startar du Automator och där väljer du Automator under program. Sedan väljer du Kör Applescript-manus och klistrar in skriptet där.

Spara som ett insticksprogram till Finder så kan du byta genom att kontrollklicka i Finder.

Hittade Peripheral Vision som gör så att man kan köra ett skript när man byter tangentbord.