Código: Selecionar todos
' Adiciona favoritos no IE
' Retirado do fórum itbr.org
' Por Marcelo Leães - [email protected]
Const Helpdesk = 6
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(Helpdesk)
Set objFolderItem = objFolder.Self
Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
' Personalize aqui conforme suas necessidades
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Sistema de Chamados.url")
objURLShortcut.TargetPath = "http://chamados.suaempresa.com.br"
objURLShortcut.Save