Закрепление на панели задач из командной строки
Всем привет! Это опять я :)
Помогайте, плиз. Есть варианты на 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
If Replace(objVerb.name, "&", "") = "Закрепить на панели задач" Then objVerb.DoIt
Next
|
| Valek271183 |
03-01-2012 22:33 1827787 |
Помоги пожалуйста с тем же, только Закрепить в меню "Пуск" (я в 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
If Replace(objVerb.name, "&", "") = "Закрепить в меню ""Пуск""" Then objVerb.DoIt
Next
VBS/WSH/JS - [решено] Кавычки внутри кавычек в VBS |
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
|
Время: 16:55.
© OSzone.net 2001-
