VBS/WSH/JS - Создать ярлык, добавить в автозагрузку

Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета.

Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен

Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме.

С уважением, ваш призрачный админ, BigMac...

VBS/WSH/JS - Создать ярлык, добавить в автозагрузку

Полина_Комиссарова@vk

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

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

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

Вопрос может и слишком нубский, но все же.
Есть ТЕСТОВЫЙ вбсник суть которого состоит в том, чтобы создать ярлык(ярлык себя же - это только для примера) и добавить себя в автозагрузку при этом проверяя наличие ярлыка.

Код:

Set fso = CreateObject("Scripting.FileSystemObject")

if fso.FileExists(FSO.GetBaseName(WScript.ScriptName) & ".lnk") then	'проверка наличия .lnk
	wscript.echo "yes"
else
		wscript.echo "no, add"							'создание .lnk
	Set st = CreateObject("WScript.Shell")
		j =  FSO.GetBaseName(WScript.ScriptName)		        'Название ярлыка
		c = ".lnk"										'Описание Ярлыка
		h =  WScript.ScriptFullName						'Суть к файлу для которого создается ярлык
		e = "14"										'Номер иконки ярлыка
	Set f = st.CreateShortcut(j & ".lnk")
		f.Description = c
		f.IconLocation = "shell32.dll," & e 
		f.TargetPath = h
		f.save()
end if
CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Window", WScript.ScriptFullName

Проблема состоит в том , что при запуске ПК ярлык вбс проверяет и создает файл не в своей папке (из которой был произведен запуск) а в "C:\Windows\System32\"
Где в коде ошибка?
И можно ли указать путь сохранения ярлыка?

Отправлено: 23:18, 28-07-2017