[Iska]

Принцип работы простой — проверить существование файлового объекта по целевому пути ярлыка и, в случае его отсутствия, вывести запрос на удаление такого ярлыка.

и возможность реализации батником. »

Никак. Сторонние утилиты, WSH, PoSH. Надо заметить, что работать нужно будет со всеми возможными целями. В том числе и с ShellLink, и с MSI.

[sov44]

Никак. Сторонние утилиты, WSH, PoSH. »

возможность реализации батником »

Значит нужно сделать их вызов батником. Ищется реализация.

[Iska]

Как-то так (перечисление без удаления):

Код:

Option Explicit

Dim strSourceFolder

Dim objWshShell
Dim objFSO
Dim objShell

Dim objFile
Dim objRecord


Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
Set objShell    = WScript.CreateObject("Shell.Application")

strSourceFolder = objWshShell.SpecialFolders("Desktop")

With objFSO
	If .FolderExists(strSourceFolder) Then
		For Each objFile In .GetFolder(strSourceFolder).Files
			If StrComp(.GetExtensionName(objFile.Name), "lnk", vbTextCompare) = 0 Then
				On Error Resume Next
				Set objRecord = WScript.CreateObject("WindowsInstaller.Installer").ShortcutTarget(objFile.Path)
				
				If Err.Number <> 0 Then
					Err.Clear
					On Error Goto 0
					
					With objWshShell.CreateShortcut(objFile.Path)
						If Not objFSO.FileExists(.TargetPath) Then
							With objShell.NameSpace(objFSO.GetParentFolderName(objFile.Path)).ParseName(objFile.Name).GetLink
								If Not objFSO.FileExists(.Target.Path) Then
									WScript.Echo objFile.Name
								End If
							End With
						End If
					End With
				Else
					On Error Goto 0
					Set objRecord = Nothing
				End If
			End If
		Next
	Else
		WScript.Echo "Can't find Desktop folder [" & strSourceFolder & "]."
	End If
End With

Set objShell    = Nothing
Set objFSO      = Nothing
Set objWshShell = Nothing

WScript.Quit 0

[Georgio]

Код:

@echo off
chcp 1251>nul
for %%i in (*.lnk) do (
 for /f "tokens=*" %%j in ('
  find ":\"^<"%%i"^| find /v "/"
 ') do (
  chcp 866>nul
  if not exist "%%j" (
   set /p"=%%~nxj not exist. "<nul
   del "%%i"&& (
   echo %%~nxi was deleted.
   )|| (
   echo Failed to delete %%~nxi.
   )
   )
  )
 )
pause>nul
exit /b

[Iska]

find ":\"^<"%%i"^| find /v "/" »

А если там будет ссылка на сетевой ресурс, ShellLink или это ярлык MSI, которые вообще могут указывать на установленное приложение, но не существующее ещё на диске (это предусмотрено самой технологией)?

[sov44]

А если там будет ссылка на сетевой ресурс, ShellLink или это ярлык MSI, которые вообще могут указывать на установленное приложение, но не существующее ещё на диске (это предусмотрено самой технологией)? »

Georgio, Iska command line only

[Iska]

sov44, speak in russian, please.

[sov44]

А если там будет ссылка на сетевой ресурс »

Iska, мой вариант. как будет выглядеть батник?

[Georgio]

sov44, выложите пример такого ярлыка (в архиве).