Любой язык - [решено] Закрепление на панели задач из командной строки

[Morpheus]

Всем привет! Это опять я



Помогайте, плиз. Есть варианты на

VBS

и

PowerShell

.

Не могу разобраться с синтаксисом и размещением файлов. Подскажете?



UPD: Извиняйте, с VBS разобрался (может кому пригодится).

Вычисляем название пункта в контекстном меню. Хотя зачем? Он и без скрипта известен - "Закрепить на панели задач"

Код:

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

Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.Namespace("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories") 
Set objFolderItem = objFolder.ParseName("Calculator.lnk") 
Set colVerbs = objFolderItem.Verbs 
For Each objVerb in colVerbs 
    Wscript.Echo objVerb 
Next

Закрепляем ярлык:



Код:

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

Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.Namespace("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories") 
Set objFolderItem = objFolder.ParseName("Calculator.lnk") 
Set colVerbs = objFolderItem.Verbs 
For Each objVerb in colVerbs 
    If Replace(objVerb.name, "&", "") = "Закрепить на панели задач" Then objVerb.DoIt 
Next

[Valek271183]

Помоги пожалуйста с тем же, только Закрепить в меню "Пуск" (я в VBS пока неразбираюсь)

[Morpheus]

Код:

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

Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.Namespace("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories") 
Set objFolderItem = objFolder.ParseName("Calculator.lnk") 
Set colVerbs = objFolderItem.Verbs 
For Each objVerb in colVerbs 
    If Replace(objVerb.name, "&", "") = "Закрепить в меню ""Пуск""" Then objVerb.DoIt 
Next

VBS/WSH/JS - [решено] Кавычки внутри кавычек в VBS

[Dodakaedr]

Morpheus, А как этот скрипт переделать чтобы он закреплял в меню "Пуск"? Пример с предыдущего поста не подходит.

читать дальше »

Код:

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

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