[Zerstoren]

Iska, давай откроем опять, пиши идеи))

например как запустить из WPI без батника,
а то приходится на каждый ярлык делать vbs и к нему bat чтобы его запустить

Итого вдруг кому надо (решение)

Link.vbs

PHP код:

Option Explicit



Const ForAppending = 8



Dim strUrlFileName



Dim objFSO

Dim strPath2UrlFile



strUrlFileName = "ссылка.url"



Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")



With WScript.CreateObject("WScript.Shell")

    strPath2UrlFile = objFSO.BuildPath(.SpecialFolders("Desktop"), strUrlFileName)

    

    With .CreateShortcut(strPath2UrlFile)

        .TargetPath = "http://yandex.ru"

        .Save

    End With

End With

    

With objFSO.OpenTextFile(strPath2UrlFile, ForAppending)

    .WriteLine "IconFile=C:\Windows\system32\SHELL32.dll"

    .WriteLine "IconIndex=27"

End With



Set objFSO = Nothing



WScript.Quit 0 

start.bat

start /w wscript.exe "C:\Distr\link.vbs"