Dim ObjFolder, ObjFolderItem, colVerbs, objverb, objshell
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Program Files\Internet Explorer")
Set objFolderItem = objFolder.ParseName("iexplore.exe")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt
Next
Set objFolder = objShell.Namespace("C:\Program Files\Microsoft Office\Office14")
Set objFolderItem = objFolder.ParseName("outlook.exe")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt
Next
WScript.Quit