[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
ошибка: