31 de jan. de 2011

VBS e JS - Script para criar atalhos automaticamente

No dia a dia de trabalho em uma rede de computadores, por diversas vezes precisamos divulgar um novo atalho para uma aplicação, site ou funcionalidade, e para isso é possivel utilizar scripts de login para facilitar essa ardua tarefa.

Consiste em um VBScript que é nativo da plataforma Windows, onde basta copiar as linhas abaixo e salva-las em um arquivo com extensão .vbs.
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Webmail.lnk")
oUrlLink.TargetPath = "http://www.seusite.com/webmail"
oUrlLink.IconLocation = "%SystemRoot%\system32\SHELL32.dll,5"
oUrlLink.Save

Descobri também um outro script, agora em js, que faz o mesmo serviço, basta salvar o arquivo com a extensão "*.js" que segue:
Nesse caso ele está criando 2 atalhos, um para um programa, outro para uma página na internet

var WshShell = WScript.CreateObject("WScript.Shell");
strDesktop = WshShell.SpecialFolders("Desktop");
var oShellLink = WshShell.CreateShortcut(strDesktop + "\\Shortcut Script.lnk");
oShellLink.TargetPath = WScript.ScriptFullName;
oShellLink.WindowStyle = 1;
oShellLink.Hotkey = "CTRL+SHIFT+F";
oShellLink.IconLocation = "notepad.exe, 0";
oShellLink.Description = "Shortcut Script";
oShellLink.WorkingDirectory = strDesktop;
oShellLink.Save();
var oUrlLink = WshShell.CreateShortcut(strDesktop + "\\Microsoft Web Site.url");
oUrlLink.TargetPath = "http://www.magskull.com";
oUrlLink.Save();

Esse script cria um atalho em seu desktop, com um icone do proprio sistema operacional, para um webmail. Referência: MSDN

4 comentários:

pcollares disse...

Show, exatamente o que eu precisava!

Unknown disse...

Opa!
agradeço pela dica do script.
Usei seu script, porém quando ele cria o icone eu preciso que nas propriedades do atalho apareça no campo "iniciar em:" apareça um caminho especificado por mim...
isso é possível?

Magskull disse...

Falai Diego, eu procurei e acabei descobrindo outro script em js, vou incluir no post

Unknown disse...

Fala Luiz Fernando,

esse Script funcionou perfeitamente como eu precisava...

Muito bom trabalho...

valeu.