Например, в нём не учитывается, что локализация ОС может отличаться от английской
.
Скрытый текст
Код:
Option Explicit
Dim strUserAppData
Dim objFolder
Dim objFolderItem
Dim objVerb
With WScript.CreateObject("Shell.Application")
strUserAppData = .NameSpace("shell:AppData").self.Path
Set objFolder = .Namespace(strUserAppData & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar")
If Not objFolder Is Nothing Then
For Each objFolderItem In objFolder.Items
For Each objVerb In objFolderItem.Verbs
WScript.Echo Replace(objVerb.Name, "&", "")
Select Case LCase(Replace(objVerb.Name, "&", ""))
Case "unpin from taskbar", "открепить от панели задач"
WScript.Echo "Unpin [" & objFolderItem.Name & "]."
objVerb.DoIt
Case Else
' Nothing to do
End Select
Next
Next
Set objFolder = Nothing
Else
WScript.Echo "Can't determine path [" & strUserAppData & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar" & "]."
WScript.Quit 1
End If
End With
WScript.Quit 0
Но там хранятся данные (в виде ярлыков) не о всех закреплённых приложениях. Попробуйте, например, закрепить Солитер («C:\Program Files\Microsoft Games\FreeCell\FreeCell.exe») на Панели задач, а потом поискать его в указанном каталоге профиля пользователя. Сведения о его закреплении будут только в реестре — «HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband».
