Add a URL to Your Internet Explorer Favorites

Submitted By: Anonymous Submission

Adds the specified URL to the Internet Explorer Favorites of the logged-on user.

Visual Basic

Edit|Remove

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 & "\yourcompany.url")
objURLShortcut.TargetPath = "http://www.yourcompany.com"
objURLShortcut.Save

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 & "\yourcompany.url")
objURLShortcut.TargetPath = "http://www.yourcompany.com"
objURLShortcut.Save