VBS/WSH/JS - Нужна помощь в удалении ярлыка с раб.стола

Iska · Отправлено: **20:08, 14-09-2013** | #11

Цитата Lucretius:

Iska, я имел в виду, что известен только путь к файлу на который ссылается ярлык. »

«Ну, так это совсем другое дело!»

Код:

Option Explicit

Dim strGoalTargetPath

Dim objFolder

Dim objFSO
Dim objFile

Dim objWshShell
Dim objWshShortcut


strGoalTargetPath = "C:\WINDOWS\system32\calc.exe"

Set objFolder = WScript.CreateObject("Shell.Application").NameSpace("shell:Desktop")

If Not objFolder Is Nothing Then
	Set objWshShell = WScript.CreateObject("WScript.Shell")
	Set objFSO      = WScript.CreateObject("Scripting.FileSystemObject")
	
	For Each objFile In WScript.CreateObject("Scripting.FileSystemObject").GetFolder(objFolder.self.Path).Files
		If LCase(objFSO.GetExtensionName(objFile.Name)) = "lnk" Then
			Set objWshShortcut = objWshShell.CreateShortcut(objFile.Path)
			
			If LCase(objWshShortcut.TargetPath) = LCase(strGoalTargetPath) Then
				WScript.Echo objFile.Name, objWshShortcut.TargetPath
				'objFile.Delete True
			End If
		End If
	Next
	
	Set objWshShell = Nothing
	Set objFSO      = Nothing
Else
	WScript.Echo "Can't determine user desktop folder"
End If

WScript.Quit 0

Если корректно находит потребный ярлык — раскомментируйте выделенную строку для удаления ярлыка, ссылающегося на заданный объект.

Lucretius · Отправлено: **16:47, 15-09-2013** | #12

Iska, спасибо! Если Вас не затруднит, добавьте пожалуйста в скрипт:

1. Вызов скрипта с аргументом (wscript.exe "ShortcutDel.vbs" "полный путь к файлу")
2. Перед удалением скопировать найденные ярлыки в директорию со скриптом.

Iska · Отправлено: **17:34, 15-09-2013** | #13

Цитата Lucretius:

1. Вызов скрипта с аргументом (wscript.exe "ShortcutDel.vbs" "полный путь к файлу") »

Снимаю шляпу: крайне редко кто понимает, как сие должно реализовываться. Настолько редко, что я уже перестал сие делать, поскольку в абсолютном большинстве случаев после выкладывания правильного подхода от вопрошающего тут же появляется вопрос: «А можно попроще, чтобы прямо в пакетном файле/скрипте вбивать путь?». И никакие объяснения, что именно так, как сделано, и есть — правильно, не помогают.

Цитата Lucretius:

3. Удаление найденных ярлыков с рабочего стола с подавлением запроса на удаление. »

А сейчас разве как-то по-другому происходит?

Пробуйте:

Lucretius · Отправлено: **17:53, 15-09-2013** | #14

Спасибо большое! Всё работает. Под "запрос на удаление" я ошибочно принял вывод:

Код:

WScript.Echo objFile.Name, objWshShortcut.TargetPath

отредактировал в сообщении.

Iska · Отправлено: **18:31, 15-09-2013** | #15

Lucretius, ясно.

Нет, это был просто вывод отладочного сообщения, для того, чтобы убедиться, что находится именно то, что нужно.

P.S. Если у Вас есть целый набор целей — можем сделать так, что Вы их перечисляете в текстовом файле и указываете этот файл в качестве аргумента скрипта.

Lucretius · Отправлено: **23:02, 15-09-2013** | #16

Iska, ещё раз спасибо, у меня последний вопрос - как добавить в скрипт создание ярлыка? Т.е. такая последовательность работы скрипта: копирование >удаление >создание с параметрами по умолчанию. Тему читал: "Создание ярлыков при установке ОС", но мне не удаётся внести изменения в приведённый Вами скрипт.

Iska · Отправлено: **00:46, 16-09-2013** | #17

Lucretius, приведите, для моего понимания, конкретный пример — что удаляете, что создаёте.

Цитата Lucretius:

такая последовательность работы скрипта: копирование >удаление >создание с параметрами по умолчанию. »

1. Что есть «копирование»?
2. Что есть «параметры по умолчанию»?

Lucretius · Отправлено: **07:47, 16-09-2013** | #18

Iska,
Последовательность выполнения скрипта:

Вызов скрипта с аргументом (wscript.exe "Shortcut.vbs" "полный путь к исполняемому файлу")
Поиск ярлыка на рабочем столе пользователя по аргументу вызова (имя ярлыка неизвестно)
Копирование найденного ярлыка в директорию со скриптом.
Удаление найденного ярлыка с рабочего стола пользователя
Создание ярлыка на рабочем столе пользователя с параметрами по умолчанию

Т.е. скрипт который Вы привели здесь, завершающим этапом выполнения которого будет создание ярлыка , где:

Путь к исполняемому файлу на который ссылается ярлык = аргумент вызова
Имя ярлыка = имя исполняемого файла
Рабочая папка = папка расположения исполняемого файла

остальные параметры ярлыка такие, как если бы он был создан через контекстное меню проводника, т.е. стиль открытия окна, клавиши быстрого вызова, комментарий, права запуска и т.д. - оставить по умолчанию(без изменений).

Iska · Отправлено: **21:14, 16-09-2013** | #19

Lucretius, в чём тогда смысл:

Цитата Lucretius:

Удаление найденного ярлыка с рабочего стола пользователя »

+

Цитата Lucretius:

Путь к исполняемому файлу на который ссылается ярлык = аргумент вызова »

? Чем не устраивает уже существующий аналогичный же ярлык? Что в нём не так? И зачем его нужно копировать в папку скрипта?

Lucretius · Отправлено: **22:10, 16-09-2013** | #20

Iska, скрипт будет работать в составе патча к программе, сама программа имеет два исполняемых файла(или один - опционально в процессе инсталляции) и создаёт ярлыки только в меню пуск, что весьма не удобно. Предполагаю, что большинство пользователей вручную создаёт ярлык(и) на рабочем столе. Поэтому при согласии пользователя создать ярлык(и) на рабочем столе - запускается скрипт и создаёт ярлыки со стандартным именем/параметрами (без «ярлык для», «запуск от» – патч вносит изменения в манифест и т.д.) предварительно скопировав ярлык(и) созданные пользователем в папку скрипта(backup) на случай прерывания работы патча(по желанию пользователя или иным причинам) и «отката» всех сделанных изменений. Удалить ярлыки с рабочего стола необходимо по понятной причине — избежать создание дублей. Во всяком случае такой вариант меня устраивает и я буду очень признателен если, Вы поможете мне.