Скрипт на удаление файла/ярлыка

_FilePinShortcutToTaskbar(@StartMenuCommonDir & "\Programs\Accessories\Paint.lnk")

Func _FilePinShortcutToTaskbar($sFile, $bPin = Default)
	Local $sFileDir, $sFileName, $oShell, $oFolder, $oFolderItem, $oVerbs, $sVNames, $sVNames_Toggle, $sVNames_Pin, $sVNames_UnPin
	
	If Not FileExists($sFile) Then Return SetError(-1)
	
	$sFileDir = StringRegExpReplace($sFile, "\\[^\\]*$", "")
	$sFileName = StringRegExpReplace($sFile, "^.*\\", "")
	
	$oShell = ObjCreate("Shell.Application")
	
	$oFolder = $oShell.Namespace($sFileDir)
	$oFolderItem = $oFolder.ParseName($sFileName)
	$oVerbs = $oFolderItem.Verbs
	
	$sVNames_Toggle = "|Pin to Taskbar|Unpin from Taskbar|Закрепить программу в панели задач|Изъять программу из панели задач|Закрепить на панели задач|Открепить от панели задач|"
	$sVNames_Pin = "|Pin to Taskbar|Закрепить программу в панели задач|Закрепить на панели задач|"
	$sVNames_UnPin = "|Unpin from Taskbar|Изъять программу из панели задач|Открепить от панели задач|"
	
	If (IsKeyword($bPin) And $bPin = Default) Or (IsNumber($bPin) And $bPin = -1) Then
		$sVNames = $sVNames_Toggle
	ElseIf $bPin = True Then
		$sVNames = $sVNames_Pin
	ElseIf $bPin = False Then
		$sVNames = $sVNames_UnPin
	Else
		Return SetError(1)
	EndIf
	
	For $oVerb In $oVerbs
		If StringInStr($sVNames, "|" & StringReplace($oVerb.Name, "&", "") & "|") Then
			$oVerb.DoIt
			ExitLoop
		EndIf
	Next
EndFunc

$sDirPath = @AppDataDir & "\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar"

$objShell = ObjCreate("Shell.Application")
$colItems =  $objShell.Namespace($sDirPath).Items

For $colItem In $colItems
    $colVerbs = $colItem.Verbs

    For $objVerb in $colVerbs
        $str = StringReplace($objVerb.name, "&", "")
        If  $str = "Unpin from Taskbar" or  $str = "Изъять программу из панели задач" or $str = "Открепить от панели задач" Then $objVerb.DoIt
    Next
Next