none
Criar atalho com parametro adicional. RRS feed

  • Pergunta

  • Ba galera,

    Estou com uma dificuldade tche, estou usando os dois script abaixo para criar um atalho, ambos executam o que deve ser feito, pore necessito de uma informação a mais no atalho, conforme descrito abaixo.

    O atalho deve ser criado contendo a seguinte configuração:

    "C:\Program Files (x86)\programa\aplicativo.exe" /s Shortcut1

    Com os dois vbs que tenho não consigo fazer ele montar o atalho desta forma.

    Codigos usados.

    'Codigo 1
    set WshShell = WScript.CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Aplicativo.lnk")
    oShellLink.TargetPath = "C:\Program Files (x86)\programa\aplicativo.exe" /s Shortcut1
    oShellLink.WindowStyle = 1
    oShellLink.Hotkey = "CTRL+SHIFT+F"
    oShellLink.IconLocation = "C:\Program Files (x86)\programa\aplicativo.exe, 0"
    oShellLink.Description = "Aplicativo"
    oShellLink.WorkingDirectory = strDesktop
    oShellLink.Save
    
    
    ' Codigo 2
     Dim objShell, objDesktop, objLink
     Dim strAppPath, strWorkDir, strIconPath
     
    ' Limpeza de variaveis
     Set objShell = Nothing
     Set objDesktop = Nothing
     Set objLink = Nothing
     Set strAppPath = Nothing
     Set strWorkDir = Nothing
     Set strIconPath = Nothing
     
    strWorkDir ="C:\Program Files (x86)\programa\"
     strAppPath = "C:\Program Files (x86)\programa\aplicativo.exe" 
     strIconPath = "C:\Program Files (x86)\programa\aplicativo.exe"
     
    Set objShell = CreateObject("WScript.Shell")
     objDesktop = objShell.SpecialFolders("Desktop")
     Set objLink = objShell.CreateShortcut(objDesktop & "\Aplicativo.lnk")
     
    objLink.Description = "Aplicativo"
     objLink.HotKey = "CTRL+SHIFT+H"
     objLink.IconLocation = strIconPath
     objLink.TargetPath = strAppPath
     objLink.WindowStyle = 1
     objLink.WorkingDirectory = strWorkDir
     objLink.arguments = "C:\Program Files (x86)\programa\aplicativo.exe" /s Shortcut1
     objLink.Save
     
    WScript.Quit

    Obrigado tche.

    quinta-feira, 8 de março de 2012 18:32

Respostas

  • Marcelo

    Boa tarde

    Mude o  objLink.arguments = "C:\Program Files (x86)\programa\aplicativo.exe" /s Shortcut1,  para  objLink.arguments = "/s Shortcut1"

    Tente assim.

    ' Codigo 2
     Dim objShell, objDesktop, objLink
     Dim strAppPath, strWorkDir, strIconPath
     
    ' Limpeza de variaveis
     Set objShell = Nothing
     Set objDesktop = Nothing
     Set objLink = Nothing
     Set strAppPath = Nothing
     Set strWorkDir = Nothing
     Set strIconPath = Nothing
     
    strWorkDir ="C:\Program Files (x86)\programa\"
     strAppPath = "C:\Program Files (x86)\programa\aplicativo.exe" 
     strIconPath = "C:\Program Files (x86)\programa\aplicativo.exe"
     
    Set objShell = CreateObject("WScript.Shell")
     objDesktop = objShell.SpecialFolders("Desktop")
     Set objLink = objShell.CreateShortcut(objDesktop & "\Aplicativo.lnk")
     
    objLink.Description = "Aplicativo"
     objLink.HotKey = "CTRL+SHIFT+H"
     objLink.IconLocation = strIconPath
     objLink.TargetPath = strAppPath
     objLink.WindowStyle = 1
     objLink.WorkingDirectory = strWorkDir
     objLink.arguments = "/s Shortcut1"
     objLink.Save
     
    WScript.Quit


    Your potential. Our passion - DPCD Tecnologia - Banco Bradesco SA

    • Marcado como Resposta Marcelo TI domingo, 11 de março de 2012 21:46
    quinta-feira, 8 de março de 2012 19:16

Todas as Respostas

  • Marcelo

    Boa tarde

    Mude o  objLink.arguments = "C:\Program Files (x86)\programa\aplicativo.exe" /s Shortcut1,  para  objLink.arguments = "/s Shortcut1"

    Tente assim.

    ' Codigo 2
     Dim objShell, objDesktop, objLink
     Dim strAppPath, strWorkDir, strIconPath
     
    ' Limpeza de variaveis
     Set objShell = Nothing
     Set objDesktop = Nothing
     Set objLink = Nothing
     Set strAppPath = Nothing
     Set strWorkDir = Nothing
     Set strIconPath = Nothing
     
    strWorkDir ="C:\Program Files (x86)\programa\"
     strAppPath = "C:\Program Files (x86)\programa\aplicativo.exe" 
     strIconPath = "C:\Program Files (x86)\programa\aplicativo.exe"
     
    Set objShell = CreateObject("WScript.Shell")
     objDesktop = objShell.SpecialFolders("Desktop")
     Set objLink = objShell.CreateShortcut(objDesktop & "\Aplicativo.lnk")
     
    objLink.Description = "Aplicativo"
     objLink.HotKey = "CTRL+SHIFT+H"
     objLink.IconLocation = strIconPath
     objLink.TargetPath = strAppPath
     objLink.WindowStyle = 1
     objLink.WorkingDirectory = strWorkDir
     objLink.arguments = "/s Shortcut1"
     objLink.Save
     
    WScript.Quit


    Your potential. Our passion - DPCD Tecnologia - Banco Bradesco SA

    • Marcado como Resposta Marcelo TI domingo, 11 de março de 2012 21:46
    quinta-feira, 8 de março de 2012 19:16
  • Ba Leandro, valeu tche rolou.
    domingo, 11 de março de 2012 21:46