Код:
Option Explicit
Const HKEY_CURRENT_USER = &H80000001
Const strSubKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband"
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" & "]."
End If
End With
If WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").Get("StdRegProv").DeleteKey(HKEY_CURRENT_USER, Split(strSubKey, "\", 2)(1)) <> 0 Then
WScript.Echo "Can't delete subkey [" & strSubKey & "]."
End If
WScript.Quit
