Pin to Start Menu in Vista

[TT(n)]

With xp it's easy to pin items to the start menu, by simply adding a com reference to "Windows script host object model"
Pin

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

Unpin

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

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

However, this doesn't seem to work on Vista.
Does anyone know if this is possible with Vista?