Adiumでユーザーチェンジ

ユーザーの名前変えるの面倒だなぁと思ってたらこうすればいいのか。

set newName to text returned of (display dialog "新しいディスプレイネームを入れてください" default answer "")
if newName is not "" then
	tell application "Adium"
		set display name of accounts whose UID is (ID(MSNではメアド、ICQなら番号、AIMならユーザー名、Y!Japanならユーザー名)) to newName
	end tell
end if

私の環境ではうまくいきましたけど他ではどうなのか・・・
あー、来週からAjaxとかやってみたい。