Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Boa Soft

Компьютерный шаман


Сообщения: 2910
Благодарности: 956

Профиль | Сайт | Отправить PM | Цитировать


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

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

-------
Человеческая лень - главная движущая сила технического прогресса.


Отправлено: 00:48, 31-12-2009 | #2