Automate Quick Launch Pinned Items at Logon

We have a group that wants certain pinned items (shortcut to apps) in their taskbar when they login to their Windows 7 Machine.  Is there a good way of doing this utilizing a script on Windows 7?  They want Microsoft Word, Excel, and other 3rd party apps pinned automatically without user intervention.
LVL 1
mystikal1000Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

jcimarronCommented:
mystikal1000 --
I do not do script, but if you right click just about any .exe file you will be offered "Pin to Taskbar " and "Pin to Start Menu"

The location of those two items is
"C:\Users\EQUUS\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu"

"C:\Users\EQUUS\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"
0
Dash AmrSenior Specialist(PM)Commented:
Windows 7 task-bar pinned icons are stored in the following locations:
 
File System:
%APPDATA%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar

Registry:
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband]
 
To deploy it, you can perform the following steps:
1.    Configure Pinned items on a Windows 7 system as a reference computer.

2.    Export Reigstry Key to pinned.reg file:
 
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband]
 
And copy items in the "%APPDATA%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar" to a shared folder.
 
3.    Create a logon script to deploy the registry keys and copy the corresponding files.

 Please note that the “%APPDATA%\Microsoft\Internet Explorer\Quick Launch\User Pinned” folder is only created after a user has pinned an icon to the taskbar. In the logon script, you will need to create the “%APPDATA%\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar” folder if it does not exist.

I hope this Helps :)
Reference:
http://social.technet.microsoft.com/Forums/windowsserver/en-US/d172b4de-be7c-4149-8958-bebfe042ade1/forum-faq-how-to-deploy-windows-7-taskbar-pinned-icons-by-group-policy?forum=winserverGP
0
zalazarCommented:
The following visual basic script will pin Word 2010 and Excel 2010 to the taskbar.
You can easily modify the path for e.g. Word or Excel 2013 or add extra 3rd party apps.
'*********************************************************************
'* Pin Shortcuts
'*********************************************************************
Const PinTask = "Pin to Taskbar"
Const PinStart = "Pin to Start Menu"
Const UnpTask = "Unpin from Taskbar"
Const UnpStart = "Unpin from Start Menu"

Dim fso, objShell, strShortcut

Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")

' Pin Word 2010 to taskbar
strShortcut = "C:\Program Files (x86)\Microsoft Office\Office14\WINWORD.EXE"
call PinItem(strShortcut, PinTask)

' Pin Excel 2010 to taskbar
strShortcut = "C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE"
call PinItem(strShortcut, PinTask)


Set objShell = Nothing
Set fso = Nothing

Wscript.quit 0
'---------------------------------------------------------------------
' --------  SUBS  --------
'---------------------------------------------------------------------
Sub PinItem(sShortcut, sPinType)
  Dim sFolderPath, sFileName
  Dim objFolder, objFolderItem, colVerbs, objVerb

  If fso.FileExists(sShortcut) = False Then
    Exit Sub
  End If

  sFolderPath = fso.GetParentFolderName(sShortcut)
  sFileName = fso.GetFileName(sShortcut)

  Set objFolder = objShell.Namespace(sFolderPath)
  Set objFolderItem = objFolder.ParseName(sFileName)
  Set colVerbs = objFolderItem.Verbs
  For Each objVerb in colVerbs
    If Replace(objVerb.name, "&", "") = sPinType Then objVerb.DoIt
  Next

  Set colVerbs = Nothing
  Set objFolderItem = Nothing
  Set objFolder = Nothing
End Sub

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
ON-DEMAND: 10 Easy Ways to Lose a Password

Learn about the methods that hackers use to lift real, working credentials from even the most security-savvy employees in this on-demand webinar. We cover the importance of multi-factor authentication and how these solutions can better protect your business!

RobSampsonCommented:
Hi, check out the article here as well:

Pin and Unpin Start Menu and Taskbar Items in Windows 7
http://blog.experts-exchange.com/ee-blog/pin-unpin-start-menu-taskbar-items-windows-7/

It's a pretty flexible method that should work for you.

Regards,

Rob.
0
zalazarCommented:
Hello mystikal1000, good that you have a solution.
Was my script not suitable for the task you requested ?
0
mystikal1000Author Commented:
Zalazar - whoops I wanted to give you the points, that's my mistake.
0
zalazarCommented:
Hello mystikal1000, thanks for your response and good to know that the script is suitable.
Thanks also for creating the "Request For Attention".
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.