Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - Помогите бат скриптом прикрутить цель к ярлыку на открытия папки "AppData"

Ответить
Настройки темы
CMD/BAT - Помогите бат скриптом прикрутить цель к ярлыку на открытия папки "AppData"

Пользователь


Сообщения: 80
Благодарности: 1

Профиль | Отправить PM | Цитировать


Изменения
Автор: turbolover
Дата: 20-11-2016
Создал (.бат) скриптом ярлык на рабпочем столе для открытия папки "AppData".
Код: Выделить весь код
@Echo off
@echo Start file>%Systemdrive%\Users\%Username%\Desktop\AppData.lnk
Exit

Отправлено: 14:40, 20-11-2016

 

Аватара для Elven

Ветеран


Сообщения: 992
Благодарности: 268

Профиль | Сайт | Отправить PM | Цитировать


учитывая что пути указываются через переменные, можно раскидывать сам ярлык и не париться. Т.е. создать ярлык локально, и раскидать его по всем компам/пользователям.

Отправлено: 16:15, 20-11-2016 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата turbolover:
Создал (.бат) скриптом ярлык на рабпочем столе для открытия папки "AppData". »
Чего-чего-чего?! Это не ярлык, и никакую папку он не откроет.

Цитата turbolover:
к ярлыку на открытия папки "AppData" »
WSH:
Скрытый текст
Код: Выделить весь код
Option Explicit

Const WindowsFolder = 0

Dim objFSO
Dim objWshShell


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

With objWshShell.CreateShortcut(objFSO.BuildPath(objWshShell.SpecialFolders("Desktop"), "AppData.lnk"))
	.TargetPath = """" & objFSO.BuildPath(objFSO.GetSpecialFolder(WindowsFolder), "explorer.exe") & """"
	.Arguments = "/n,""" & objFSO.GetAbsolutePathName(objFSO.BuildPath(objWshShell.SpecialFolders("AppData"), "..")) & """"
	.Save
End With

Set objWshShell = Nothing
Set objFSO      = Nothing

WScript.Quit 0
Это сообщение посчитали полезным следующие участники:

Отправлено: 16:31, 20-11-2016 | #3


Пользователь


Сообщения: 80
Благодарности: 1

Профиль | Отправить PM | Цитировать


...

Последний раз редактировалось turbolover, 30-11-2016 в 23:47.


Отправлено: 17:28, 20-11-2016 | #4


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата turbolover:
...
Последний раз редактировалось turbolover, Вчера в 20:47. »
?

Отправлено: 01:58, 21-11-2016 | #5


Забанен


Сообщения: 793
Благодарности: 260

Профиль | Цитировать


Какой смысл вообще заморачиваться с ярлыком, когда AppData по сути не что иное как шелл-папка, которую можно открыть либо по GUID'у, либо по значению реестра, например:
Код: Выделить весь код
@echo off
  setlocal&chcp 1251>nul
    set "key=HKCU\Software\Microsoft\Windows\Current"
    set "key=%key%Version\Explorer\Shell Folders"
    for /f "tokens=2,*" %%i in (
      'reg query "%key%" /v AppData'
    ) do set "app=%%j"
    explorer %app%
  endlocal&chcp 866>nul
exit /b

Отправлено: 13:02, 21-11-2016 | #6


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата greg zakharov:
Какой смысл вообще заморачиваться с ярлыком »
Постоянное исполнение пакетного файла вместо однократного создания ярлыка проще? Не могу с Вами согласиться, коллега.

Отправлено: 13:26, 21-11-2016 | #7


Забанен


Сообщения: 793
Благодарности: 260

Профиль | Цитировать


Iska, что важнее: безопасность или удобство?

Отправлено: 13:44, 21-11-2016 | #8


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


greg zakharov, поясните.

Отправлено: 14:57, 21-11-2016 | #9


Забанен


Сообщения: 793
Благодарности: 260

Профиль | Цитировать


Iska, поясняю. Есть достаточно забавн[ый|ая] [баг|фича], на которую никто в MS не обращает внимание, позволяющая манипулировать LNK'ашами на Рабочем столе на свое усмотрение, при этом атрибут "Только для чтения" погоды особой не делает. Правила форума вроде как запрещают демо малвари, так что это уже более вне форумный вопрос (РоС в наличии уже имеется).

Отправлено: 15:14, 21-11-2016 | #10



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - Помогите бат скриптом прикрутить цель к ярлыку на открытия папки "AppData"

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Delphi - Открытие папки, "AppData" не зная букву диска turbolover Программирование и базы данных 4 17-05-2016 23:45
CMD/BAT - [решено] Можно ли запустить "'Google Chrome"' режимe "Inkognito'' с помощью бат файла? ufooo Скриптовые языки администрирования Windows 8 25-02-2016 21:33
[решено] Помогите пожалуйста со скриптом из "github.com" 02MB Вебмастеру 11 18-05-2015 04:04
HDD - WDC WD500BEVT-22A0RT0 в ноутбуке ACER издает звук "открытия папки в windows" madly89rus Накопители (SSD, HDD, USB Flash) 0 15-05-2013 21:49
Перемещение папки "Рабочий стол" на локальный диск "D" m1m1 Microsoft Windows 2000/XP 2 04-07-2006 10:46




 
Переход