Pin to start menu

With xp it's easy to pin items to the start menu, by simply adding a com reference to
"Windows script host object model"
However, this doesn't seem to work on Vista.
Does anyone know if this is possible with Vista?

XP

Pin

Code:

---

CreateObject("Shell.Application").Namespace(Environment.SystemDirectory).ParseName(fileName_Ext).InvokeVerb("P&in to Start Menu")

---

Unpin

Code:

---

CreateObject("Shell.Application").Namespace(Environment.SystemDirectory).ParseName(fileName_Ext).InvokeVerb("Unp&in from Start Menu")

---

This example looks in the system32 folder for the file name specified as fileName_Ext.