Script para ligaçao automatica a partilhas SMB do ISCTE

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.

3 Response to "Script para ligaçao automatica a partilhas SMB do ISCTE"

  1. Carlos Serrao 30 de abril de 2007 16:48
    Bolas Rui, para um primeiro script em AppleScript não está nada mal... muit o bem.
    Se fores adicionando as diferentes ligações à medida que as estabeleces da primeira vez, da próxima vez é só seleccionar e ligar.
    O teu script é bom para as situações em que queremos ligar tudo de uma só vez.
  2. Carlos Serrao 30 de abril de 2007 17:16
    Btw, penso que é possível fazer o mesmo com o Automator do Mac OS.
    O Automator permite automatizar muitas as tarefas no Mac.
  3. Rui Marinheiro 2 de maio de 2007 15:56
    Tenho que admitir que tentei usar o automattor, mas não o consegui por a funcionar. Não sei porquê, mas a passagem de parametros entre as acções não se estava dar... Terei depois com mais tempo voltar a tentar. Parece uma ferramenta interessante.