Use this simple script to create an internet explorer favorite link to the Microsoft MSDN library.
1 2 3 4 5 6 7 8 9 |
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 & "MSDN.url" objURLShortcut.TargetPath = "http://msdn.microsoft.com" objURLShortcut.Save |