none
Pin item to start menu for all users Server 2008 R2

    Question

  • I'm trying to figure out a way to pin a program to the start menu for all users on my 2008 R2 Terminal server.  Is there a way to do this?  If there's not a way to do this is there a way I can hide the "pinned items" area on the start menu so that when users click the start menu it goes right to the "all programs" section?  I know I can disable the ability to pin items but that doesn't hide the blank landing area users see when clicking the start menu.  I'm trying to make the experience as clean as possible for my users.
    Tuesday, June 21, 2011 3:24 PM

Answers

  • I was able to figure out a way by loosely following this article: http://www.bdts.com.au/tips/50-windows-7/143-pinned-taskbar-icons-for-network-users.html

    Instead of opening a mandatory profile I opened the default ntuser.dat and added the shortcuts to the location specified and merged the registry changes there.  MS seems to make configuring these kinds of things harder with each server release.

    Tuesday, June 21, 2011 7:39 PM
  • I used a VBS script for this applied through GP to the RDS farm

    below is the script

    set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace("D:\Program Files (x86)\Microsoft Office\Office12")
    Set objFolder1 = objShell.Namespace("D:\Program Files (x86)\Adobe\Reader 9.0\Reader")
    Set objFolder2 = objShell.Namespace("C:\Program Files (x86)\Internet Explorer")
    Set objFolderItem = objFolder.ParseName("excel.exe")
    Set objFolderItem1 = objFolder.ParseName("winword.exe")
    Set objFolderItem2 = objFolder.ParseName("powerpnt.exe")
    Set objFolderItem3 = objFolder.ParseName("outlook.exe")
    Set objFolderItem4 = objFolder1.ParseName("AcroRd32.exe")
    Set objFolderItem5 = objFolder2.ParseName("iexplore.exe")

     

    For Each verb in objFolderItem.Verbs()
        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    Next

    For Each verb in objFolderItem1.Verbs()

        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    Next

    For Each verb in objFolderItem2.Verbs()
        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    Next

    For Each verb in objFolderItem3.Verbs()
        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    Next

    For Each verb in objFolderItem4.Verbs()
        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    Next

    For Each verb in objFolderItem5.Verbs()
        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    N


    Regards Malli Boppe
    Wednesday, June 22, 2011 5:26 AM

All replies

  • I was able to figure out a way by loosely following this article: http://www.bdts.com.au/tips/50-windows-7/143-pinned-taskbar-icons-for-network-users.html

    Instead of opening a mandatory profile I opened the default ntuser.dat and added the shortcuts to the location specified and merged the registry changes there.  MS seems to make configuring these kinds of things harder with each server release.

    Tuesday, June 21, 2011 7:39 PM
  • I used a VBS script for this applied through GP to the RDS farm

    below is the script

    set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.Namespace("D:\Program Files (x86)\Microsoft Office\Office12")
    Set objFolder1 = objShell.Namespace("D:\Program Files (x86)\Adobe\Reader 9.0\Reader")
    Set objFolder2 = objShell.Namespace("C:\Program Files (x86)\Internet Explorer")
    Set objFolderItem = objFolder.ParseName("excel.exe")
    Set objFolderItem1 = objFolder.ParseName("winword.exe")
    Set objFolderItem2 = objFolder.ParseName("powerpnt.exe")
    Set objFolderItem3 = objFolder.ParseName("outlook.exe")
    Set objFolderItem4 = objFolder1.ParseName("AcroRd32.exe")
    Set objFolderItem5 = objFolder2.ParseName("iexplore.exe")

     

    For Each verb in objFolderItem.Verbs()
        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    Next

    For Each verb in objFolderItem1.Verbs()

        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    Next

    For Each verb in objFolderItem2.Verbs()
        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    Next

    For Each verb in objFolderItem3.Verbs()
        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    Next

    For Each verb in objFolderItem4.Verbs()
        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    Next

    For Each verb in objFolderItem5.Verbs()
        If verb.Name = "Pin to Start Men&u" Then verb.DoIt
    N


    Regards Malli Boppe
    Wednesday, June 22, 2011 5:26 AM
  • Right click on the "Startup" menu option and select "Open All Users"

    It's really just THAT easy.

    Friday, February 03, 2012 4:06 PM
  • @Code-Toad: This doesn't work for Win2008 Server AFAIK.
    • Edited by pdr007 Saturday, October 05, 2013 10:13 AM
    Saturday, October 05, 2013 10:12 AM