VBScript to change XYplorer's taskbar icon on Win 7

[zer0]

Being a fan of old-school orange icon and using the installer package, I wasn't best pleased when Win 7's taskbar was changing the icon every time I updated. And I didn't want to reassign the ICO file manually -- too much work So what I did was to create a little VBScript file to do the legwork for me. Its source code is as follows:

Code: Select all

Set sh = CreateObject("WScript.Shell")
Set shortcut = sh.CreateShortcut("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\XYplorer\XYplorer.lnk")
shortcut.IconLocation = "C:\Program Files (x86)\XYplorer\xyapp.ico"
shortcut.Save

Zip with the script is attached -- just change the location(s) as appropriate.