Windows 8 将Office快捷方式固定到Windows 8 Start的脚本

我需要能够在Windows 8“开始”菜单上锁定MS Office 2013快捷方式。我用这个来固定注销按钮，效果很好。我在尝试锁定Excel 2013时对其进行了修改，但它不起作用

    '
' This script will create shortcuts in the Start Menu
'
set WshShell = WScript.CreateObject("WScript.Shell")
strStartMenu = WshShell.SpecialFolders("StartMenu")

set oShellLink = WshShell.CreateShortcut(strStartMenu & "\Excel.lnk")
oShellLink.TargetPath = "C:\Program Files (x86)\Microsoft Office\Office15\EXCEL.EXE"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "%ProgramFiles% (x86)\Microsoft Office\Office15\XLICONS.EXE"
oShellLink.Description = "Microsoft Excel 2013"
oShellLink.WorkingDirectory = "C:\Program Files (x86)\Microsoft Office\Office15"
oShellLink.Save
Set oShellLink = Nothing

Wscript.Echo "Created Icons"

---

我做错了什么？

是否收到任何错误消息？没有错误，它会将Excel.lnk文件复制到%appdata%\Microsoft\Windows\Start菜单，但不会锁定快捷方式。它对我链接到的脚本中的注销图标有效。