Search This Blog

Monday, May 13, 2013

Pin to Taskbar script

This is a short vbscript to pin programs to the taskbar.

The script can for example be used in a login script.

Set objShell = CreateObject("Shell.Application")

Set oShell = CreateObject("WScript.Shell")

Set ofso = CreateObject("Scripting.FileSystemObject")


strFile = "C:\Program Files (x86)\Microsoft Office\Office12\OUTLOOK.EXE"



strFile = "C:\Program Files (x86)\Microsoft Office\Office12\WINWORD.EXE"




sub PinToTaskBar


if ofso.fileexists(strFile) then

   Set objFolder = objShell.Namespace(ofso.GetParentFolderName(strFile))

   Set objFolderItem = objFolder.ParseName(ofso.GetFileName(strFile))

   Set colVerbs = objFolderItem.Verbs

   For Each objVerb in colVerbs

      If Replace(, "&", "") = "Pin to Taskbar" Then objVerb.DoIt


End IF


End Sub

Programs pinned to taskbar:


No comments:

Post a Comment