Pages

Showing posts with label script to set shortcut icon. Show all posts
Showing posts with label script to set shortcut icon. Show all posts

Thursday 2 August 2012

Set Shortcut Icon - VBScript


Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objShell.SpecialFolders("Desktop")
Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\blah.url")
objURLShortcut.TargetPath = "http://www.blah.com"
objURLShortcut.IconLocation "\\server\share\icon.ico
objURLShortcut.Save