AddAnNimbussJabberForEachICQAccount.scpt

tell application "Address Book"
	repeat with contact in people
		repeat with icq in ICQ handles of contact
			set nimbuzzIcq to (value of icq) & "@icq.nimbuzz.com"
			
			set nimbuzzIcqFound to no
			repeat with jabber in Jabber handles of contact
				if (value of jabber) = nimbuzzIcq then
					set nimbuzzIcqFound to yes
				end if
			end repeat
			
			if nimbuzzIcqFound = no then
				make new Jabber handle at the end of (Jabber handles of contact) with properties {value:nimbuzzIcq, label:"privat"}
			end if
		end repeat
	end repeat
	save
end tell