CMD/BAT - Батник и программы из панели задач

Ответить
Аватара пользователя
Полина_Комиссарова@vk

CMD/BAT - Батник и программы из панели задач

Сообщение Полина_Комиссарова@vk »

Нужно написать батник при открытии которого указанные файлы устанавливаются в панель быстрого доступа(панель задач) автоматично.
Аватара пользователя
alpap

Re: CMD/BAT - Батник и программы из панели задач

Сообщение alpap »

Полина_Комиссарова@vk,

устанавливаются в ... не файлы а их ярлыки, а чистый cmd не умеет делать ярлыки.
Аватара пользователя
Полина_Комиссарова@vk

Re: CMD/BAT - Батник и программы из панели задач

Сообщение Полина_Комиссарова@vk »

Цитата alpap:



устанавливаются в ... не файлы а их ярлыки, а чистый cmd не умеет делать ярлыки.
CMD/BAT - Батник и программы из панели задач




возможно ли сделать батник что поставит ярлык в панель задач сам?
Аватара пользователя
Iska

Re: CMD/BAT - Батник и программы из панели задач

Сообщение Iska »

Цитата Полина_Комиссарова@vk:



возможно ли сделать батник что поставит ярлык в панель задач сам?
CMD/BAT - Батник и программы из панели задач




Возможно. Но ещё раз: не «батник», а скрипт на WSH/PoSH. Коллега alpap Вам уже написал об этом. И определитесь: помещение ярлыка на Панель быстрого доступа это одно, а закрепление ярлыка на панели задач — совсем другое.
Аватара пользователя
Полина_Комиссарова@vk

Re: CMD/BAT - Батник и программы из панели задач

Сообщение Полина_Комиссарова@vk »

Цитата Iska:



Но ещё раз: не «батник», а скрипт на WSH/PoSH.
CMD/BAT - Батник и программы из панели задач




ОК, наткнулся на просторах интернета на скрипт :





PHP код:

Код: Выделить всё

If WScript.Arguments.Count  1 Then
    MsgBox "Drag'n'drop exe file to pin to taskbar", , "bla-bla"
    WScript.Quit
End If

strPath = WScript.Arguments(0)
Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(strPath))
Set objFolderItem = objFolder.ParseName(objFSO.GetFileName(strPath))

If objFolderItem Is Nothing Then
    MsgBox strPath & vbCrLf & "not found", , "bla-bla"
    WScript.Quit
End If

Set colVerbs = objFolderItem.Verbs

bPinned = False
For Each objVerb In colVerbs
    VerbName = Replace(objVerb.Name, "&", "")
    If VerbName = "Закрепить программу в панели задач" Or VerbName = "Закрепить на панели задач" Or VerbName = "Pin to Taskbar" Then
        objVerb.DoIt
        bPinned = True
        Exit For
    End If
Next 






при перемещении ярлыка на vbs файл с этим скриптом в панели задач создается ярлык. А вопрос следующий : как переделать скрипт , чтоб ярлык на панели задач создавался автоматически(если ярлык имеет конкретный путь на ПК.)?



P.S.

не бросайтесь тухлыми помидорами тк. данную тему познаю недавно.
Аватара пользователя
Iska

Re: CMD/BAT - Батник и программы из панели задач

Сообщение Iska »

На тех же просторах был дан ответ: путь к исполняемому файлу или ярлыку указывается аргументом скрипта.
Аватара пользователя
Iska

Re: CMD/BAT - Батник и программы из панели задач

Сообщение Iska »

Цитата Полина_Комиссарова@vk:



наткнулся на просторах интернета на скрипт



Проблемы гендерной самоидентификации?
Ответить

Вернуться в «Скриптовые языки администрирования Windows»