VBS/WSH/JS

Iska · Отправлено: **00:28, 29-07-2017** | #2

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

при запуске ПК ярлык вбс проверяет и создает файл не в своей папке (из которой был произведен запуск) а в "C:\Windows\System32\" »

Как производится вызов скрипта на исполнение?

Полина_Комиссарова@vk · Отправлено: **12:56, 29-07-2017** | #3

Цитата Iska:

Как производится вызов скрипта на исполнение? »

После перезагрузки ПК скрипт запускается из рееста

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

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Window", WScript.ScriptFullName »

Iska · Отправлено: **20:06, 29-07-2017** | #4

Полина_Комиссарова@vk, определитесь. Выше Вы пишете про ярлык, ниже пишете про реестр. Что, за чем, куда — я уже толком перестал понимать.

Полина_Комиссарова@vk · Отправлено: **20:13, 29-07-2017** | #5

Цитата Iska:

определитесь. Выше Вы пишете про ярлык, ниже пишете про реестр. Что, за чем, куда — я уже толком перестал понимать. »

Запускаю файл вручную- все отлично , ярлык создался где надо и добавляет себя в реестр

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

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Window", WScript.ScriptFullName »

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

mwz · Отправлено: **23:28, 29-07-2017** | #6

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

и пытается создать файл в "C:\Windows\System32\" а не в папке где сам находится(как мне надо) »

А где вы в скрипте сказали, что надо в его папке создавать файл??
Не надо путать папку, из которой запускается программа (или скрипт), с её рабочей папкой, которая в общем случае не совпадает с папкой запуска.

Полина_Комиссарова@vk · Отправлено: **23:51, 29-07-2017** | #7

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

И можно ли указать путь сохранения ярлыка? »

Цитата mwz:

А где вы в скрипте сказали, что надо в его папке создавать файл?? »

Iska · Отправлено: **05:52, 30-07-2017** | #8

Полина_Комиссарова@vk, как уже выше отметил коллега mwz, дело в том, что Вы совершаете распространённую ошибку, полагая, что текущий каталог всегда будет равен каталогу, где расположен исполняемый файл, скрипт, пакетный файл, документ и т.п. В ряде случаев они могут и совпадать:

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

Запускаю файл вручную- все отлично , ярлык создался где надо »

В общем же случае надо помнить, что это совсем не так, и сие надо учитывать.

В Вашем частном случае всё строится именно на таком рассчёте:

Код:

If objFSO.FileExists(objFSO.GetBaseName(WScript.ScriptName) & ".lnk") …

— проверяется существование файла ярлыка в текущем для исполняемого скрипта каталоге. Когда скрипт запускается Вами «ручками» — текущим каталогом будет каталог скрипта. Когда скрипт запускается из:

Код:

HKCU\Software\Microsoft\Windows\CurrentVersion\Run

— текущим каталогом будет каталог исполняемого файла wscript.exe. Посему указанный код не найдёт там ранее созданного ярлыка и начнёт его создавать. Разумеется, там же — в %SystemRoot%\System32, поскольку и ниже по коду тот же самый рассчёт:

Код:

	j =  FSO.GetBaseName(WScript.ScriptName)		        'Название ярлыка
…
	Set f = st.CreateShortcut(j & ".lnk")

Чтобы этого не происходило, надо указывать полные пути.

Опишите Вашу задачу.

mwz · Отправлено: **09:44, 30-07-2017** | #9

Iska, насколько я понял, в данной [частной] задаче надо создавать этот ярлык именно в той папке, где расположен сам скрипт.
И тогда надо указывать полный путь не в явном виде, а так, как в батниках делается использованием префикса %~dp0.

Iska · Отправлено: **09:59, 30-07-2017** | #10

Цитата mwz:

Iska, насколько я понял, в данной [частной] задаче надо создавать этот ярлык именно в той папке, где расположен сам скрипт. »

Вот мне бы хотелось послушать про саму задачу.

Цитата mwz:

И тогда надо указывать полный путь не в явном виде, а так, как в батниках делается использованием префикса %~dp0, т.е. созданием объекта WScript.FullName или для большей универсальности (тогда путь и имя скрипта будут разделены) — с использованием WScript.Path »

Не то. Это пути к исполнителю — wscript.exe/cscript.exe. Путь к каталогу скрипта — objFSO.GetParentFolderName(WScript.ScriptFullName).