Byta ikoner på genvägar med .vbs

Jag har följande .vbs kod, den skapar en mapp med en genväg till calculator.exe
Men jag vill ändra ikon till en annan som jag väljer, hur gör jag det??

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("D:\Accessories")
Set objShell = WScript.CreateObject("WScript.Shell")
Set objShortCut = objShell.CreateShortcut("D:\Accessories\Calculator.lnk")
objShortCut.TargetPath = "C:\Windows\I386\SYSTEM32\CALC.EXE"
objShortCut.Description = "Calculator"
objShortCut.Save