Pin to Taskbar script

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 OfficeOffice12OUTLOOK.EXE”

PinToTaskBar

 

strFile = “C:Program Files (x86)Microsoft OfficeOffice12WINWORD.EXE”

PinToTaskBar

 

 

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(objVerb.name, “&”, “”) = “Pin to Taskbar” Then objVerb.DoIt

   Next

End IF

 

End Sub

Programs pinned to taskbar:

image

Table of Contents

Share this post
Search blog posts
Authors
Modern Workplace consultant and a Microsoft MVP in Enterprise Mobility.
Modern Workplace consultant and a Microsoft MVP in Windows and Devices for IT.

Infrastructure architect with focus on Modern Workplace and Microsoft 365 security.

Passionate IT professional with 20+ experience in IT architecture, consulting, and design. 

Cloud & security specialist with focus on Microsoft backend products and cloud technologies.

Infrastructure architect with focus on design, implementation, migration and consolidation.

Infrastructure consultant with focus on cloud solutions in Office365 and Azure.

follow us in feedly
Categories

Follow on SoMe