Сравнение ярлыков

[123rese]

Ситуация такова - на рабочем столе очень много ярлыков, из которых нужно выбрать один с определенным расположением и переименовать его.
По логике, нужно сделать так:
1) Сравнить все ярлыки по местоположению
2) Когда ярлык с определенным местоположением найден, переименовать его.
Как сделать сие на практике - ума не приложу. Дайте, пожалуйста, наводку.

[Iska]

Как сделать сие на практике - ума не приложу. »
Перейти к использованию WSH/PoSH вместо пакетных файлов.

Дайте, пожалуйста, наводку. »
Держите:
Option Explicit

Dim objFile
Dim objWshShell


With WScript.CreateObject("Scripting.FileSystemObject")
Set objWshShell = WScript.CreateObject("WScript.Shell")

For Each objFile In .GetFolder(objWshShell.SpecialFolders.Item("Desktop")).Files
Select Case LCase(.GetExtensionName(objFile))
Case "lnk"
With objWshShell.CreateShortcut(objFile.Path)
If .TargetPath = "C:\Program Files\Notepad++\notepad++.exe" Then
objFile.Name = "Мой Блокнот Плюс Плюс.lnk"

Exit For
End If
End With
End Select
Next

Set objWshShell = Nothing
End With

WScript.Quit 0

Заранее обращаю Ваше внимание, что поиск в примере производится только на Рабочем столе пользователя, и не затрагивает общий для всех пользователей Рабочий стол.

[mwz]

Iska, вроде бы товарища интересует не переименовать ярлык с заданным именем -- а ярлык с заданными [на Рабочем Столе] координатами, какое бы имя у этого ярлыка не было.
Смысл сего действа неясен. И интересно, что будет если координаты изменятся хоть на один пиксел. :)