applescript that change your keyboad input type

changeKeyboardInput

on changeKeyboardInput(language)
  tell application "System Events" to tell process "SystemUIServer"
    click (menu bar item 1 of menu bar 1 whose description is "text input")
    #click menu item theInputSource of menu 1 of result
    click menu item language of menu 1 of result
  end tell
end changeKeyboardInput

on run argv
  if item 1 of argv = "en" then
    changeKeyboardInput("U.S.")
  else if item 1 of argv = "kr" then
    changeKeyboardInput("2-Set Korean")
  else if item 1 of argv = "cn" then
    changeKeyboardInput("Pinyin - Simplified")
  else
    display dialog "Language not defined!"
  end if
end run