Mac @ ISCTE-IUL

Convelhamos que estar a ligar à mão as 9 partilhas SMB do ISCTE é bastante enfadonho. Pode-se também tentar estabelecer as ligações automáticamente aquando o login, mas para quem usa a VPN para se ligar ao ISCTE, e usa o MAC também no ISCTE isso acaba por não funcionar. Eu chamei-lhe "SMB-areas.iscte.app" e depositei-o na Side Bar do Finder, mas pode igualmente ser posto na Dock, no Desktop, ou noutro lugar conveniente.
Resolvi por isso aventurar-me na criação do meu primeiro AppleScript. Este tenta estabelecer ligações com todas as partilhas ainda não activas, e lança no final uma mensagem explicativa das acções decorridas. Segue-se entao o dito script:
set areasServer to "smb://areas.iscte.intranet/"
set sharesAreasServer to {"A minha pasta pessoal", "A minha pagina Web", "Disciplinas", "Os meus grupos", "As paginas Web dos meus grupos", "Os meus parceiros", "As paginas Web dos meus parceiros", "Seguranca", "Ajuda"}
set sharesAlreadyOpen to ""
set sharesOpened to ""
set dialogText to ""
try
  tell application "Finder"
    repeat with currentSharesAreasServer in sharesAreasServer
      if (folder currentSharesAreasServer exists) is false then
        mount volume areasServer & currentSharesAreasServer
        set sharesOpened to sharesOpened & "\t" & currentSharesAreasServer & "\r"
      else
        set sharesAlreadyOpen to sharesAlreadyOpen & "\t" & currentSharesAreasServer & "\r"
      end if
    end repeat
  end tell
  if (count of sharesOpened) is greater than 0 then
    set dialogText to "Shares: \r" & sharesOpened & "have been connected. \r\r"
  end if
  if (count of sharesAlreadyOpen) is greater than 0 then
    set dialogText to dialogText & "Shares:\r" & sharesAlreadyOpen & "were already open!"
  end if
  display dialog dialogText buttons {"OK"} default button 1
on error
  display dialog "An error was encountered while attempting to automatically connect to a share." buttons {"OK"} default button 1
end try

Posso mandar também por email o dito ApplesScript se alguém o achar útil.