[timon45]

Больше часа пытаюсь изъять программу но так и не получается.
Прикрепить (это срабатывает)

Код:

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

Открепить (не получается)

Код:

Const CSIDL_PROFILE = &H28

Set objShell = CreateObject("Shell.Application") 
Set objCurrentUserStartFolder = objShell.NameSpace(CSIDL_PROFILE) 
strCurrentUserProgramsPath = objCurrentUserStartFolder.Self.Path 
Set objFolder = objShell.Namespace(strCurrentUserProgramsPath & "c:\Users\TimON\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar") 
Set objFolderItem = objFolder.ParseName("STDU Viewer.lnk") 
Set colVerbs = objFolderItem.Verbs 
For Each objVerb in colVerbs 
    If Replace(objVerb.name, "&", "") = "Открепить от панели задач" Then objVerb.DoIt 
Next

где же допущена ошибка?
пробовал еще как здесь: http://forum.oszone.net/post-1307991-2.html
но совсем ничего не получилось

[Iska]

Что Вы ожидаете получить здесь:

Код:

Set objFolder = objShell.Namespace(strCurrentUserProgramsPath & "c:\Users\TimON\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar")

?

Вообще-то скрипт должен сообщать об ошибке во время своего исполнения.

[timon45]

Iska, Да сообщает но мне это ничего не дает, и вообще чтобы я не делал по моему одна и та же ошибка.
Скрипт:

Код:

Const CSIDL_PROFILE = &H28

Set objShell = CreateObject("Shell.Application") 
Set objCurrentUserStartFolder = objShell.NameSpace(CSIDL_PROFILE) 
Set CurrentUserProgramsPath = objCurrentUserStartFolder.Self.Path 
Set objFolder = objShell.Namespace(strCurrentUserProgramsPath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar") 
Set objFolderItem = objFolder.ParseName("STDU Viewer.lnk") 
Set colVerbs = objFolderItem.Verbs 
For Each objVerb in colVerbs 
    If Replace(objVerb.name, "&", "") = "Открепить от панели задач" Then objVerb.DoIt 
Next

как в этом сообщении: http://forum.oszone.net/post-1902721-6.html
ошибка:

[Iska]

timon45, начните с того, что прикрепите архив с упакованным Вашим скриптом к сообщению.

[timon45]

Iska, В принципе все то что и писал под кодом.
Ярлык "STDU Viewer.lnk" присутствует по пути: c:\Users\TimON\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar\STDU Viewer.lnk

[Iska]

timon45, как я и предполагал, вышеуказанная ошибка вызвана тем, что Ваш скрипт сохранён в кодировке UTF-8 с BOM. Как раз из-за BOM Вы и получаете эту ошибку.

Сохраните Ваш скрипт в кодировке ANSI/Windows-1251.

[timon45]

Iska, да уже близко но все равно пока ошибка, но другая.

[Iska]

timon45, лучше нажимайте «Ctrl-C» в окне сообщения об ошибке и вставляйте, обрамив тэгом «code».

ошибка, но другая. »

Вы пытаетесь присвоить переменной объектный тип («set …»), а в правой части присваивания выражение («objCurrentUserStartFolder.Self.Path») возвращает строку.

[timon45]

лучше нажимайте «Ctrl-C» в окне сообщения об ошибке и вставляйте, обрамив тэгом «code». »

Спасибо, буду знать.

Вы пытаетесь присвоить переменной объектный тип («set …»), а в правой части присваивания выражение («objCurrentUserStartFolder.Self.Path») возвращает строку. »

Честно признаюсь я ничего в данном скрипте не понимаю, в CMD еще более или менее, поэтому и спрашиваю как мне поступить, что исправить.

[Iska]

Честно признаюсь я ничего в данном скрипте не понимаю, в CMD еще более или менее, поэтому и спрашиваю как мне поступить, что исправить. »

Почитайте про общий метод решения подобных задач здесь.