VBscript agregar Web a Favoritos IE

Les comparto un Script para agregar sitios web a los favoritos, esto se utiliza normal mente para un despliegue masivo en los dominios.

VBscript

Const ADMINISTRATIVE_TOOLS = 6

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objFolderItem = objFolder.Self
Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\Nombre_sitio_web.url")
objURLShortcut.TargetPath = "http://www.mydominio.com"
objURLShortcut.Save