Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Как добавить иконку к ярлыку

Ответить
Настройки темы
VBS/WSH/JS - [решено] Как добавить иконку к ярлыку

Аватара для Zerstoren

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


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


Конфигурация

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


Доброго времени суток!
Есть задача создать Url, но чтобы был значок
Код такой
PHP код: Выделить весь код

Set WshShell WScript.CreateObject("WScript.Shell")  

 
strDesktop WshShell.SpecialFolders("Desktop"
 
Set oUrlLink WshShell.CreateShortcut(strDesktop "\ЕК АСУИ.url"
 
oUrlLink.TargetPath "http://loki.gvc.oao.rzd/maximo/webclient/login/login.jsp" 
 
oUrlLink.Save 

 DesktopPath 
sh.SpecialFolders("Desktop")  
 
Set sc sh.CreateShortcut(DesktopPath "\ЕК АСУИ.lnk")  
 
sc.TargetPath sh.ExpandEnvironmentStrings("http://loki.gvc.oao.rzd/maximo/webclient/login/login.jsp")  
 
sc.Arguments "user32.dll,LockWorkStation"  
 
sc.WindowStyle 7  
 sc
.Hotkey ""  
 
sc.Description "ЕК АСУИ"  
 
sc.IconLocation sh.ExpandEnvironmentStrings("%windir%\explorer.exe,14")  
 
sc.WorkingDirectory sh.ExpandEnvironmentStrings(DesktopPath)  
 
sc.Save 

В первом варианте создается URL
Во втором создается LNK

Но и у url и у lnk есть кнопка сменить значок
Картинка

Отправлено: 14:45, 27-05-2017

 

Ветеран


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

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


Ну вот . А у меня ещё столько замечательных идей родилось™ .

Отправлено: 11:24, 29-05-2017 | #11



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

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


Аватара для Zerstoren

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


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

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


Iska, давай откроем опять, пиши идеи))

например как запустить из WPI без батника,
а то приходится на каждый ярлык делать vbs и к нему bat чтобы его запустить

Итого вдруг кому надо (решение)
Link.vbs

PHP код: Выделить весь код

Option Explicit


Const ForAppending 8

Dim strUrlFileName

Dim objFSO
Dim strPath2UrlFile

strUrlFileName 
"ссылка.url"

Set objFSO WScript.CreateObject("Scripting.FileSystemObject")

With WScript.CreateObject("WScript.Shell")
    
strPath2UrlFile objFSO.BuildPath(.SpecialFolders("Desktop"), strUrlFileName)
    
    
With .CreateShortcut(strPath2UrlFile)
        .
TargetPath "http://yandex.ru"
        
.Save
    End With
End With
    
With objFSO
.OpenTextFile(strPath2UrlFileForAppending)
    .
WriteLine "IconFile=C:\Windows\system32\SHELL32.dll"
    
.WriteLine "IconIndex=27"
End With

Set objFSO 
Nothing

WScript
.Quit 0 



start.bat

start /w wscript.exe "C:\Distr\link.vbs"

Отправлено: 11:54, 29-05-2017 | #12


Ветеран


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

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


Цитата Zerstoren:
например как запустить из WPI без батника, »
А как Вы запускаете «из WPI батником»? И, главное — зачем «батником»?

Цитата Zerstoren:
а то приходится на каждый ярлык делать vbs »
Инсталляция приложения сама умеет создавать ярлыки. Какие именно ярлыки Вы создаёте?

Цитата Zerstoren:
start.bat »
Крайне не рекомендую давать пакетным файлам имя start.

Отправлено: 05:56, 31-05-2017 | #13


Аватара для Zerstoren

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


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

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


Цитата Iska:
А как Вы запускаете «из WPI батником»? И, главное — зачем «батником»? »
очень просто, выбираю файл *.bat, затем, что vbs не видит WPI, там файлы bat,cmd,exe
Цитата Iska:
Какие именно ярлыки Вы создаёте? »
Ярлыки на корпоративные программы (web-программы, т.е. сайты), у пользователей должны быть ссылки на определенные сайты на рабочем столе, у всех разные, но есть и одинаковые, задал в WPI вместе с установкой таких прог как офис и добавление ярлыков и усё.

Отправлено: 21:31, 02-06-2017 | #14


Ветеран


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

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


Цитата Zerstoren:
затем, что vbs не видит WPI, там файлы bat,cmd,exe »
Выбирайте exe. Конкретно — %SystemRoot%\System32\wscript.exe (cscript.exe). Аргументом к нему указываете путь к скрипту .vbs.

Цитата Zerstoren:
Ярлыки на корпоративные программы (web-программы, т.е. сайты), у пользователей должны быть ссылки на определенные сайты на рабочем столе, у всех разные, но есть и одинаковые, задал в WPI вместе с установкой таких прог как офис и добавление ярлыков и усё. »
Предпочтения групповой политики не думали использовать для подобных корпоративных вещей? А также, через групповую политику, развёртывание Office и прочих приложений.

Отправлено: 22:02, 02-06-2017 | #15



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Как добавить иконку к ярлыку

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Темы и Стили - Как добавить новую иконку в библиотеку shell32.dll? Птушвиче Оформление Windows 11/ 10 / 8 / 7 / Vista 3 11-06-2013 22:24
CMD/BAT - [решено] Как создать ярлык и поменять его иконку или поменять иконку уже существующего ярлыка Centrinar Скриптовые языки администрирования Windows 6 04-09-2011 10:56
CMD/BAT - Как удалить сет.диски,добавить,добавить ярлыки на раб.стол. Nuc7ear Скриптовые языки администрирования Windows 0 10-03-2011 20:16
CMD/BAT - Добавить пользователя к ярлыку Forpost Скриптовые языки администрирования Windows 1 01-05-2010 14:26
Интерфейс - добавить иконку к меню эксплорера MIsrerY Microsoft Windows 2000/XP 1 17-11-2008 01:35




 
Переход