Criando um atalho na área de trabalho dos usuários no SBS
Digamos que você precise criar um atalho na área de trabalho de todos os seus usuários do SBS.
Como fazer isso sem precisar acessar cada uma das máquinas?
É bem simples. Quando qualquer usuário acessa ao SBS é executado um script de login, portanto se você adicionar a ele uma chamada a um arquivo que crie o atalho, bastará esperar todos logarem e depois retirar a chamada, que estará tudo pronto.
Mas onde encontro este script? Aqui: C:\WINDOWS\SYSVOL\sysvol\digite_aqui_o_nome_do_seu_domínio\scripts
Na hora de incluir o script, lembre-se de referenciá-lo pelo caminho de rede, por exemplo: \\sbs-server\SYSVOL\nome_do_dominio\scripts\link.vbs (se o arquivo do script estiver na pasta citada acima).
Maravilha, mas qual deve ser o conteúdo deste arquivo de script? Confira abaixo:
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop") ' Aqui vai o local onde deseja colocá-lo, ao invés de "Desktop" poderia ser outro local
Set link = Shell.CreateShortcut(DesktopPath & "\teste.lnk") ' teste.lnk é o que aparecerá no link
link.Arguments = "/y" ' Aqui você informa argumentos adicionais para o programa, caso sejam necessários. Se não forem, exclua essa linha
link.Description = "Atalho para teste" ' Esta é a descrição do link, que também pode ser suprimida se assim o desejar
link.HotKey = "CTRL+ALT+SHIFT+X" ' Aqui temos as teclas de acesso rápido, para acionar o link
link.IconLocation = "app.exe,1" ' Aqui definimos o ícone a ser usado
link.TargetPath = "\\sbs-server\ClientApps\Planilhas\Planilha.xlsx" 'Aqui se define o que será executado quando o link for acionado
link.WindowStyle = 3 ' O estilo da janela
link.WorkingDirectory = "\\sbs-server\ClientApps\Planilhas" ' O diretório de trabalho
link.Save
Pronto, isto era tudo o que você precisava!