--switch languages
--Important :put a space before the string, for each language.
set lang_1 to " de"
set lang_2 to " it"

set x to (do shell script "defaults read .GlobalPreferences AppleLanguages")
set theseLanguages to makeTextItem(" " & text 2 thru -2 of x)

set new_Order to ""
repeat with i in theseLanguages
 if contents of i is lang_1 then
  set i to lang_2
 else if contents of i is lang_2 then
  set i to lang_1
 end if
 set new_Order to new_Order & i
end repeat
do shell script "defaults write .GlobalPreferences AppleLanguages -array " & new_Order
--new_Order : a array is the words separated by a space

-- hier wird ausgeloggt
  tell application "System Events" to log out


on makeTextItem(TheString)
 set ditd to text item delimiters
 set text item delimiters to ","
 set t to text items of TheString
 set text item delimiters to ditd
 return t
end makeTextItem

set lang_1 to " de"
set lang_2 to " it"
set x to (do shell script "defaults read .GlobalPreferences AppleLanguages")
set theseLanguages to makeTextItem(" " & text 7 thru -3 of x)

set new_Order to ""
if contents of item 1 of theseLanguages as string is lang_1 then
 set new_Order to "it de"
else
 set new_Order to "de it"
end if
do shell script "defaults write .GlobalPreferences AppleLanguages -array " & new_Order

on makeTextItem(TheString)
 set ditd to text item delimiters
 set text item delimiters to ","
 set t to text items of TheString
 set text item delimiters to ditd
 return t
end makeTextItem