This is cross posted from SMS List because I am not sure if it a sript
issue, which I am a mere hack at, or an SMS issue.

I have created a VB Script to remove Office 2003 items from the Windows XP
Start Menu Pinned Items list.

I have tried creating a Package calling the VB, one that uses a bat file to
call the VB, and compiled the VB and bat file into an exe using the exe in
the package.

When I deploy any one of these using SMS 2003 they look like they run
successfully but they do not perform the desired task.

All three methods work outside of SMS. I have successfully deployed Office
2007 Using SMS, so I am not sure why this isn't working.

Anyone have any ideas?

Thanks,
James Borg

The VB is as follows.

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace("C:\Documents and Settings\All
Users\Start Menu\Programs\Microsoft Office")

Set objFolderItem = objFolder.ParseName("Microsoft Office Word 2003.lnk")

objFolderItem.InvokeVerb("Unp&in from Start Menu")



Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Documents and Settings\All
Users\Start Menu\Programs\Microsoft Office")
Set objFolderItem = objFolder.ParseName("Microsoft Office Excel 2003.lnk")


objFolderItem.InvokeVerb("Unp&in from Start Menu")


Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Documents and Settings\All
Users\Start Menu\Programs\Microsoft Office")
Set objFolderItem = objFolder.ParseName("Microsoft Office Access 2003.lnk")


objFolderItem.InvokeVerb("Unp&in from Start Menu")


Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Documents and Settings\All
Users\Start Menu\Programs\Microsoft Office")
Set objFolderItem = objFolder.ParseName("Microsoft Office PowerPoint
2003.lnk")


objFolderItem.InvokeVerb("Unp&in from Start Menu")


Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Documents and Settings\All
Users\Start Menu\Programs\Microsoft Office")
Set objFolderItem = objFolder.ParseName("Microsoft Office Publisher
2003.lnk")


objFolderItem.InvokeVerb("Unp&in from Start Menu")


Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Documents and Settings\All
Users\Start Menu\Programs\Microsoft Office")
Set objFolderItem = objFolder.ParseName("Microsoft Office Outlook 2003.lnk")


objFolderItem.InvokeVerb("Unp&in from Start Menu")

Obtained the solution from Matthew Hudson on the SMS list.

He instructed me to setup to SMS Package to run as the user not
administrator. The package then worked.


"James S. Borg" <JB@nospam.postalias> wrote in message
news:ei7cLU4BIHA.4956@TK2MSFTNGP06.phx.gbl...
> This is cross posted from SMS List because I am not sure if it a sript
> issue, which I am a mere hack at, or an SMS issue.
>
> I have created a VB Script to remove Office 2003 items from the Windows XP
> Start Menu Pinned Items list.
>
> I have tried creating a Package calling the VB, one that uses a bat file
> to
> call the VB, and compiled the VB and bat file into an exe using the exe in
> the package.
>
> When I deploy any one of these using SMS 2003 they look like they run
> successfully but they do not perform the desired task.
>
> All three methods work outside of SMS. I have successfully deployed Office
> 2007 Using SMS, so I am not sure why this isn't working.
>
> Anyone have any ideas?
>
> Thanks,
> James Borg
>
> The VB is as follows.
>
> Set objShell = CreateObject("Shell.Application")
>
> Set objFolder = objShell.Namespace("C:\Documents and Settings\All
> Users\Start Menu\Programs\Microsoft Office")
>
> Set objFolderItem = objFolder.ParseName("Microsoft Office Word 2003.lnk")
>
> objFolderItem.InvokeVerb("Unp&in from Start Menu")
>
>
>
> Set objShell = CreateObject("Shell.Application")
> Set objFolder = objShell.Namespace("C:\Documents and Settings\All
> Users\Start Menu\Programs\Microsoft Office")
> Set objFolderItem = objFolder.ParseName("Microsoft Office Excel 2003.lnk")
>
>
> objFolderItem.InvokeVerb("Unp&in from Start Menu")
>
>
> Set objShell = CreateObject("Shell.Application")
> Set objFolder = objShell.Namespace("C:\Documents and Settings\All
> Users\Start Menu\Programs\Microsoft Office")
> Set objFolderItem = objFolder.ParseName("Microsoft Office Access
> 2003.lnk")
>
>
> objFolderItem.InvokeVerb("Unp&in from Start Menu")
>
>
> Set objShell = CreateObject("Shell.Application")
> Set objFolder = objShell.Namespace("C:\Documents and Settings\All
> Users\Start Menu\Programs\Microsoft Office")
> Set objFolderItem = objFolder.ParseName("Microsoft Office PowerPoint
> 2003.lnk")
>
>
> objFolderItem.InvokeVerb("Unp&in from Start Menu")
>
>
> Set objShell = CreateObject("Shell.Application")
> Set objFolder = objShell.Namespace("C:\Documents and Settings\All
> Users\Start Menu\Programs\Microsoft Office")
> Set objFolderItem = objFolder.ParseName("Microsoft Office Publisher
> 2003.lnk")
>
>
> objFolderItem.InvokeVerb("Unp&in from Start Menu")
>
>
> Set objShell = CreateObject("Shell.Application")
> Set objFolder = objShell.Namespace("C:\Documents and Settings\All
> Users\Start Menu\Programs\Microsoft Office")
> Set objFolderItem = objFolder.ParseName("Microsoft Office Outlook
> 2003.lnk")
>
>
> objFolderItem.InvokeVerb("Unp&in from Start Menu")
>
>
>