Pin to Start Menu

[SoultakerPT]

Hello everyone and greetings from Portugal.

I'm trying to pin some apps to the start menu, not all programs, but where IE and Outlook are.

I've managed to get some vbscript code that does the trick:

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace("C:\Users\victorma\Desktop")

Set objFolderItem = objFolder.ParseName 
("Nero StartSmart.lnk")

For each verb in objFolderItem.Verbs() 
  ‘WScript.Echo verb 
  if verb.Name = "P&in to Start Menu" then verb.DoIt() 
Next

Now I'm trying to do this to All Users but I just can't figure out how to do it.

I've already looked through the forum with no luck.

Does anyone knows?

Best regards,

Soultaker