[Boa Soft]

Есть такой вот скрипт. Была попытка сделать его рабочим и в русской и в английской версии.
Работает только при загруженном эксплорере.

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 "Полный путь\имя файла программы"

[Helladiabolla]

Есть такой вот скрипт. Была попытка сделать его рабочим и в русской и в английской версии. Работает только при загруженном эксплорере. »

Спасибо щас попробую...

На 7ом проходе это срабатывает ?

СПАСИБО РЕСПЕКТ ВАМ ОГРОМЕННЕШИЙ

Странно в 7ом проходе не срабатывает или эксплорер там еще не прогружаеться ?

[shadoweagle]

PinToTasckbar.vbs »

Мало сказать спасибо, после многочисленных поисков... (в частности и на разных форумах посвящённых такой теме), этот вариант РАБОТАЕТ! Спасибище огромное!

[Pozia]

Boa Soft, работает только первый раз. Затем только после сноса винды. Почему так? И можно ли как то этим скриптом и удалить ярлык?

[Habetdin]

Pozia, скрипт от Boa Soft закрепляет ярлык, если этого еще не сделано, и наоборот - удаляет его с панели задач, если он был до этого закреплен

[Pozia]

Habetdin, так вот он только у меня закрепляет, и только один раз. нужно менять винду чтобы опять, один раз сработал. Почему так?

[Guman]

Хочу поднять тему заново, есть какие нибудь альтернативные решения??? и как можно удалить иконки Internet explorer и Windows Explore с панели задач.... может у кого что получилось... поделитесь...

[Iska]

Guman, чем не устраивает изложенное текущее решение, что Вы ищете некие альтернативные?

[Guman]

Мне нужно удалять пару ярлыков и добавлять до загрузки explorer