' varaibles dim winShell dim shortcut ' create a windows shell instance set winShell = CreateObject("WScript.Shell") ' make a shortcut on the desktop set shortcut = winShell.CreateShortcut(WinShell.SpecialFolders("Desktop") & "\Intranet.lnk") ' set its attribs shortcut.TargetPath = "https://www.pubinfo.vcu.edu/partnership2/" shortcut.Description = "Connect to the Partnership intranet" ' save the file shortcut.Save