VBScript - Como criar atalho na área de trabalho

Caso você tenha a necessidade de criar um atalho na Área de Trabalho dos seus usuário em sua rede, vide como faz usando VBScript.

No exemplo abaixo, será criado um atalho na sua área de trabalho com o nome "Dicas Que Funfa". Esse atalho será aberto com o Internet Explorer que vai direto para o blog www.dicasquefunfa.com.br.

Set objShell = CreateObject("WScript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")
Set objLink = objShell.CreateShortcut(strDesktop & "\DicasQueFunfa.lnk")
objLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe"
objLink.Arguments = "http://www.dicasquefunfa.com.br/"
objLink.WorkingDirectory = "%HOMEDRIVE%%HOMEPATH%"
objLink.IconLocation = "C:\Program Files\Internet Explorer\iexplore.exe, 2"
objLink.Description = "Dicas Que Funfa!"
objLink.Save

Para faze as alterações desejada, pasta mudar a parte em negrito.

Exemplo utilizado o Google Chrome

Set objShell = CreateObject("WScript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")
Set objLink = objShell.CreateShortcut(strDesktop & "\DicasQueFunfa.lnk")
objLink.TargetPath = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"
objLink.Arguments = "http://www.dicasquefunfa.com.br/"
objLink.WorkingDirectory = "%HOMEDRIVE%%HOMEPATH%"
objLink.IconLocation = "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe, 2"
objLink.Description = "Dicas Que Funfa!"
objLink.Save

Comentários

Postar um comentário

ATENÇÃO: Seu comentário é muito importante para nós e esperamos que você compartilhe suas opiniões e sugestões abaixo. No entanto, lembramos que é de inteira responsabilidade dos usuários seguir as dicas postadas no Blog DicasQueFunfa. Pedimos que evite comentários ofensivos, ilegais ou prejudiciais, pois esses não serão tolerados e serão removidos. Agradecemos sua colaboração e esperamos que suas contribuições enriqueçam ainda mais nosso conteúdo.

Postagens mais visitadas deste blog

Falha ao conectar a um serviço do Windows, não foi possível conectar o Windows ao serviço Cliente da Diretiva de Grupo

Erro 1920. O serviço 'Office Software Protection Plataform' (osppsvc) não pôde ser iniciado. Verifique se você tem privilégios suficientes para iniciar os serviços do sistema

O PowerPoint não pode ler ... A apresentação não pode ser aberta. Seu programa antivírus pode estar impedindo essa ação. Para corrigir o problema, verifique se o programa antivírus está atualizado e funcionando corretamente. Se o problema persistir e a apresentação for proveniente de uma fonte confiável, desative o programa antivírus e tente abrir a apresentação novamente. Nesse caso, não se esqueça de reativar o programa antivírus depois de abrir a apresentação.