Прошу прощения.

With GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
   .document.Application.NameSpace(&H24).ParseName("notepad.exe").InvokeVerb "taskbarpin" : .Quit
End With

См. за точками.

cmd /c VER|FIND "5.">nul||mshta vbscript:execute("CreateObject(""Shell.Application"").NameSpace(&H26).ParseName(""Opera\Opera.exe"").InvokeVerb(""taskbarpin""):Close")

В своём коде сократил для разнообразия. В 10-ке какой-то хотфикс их отламывает. Советую проверить.
Про эти и другие глаголы.

На самом деле панель Quick Launch в привычном для нас виде присутствует не только в ХР, но и в системах после ХР, просто она там отключена.

Она не совсем в привычном виде. Чтобы её привести к должному виду, нужно ещё снять пару галок в меню и сдвинуть к меню Пуск, но в любом случае она останется неоткрепляемой и неизменной по числу рядов, как было ранее.

Так в прежних системах на панель задач отдельно от быстрого запуска ничего не крепилось. Логично, что там должна быть "аналогия" при установке.

Насчёт остального ясно.

У себя дома? Или у других, где папка Program Files меняется?

Везде . Как я уже говорил - этот код нужен мне для конфигурационного файла для создания SFX 7-zip. Там вначале будет задаваться путь, а потом уже он будет использоваться для создания ярлыка. Например, путь будет задаваться, как %%T\Opera.exe. %%T - это внутренняя переменная модуля SFX 7-zip и она раскрывается, как путь, куда распаковывается содержимое архива.

Ну полная команда будет такова:

cmd /c VER|FIND "5.">nul||mshta vbscript:execute("With CreateObject(""CDO.Message"").AddAttachment(""res://shell32.dll/6/337"").GetDecodedContentStream:.Type=1:B=.Read:End With:For i=1 To LenB(B):n=n+1:L=AscB(MidB(B,i,2)):If n=11 Then P=MidB(B,i+2,L*2):Exit For:End If:i=i+L*2+1:Next:For Each V In CreateObject(""Shell.Application"").NameSpace(0).ParseName(""%%T\Opera.exe"").Verbs:If V.Name=P Then V.DoIt::Exit For:End If:Next:Close")

Это не окончательная запись в файле конфигурации.ю т.к.в нем надо задваивать слеши и экранировать слешами кавычки - привел в таком виде для удобства чтения.

На самом деле панель Quick Launch в привычном для нас виде присутствует не только в ХР, но и в системах после ХР, просто она там отключена. Создавать ярлык в Quick Launch можно штатными средствами модуля  SFX 7-zip, не смотря на версию системы и он никак не связан с ярлыком на панели задач.

Да я вроде посмотрел, какие "глаголы" считываются и в каком порядке. "Открепить от панели задач" идет вслед за "Закрепить на панели задач" - поэтому проверка на n=12. Проверил на 7 - работает. Но решил для уверенности спросить у знающих людей...

Пока прикинул для ULONG.

Function b2un(b)
    Dim i: For i = 1 To LenB(b)
        b2un = b2un + AscB(MidB(b, i, 1)) * 2 ^ ((i - 1) * 8)
    Next
End Function

Но вдруг там будет знаковый LONG.... И тогда....

Но, пардон - это уже оффтоп в этой теме... Пойду думать в другую. )

Гут ! ) Значит всё не зря.

Я вот только всё думаю об одном моменте.... Там под размер вроде 2 байта выделено. , а у меня код читает только 1 байт. Т.е по идее при определённой длине строки может быть неожиданный результат.