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