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

    Ярлык через 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

    [свернуть]