Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

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

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

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

Новый участник


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

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

Как сделать так чтобы ярлык который создается с помощью этого скрипта не зависил от наименования профиля пользователя. То есть, вместо "Администратор" написать переменную "%userprofile%", а то у меня ярлык создается когда конкретно указываю пользователя, а когда "%userprofile%" пишет ошибку. Помогите решить этот вопрос спасибо!

Код: Выделить весь код
Set WshShell = WScript.CreateObject("WScript.Shell")
' Создание ярлыка: "
' Set oShellLink = WshShell.CreateShortcut("%userprofile%\Рабочий стол\Поиск в Google.lnk") 
Set oShellLink = WshShell.CreateShortcut("c:\Documents and Settings\Администратор\Рабочий стол\Поиск в Google.lnk")
' Целевой путь к файлу для которого создаётся ярлык:
oShellLink.TargetPath = "http://google.com/"
' Стиль открытия окна:
' 1 - Обычный размер окна; 3 - Развёрнутое на весь экран; 7 - Свёрнутое в значoк
oShellLink.WindowStyle = 1
' Клавиши быстрого вызова:
oShellLink.Hotkey = "CTRL+SHIFT+G"
' Путь к файлу который содержит иконку для ярлыка:
oShellLink.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 220"
' Комментарий:
oShellLink.Description = "Запустить поисковик"
oShellLink.Save
П.С. Может это связано из кодировкой(крякозябликами) в командной строке?

Отправлено: 15:21, 22-01-2013

 

Ветеран


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

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

Код: Выделить весь код
Option Explicit

With WScript.CreateObject("WScript.Shell").CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:desktop").self.Path & "\Поиск в Google.lnk")
	.TargetPath   = "http://google.com/"
	.WindowStyle  = 1
	.Hotkey       = "CTRL+SHIFT+G"
	.IconLocation = "SHELL32.dll,220"
	.Description  = "Запустить поисковик"
	.Save
End With

WScript.Quit 0
Цитата yaoleg2:
П.С. Может это связано из кодировкой(крякозябликами) в командной строке? »
Нет, не связано. Выберете TrueType шрифт для окна консоли.
Это сообщение посчитали полезным следующие участники:

Отправлено: 15:43, 22-01-2013 | #2



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

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


Новый участник


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

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

Большое спасибо!!!

Отправлено: 15:48, 22-01-2013 | #3


Новый участник


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

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

Извините, а как создать ярлык, но чтобы веб-страница окрывалась в новом окне браузера, а не в открытом?
Спасибо!

Отправлено: 23:40, 01-02-2013 | #4


Ветеран


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

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

Цитата yaoleg2:
а как создать ярлык, но чтобы веб-страница окрывалась в новом окне браузера, а не в открытом? »
Зависит от браузера. У Вас какой?

Отправлено: 00:15, 02-02-2013 | #5


Новый участник


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

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

Internet Explorer 6

Отправлено: 01:04, 02-02-2013 | #6


Ветеран


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

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

Пробуйте так:
Код: Выделить весь код
Option Explicit

With WScript.CreateObject("WScript.Shell").CreateShortcut(WScript.CreateObject("Shell.Application").NameSpace("shell:desktop").self.Path & "\Поиск в Google.lnk")
	.TargetPath   = "%ProgramFiles%\Internet Explorer\iexplore.exe"
	.Arguments    = "http://google.com/"
	.WindowStyle  = 1
	.Hotkey       = "CTRL+SHIFT+G"
	.IconLocation = "SHELL32.dll,220"
	.Description  = "Запустить поисковик"
	.Save
End With

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

Отправлено: 04:51, 02-02-2013 | #7



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

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

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Интерфейс - [решено] Создание ярлыка с диска (:D) bziki.t4 Microsoft Windows 7 2 02-06-2012 17:30
Разное - создание ярлыка сканирования для FS-1124MFP lxa85 Microsoft Windows 7 4 17-01-2012 16:37
Любой язык - Создание ярлыка на расшаренную папку alina1325 Скриптовые языки администрирования Windows 6 25-11-2010 16:26
Создание ярлыка для MRT Котяра Автоматическая установка Windows 2000/XP/2003 6 14-07-2008 14:48
Программное Создание web ярлыка LedWorm Программирование и базы данных 3 28-01-2004 06:53


« Предыдущая тема | Следующая тема »


 
Переход