Вопрос Создание ярлыка с помощью VBS

Хамик

Старожил
Есть такой скрипт закрепления ярлыка на панели задач, как его переписать чтобы ярлык закреплялся в меню пуск?
Код:
If WScript.Arguments.Count <> 1 Then
    MsgBox "Drag'n'drop exe file to pin to taskbar", , "bla-bla"
    WScript.Quit
End If

strPath = WScript.Arguments(0)
Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(strPath))
Set objFolderItem = objFolder.ParseName(objFSO.GetFileName(strPath))

If objFolderItem Is Nothing Then
    MsgBox strPath & vbCrLf & "not found", , "bla-bla"
    WScript.Quit
End If

Set colVerbs = objFolderItem.Verbs

bPinned = False
For Each objVerb In colVerbs
    VerbName = Replace(objVerb.Name, "&", "")
    If VerbName = "Закрепить программу в панели задач" Or VerbName = "Закрепить на панели задач" Or VerbName = "Pin to Taskbar" Then
        objVerb.DoIt
        bPinned = True
        Exit For
    End If
Next
 

Хамик

Старожил
Решено:
Код:
If WScript.Arguments.Count <> 1 Then
    MsgBox "Drag'n'drop exe file to pin to StartMenu", , "Закрепление ярлыка в меню ""Пуск"""
    WScript.Quit
End If

strPath = WScript.Arguments(0)
Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(strPath))
Set objFolderItem = objFolder.ParseName(objFSO.GetFileName(strPath))

If objFolderItem Is Nothing Then
        MsgBox strPath & vbCrLf & "not found", , "Закрепление ярлыка в меню ""Пуск"""
        WScript.Quit
End If

Set colVerbs = objFolderItem.Verbs

bPinned = False
For Each objVerb In colVerbs
        VerbName = Replace(objVerb.Name, "&", "")
        If VerbName = "Закрепить в меню ""Пуск""" Or VerbName = "Pin to Start Menu" Then
            objVerb.DoIt
            bPinned = True
            Exit For
        End If
    
    Next
Может кому-то пригодится:)
 

Onlyman

Мимокрокодил
Решено:
Код:
If WScript.Arguments.Count <> 1 Then
    MsgBox "Drag'n'drop exe file to pin to StartMenu", , "Закрепление ярлыка в меню ""Пуск"""
    WScript.Quit
End If

strPath = WScript.Arguments(0)
Set objShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objShell.NameSpace(objFSO.GetParentFolderName(strPath))
Set objFolderItem = objFolder.ParseName(objFSO.GetFileName(strPath))

If objFolderItem Is Nothing Then
        MsgBox strPath & vbCrLf & "not found", , "Закрепление ярлыка в меню ""Пуск"""
        WScript.Quit
End If

Set colVerbs = objFolderItem.Verbs

bPinned = False
For Each objVerb In colVerbs
        VerbName = Replace(objVerb.Name, "&", "")
        If VerbName = "Закрепить в меню ""Пуск""" Or VerbName = "Pin to Start Menu" Then
            objVerb.DoIt
            bPinned = True
            Exit For
        End If
   
    Next
Может кому-то пригодится:)
Подскажите куда вписывать адрес на ярлык.
 
Сверху