Всех приветствую!
На этот раз необходимо изъять программу из панели задач Win 8, а именно ярлык на "Магазин".
Пример рабочего скрипта изъятия Windows Media Player из панели задач у Win 7:
Код:
Const CSIDL_COMMON_PROGRAMS = &H17
Dim objShell, objFSO
Dim objAllUsersProgramsFolder
Dim strAllUsersProgramsPath
Dim objFolder
Dim objFolderItem
Dim colVerbs
Dim objVerb
Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objAllUsersProgramsFolder = objShell.NameSpace(CSIDL_COMMON_PROGRAMS)
strAllUsersProgramsPath = objAllUsersProgramsFolder.Self.Path
'Windows Media Player unpin
If objFSO.FileExists(strAllUsersProgramsPath & "\Windows Media Player.lnk") Then
Set objFolder = objShell.Namespace(strAllUsersProgramsPath)
Set objFolderItem = objFolder.ParseName("Windows Media Player.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
VerbName = Replace(objVerb.Name, "&", "")
If VerbName = "Изъять программу из панели задач" Or VerbName = "Изъять из панели задач" Or VerbName = "Unpin from Taskbar" Or VerbName = "Открепить от панели задач" Then
objVerb.DoIt
End If
Next
End If
WScript.Quit
Пытался сделать аналогичным образом с "Магазином":
Код:
...
'Магазин unpin
If objFSO.FileExists(strAllUsersProgramsPath & "\Магазин.lnk") Then
Set objFolder = objShell.Namespace(strAllUsersProgramsPath)
Set objFolderItem = objFolder.ParseName("Магазин.lnk")
Set colVerbs = objFolderItem.Verbs
For Each objVerb in colVerbs
VerbName = Replace(objVerb.Name, "&", "")
If VerbName = "Изъять программу из панели задач" Or VerbName = "Изъять из панели задач" Or VerbName = "Unpin from Taskbar" Or VerbName = "Открепить от панели задач" Then
objVerb.DoIt
End If
Next
End If
WScript.Quit
Но почему-то не срабатывает.
Может проблема связано как-то с кириллицей?
Спасибо!
UPD: оказывается ссылка называлась "Windows Store.lnk", а представлялась как "Магазин.lnk".
Всем спасибо!
