[Morpheus]

Код:

Const CSIDL_PROFILE = &H28

Set objShell = CreateObject("Shell.Application") 
Set objCurrentUserStartFolder = objShell.NameSpace(CSIDL_PROFILE) 
strCurrentUserProgramsPath = objCurrentUserStartFolder.Self.Path 
Set objFolder = objShell.Namespace(strCurrentUserProgramsPath & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar") 

Set objFolderItem = objFolder.ParseName("cmd.lnk")
Set colVerbs = objFolderItem.Verbs 
For Each objVerb in colVerbs 
    If Replace(objVerb.name, "&", "") = "Открепить от панели задач" Then objVerb.DoIt 
Next

P.S. Можно тему приклеить сюда - [решено] Закрепление на панели задач из командной строки