• Работа,  Скриптинг

    Ярлык через VBS

    Статья без картинок, только код и только скорей всего для себя.

    Задача: сделать ярлык через скрипт vbs

    Решение:

    Рабочий вариант:

    Set oWS = WScript.CreateObject(«WScript.Shell»)
    sLinkFile = «C:\Users\Public\Desktop\YA.LNK»
    Set oLink = oWS.CreateShortcut(sLinkFile)
    oLink.TargetPath = «http://yandex.ru»
    oLink.Description = «Описание»
    oLink.HotKey = «F11»
    oLink.IconLocation = «\\pc\ya.ico»
    oLink.Save

    Так же небольшой пример:

    ‘Set oLink = oWS.CreateShortcut(sLinkFile)
    ‘ oLink.TargetPath = «C:\Program Files\MyApp\MyProgram.EXE»
    ‘ oLink.Arguments = «»
    ‘ oLink.Description = «MyProgram»
    ‘ oLink.HotKey = «ALT+CTRL+F»
    ‘ oLink.IconLocation = «C:\Program Files\MyApp\MyProgram.EXE, 2»
    ‘ oLink.WindowStyle = «1»
    ‘ oLink.WorkingDirectory = «C:\Program Files\MyApp»
    ‘oLink.Save

    [свернуть]