Есть ТЕСТОВЫЙ вбсник суть которого состоит в том, чтобы создать ярлык(ярлык себя же - это только для примера) и добавить себя в автозагрузку при этом проверяя наличие ярлыка.
Код:
Код: Выделить всё
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\"
Где в коде ошибка?
И можно ли указать путь сохранения ярлыка?