Connects/Disconnects a certain IM account (like for work) on both Adium and Messages. A context-aware app runs the scripts automatically when I arrive at home/work

connectIM.scpt

tell application "System Events"
	if (name of processes) contains "Adium" then
		tell application "Adium"
			set acc to (some account whose name is "#####")
			tell acc
				set enabled to true
				go online
			end tell
		end tell
		
	end if
	
	
	if (name of processes) contains "Messages" then
		tell application "Messages"
			log in (first service whose name is "#####")
		end tell
	end if
end tell

disconnectIM.scpt

tell application "System Events"
	if (name of processes) contains "Adium" then
		tell application "Adium"
			set acc to (some account whose name is "#####")
			tell acc
				go offline
			end tell
		end tell
	end if
	
	
	if (name of processes) contains "Messages" then
		tell application "Messages"
			log out (first service whose name is "#####")
		end tell
	end if
end tell