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.
