Есть такой вот скрипт. Была попытка сделать его рабочим и в русской и в английской версии.
Работает только при загруженном эксплорере.
PinToTasckbar.vbs
Код:
Set objShell = CreateObject("Shell.Application")
set filesystem = CreateObject("scripting.Filesystemobject")
Set objFolder = objShell.Namespace(filesystem.GetParentFolderName(Wscript.Arguments(0)))
Set objFolderItem = objFolder.ParseName(filesystem.GetFileName(WScript.Arguments(0)))
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt
If Replace(objVerb.name, "&", "") = "Unpin from Taskbar" Then objVerb.DoIt
If Replace(objVerb.name, "&", "") = "Закрепить программу в панели задач" Then objVerb.DoIt
If Replace(objVerb.name, "&", "") = "Изъять программу из панели задач" Then objVerb.DoIt
If Replace(objVerb.name, "&", "") = "Закрепить на панели задач" Then objVerb.DoIt
If Replace(objVerb.name, "&", "") = "Открепить от панели задач" Then objVerb.DoIt
Next
PinToTasckbar.vbs "Полный путь\имя файла программы"