Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)
-   -   Батник и программы из панели задач (http://forum.oszone.net/showthread.php?t=323560)

Полина_Комиссарова@vk 06-02-2017 16:34 2709415

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

alpap 06-02-2017 21:03 2709512

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

Полина_Комиссарова@vk 06-02-2017 21:08 2709514

Цитата:

Цитата alpap
устанавливаются в ... не файлы а их ярлыки, а чистый cmd не умеет делать ярлыки. »

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

Iska 06-02-2017 21:25 2709519

Цитата:

Цитата Полина_Комиссарова@vk
возможно ли сделать батник что поставит ярлык в панель задач сам? »

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

Полина_Комиссарова@vk 06-02-2017 23:39 2709553

Цитата:

Цитата Iska
Но ещё раз: не «батник», а скрипт на WSH/PoSH. »

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

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 07-02-2017 05:29 2709571

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

greg zakharov 07-02-2017 12:44 2709662

Цитата:

Цитата Полина_Комиссарова@vk
наткнулся на просторах интернета на скрипт

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


Время: 22:37.

Время: 22:37.
© OSzone.net 2001-