[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, вроде бы товарища интересует не переименовать ярлык с заданным именем -- а ярлык с заданными [на Рабочем Столе] координатами, какое бы имя у этого ярлыка не было.
Смысл сего действа неясен. И интересно, что будет если координаты изменятся хоть на один пиксел.