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
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
maravilhoso !
ResponderExcluir