none
Adicinando varios atalhos ao desktop RRS feed

  • Pergunta

  • Bom dia a todos.

    Solicito ajuda pois tenho uma tarefa que é a de criar um conjunto de atalhos na área de trabalho das estações do call center, como tenho uma rotatividade grande dos usuarios isto acaba sendo um complicador. Recentemente buscando no forum achei um script que pode ser acrescentado a um arquivo de lote (.bat) e adicionado ao logon dos usr, porém ao tentar adicionar mais de um atalho o script não executa a tarefa e nao apresenta codigo de erro nenhum. Na realidade prefiro trabalhar neste caso com vbs, mas não consegui adaptar nenhum.

    Acredito que o problema esta na sintaxe que utilizei. Segue abaixo

    @echo off

    if exist "%userprofile%\desktop\atalho1.lnk" goto exit (aqui devo redirecionar ao 2 comando e assim por diante ao invés do exit??)
    copy "\\servidor\share\atalho1.lnk" "%userprofile%\desktop"
    :exit
    and
    if exist "%userprofile%\desktop\atalho2.lnk" goto exit
    copy "\\servidor\share\atalho2.lnk" "%userprofile%\desktop"
    :exit
    and
    if exist "%userprofile%\desktop\atalho3.lnk" goto exit
    copy "\\servidor\share\atalho3.lnk" "%userprofile%\desktop"
    :exit

    Os atalhos são na realidade são um link para aplicações ja instaladas nas estações e apenas 2 delas estão no file server. Tenho uma pasta compartilhada com permissoes NTFS leitura para todos onde estão os links.

    Agradeço desde já o help.

    cjanuzi

     

     

    domingo, 4 de fevereiro de 2007 18:40

Respostas

  • Amigo vc pode adicionar diretamente o atalho para o camiho correto do aplicativo com o seguinte script:

     

    On error Resume Next

    Set WShell = CreateObject("WScript.Shell")
     
       caminho= WShell.SpecialFolders("Desktop")
       Set atalhoLnk = WShell.CreateShortcut(caminho & "\atalho1.lnk")
       atalhoLnk.TargetPath = "caminho do aplicativo"
       atalhoLnk.Save
      
    Set atalhoLnk1 = WShell.CreateShortcut(caminho & "\atalho2.lnk")
       atalhoLnk1.TargetPath = "caminho do aplicativo"
       atalhoLnk1.Save


    Set atalhoLnk2 = WShell.CreateShortcut(caminho & "\atalho3.lnk")
       atalhoLnk2.TargetPath = "caminho do aplicativo"
       atalhoLnk2.Save

     

    OBS: Você pode mudar o nome do atalho que está em laranja e deve mudar o caminho do aplicativo que está em vermelho.
    Ex: Set atalhoLnk = WShell.CreateShortcut(caminho & "\Excel.lnk")
           atalhoLnk.TargetPath = "
    C:\Arquivos de programas\Microsoft Office\Office10\EXCEL.EXE"
           atalhoLnk.Save

     

    Caso deseje adiconar um ícone do programa adicone a seguinte linha ao script antes de atalhoLnk.Save, isto deve ser repetido para cada atalho.
    atalhoLnk.iconlacation = "localização do ícone" 

    Esta linha

     

    Abs


    domingo, 4 de fevereiro de 2007 20:23

Todas as Respostas

  • Amigo vc pode adicionar diretamente o atalho para o camiho correto do aplicativo com o seguinte script:

     

    On error Resume Next

    Set WShell = CreateObject("WScript.Shell")
     
       caminho= WShell.SpecialFolders("Desktop")
       Set atalhoLnk = WShell.CreateShortcut(caminho & "\atalho1.lnk")
       atalhoLnk.TargetPath = "caminho do aplicativo"
       atalhoLnk.Save
      
    Set atalhoLnk1 = WShell.CreateShortcut(caminho & "\atalho2.lnk")
       atalhoLnk1.TargetPath = "caminho do aplicativo"
       atalhoLnk1.Save


    Set atalhoLnk2 = WShell.CreateShortcut(caminho & "\atalho3.lnk")
       atalhoLnk2.TargetPath = "caminho do aplicativo"
       atalhoLnk2.Save

     

    OBS: Você pode mudar o nome do atalho que está em laranja e deve mudar o caminho do aplicativo que está em vermelho.
    Ex: Set atalhoLnk = WShell.CreateShortcut(caminho & "\Excel.lnk")
           atalhoLnk.TargetPath = "
    C:\Arquivos de programas\Microsoft Office\Office10\EXCEL.EXE"
           atalhoLnk.Save

     

    Caso deseje adiconar um ícone do programa adicone a seguinte linha ao script antes de atalhoLnk.Save, isto deve ser repetido para cada atalho.
    atalhoLnk.iconlacation = "localização do ícone" 

    Esta linha

     

    Abs


    domingo, 4 de fevereiro de 2007 20:23
  • Wemali, obrigado pela ajuda, resolveu o meu problema.
    segunda-feira, 5 de fevereiro de 2007 01:48
  • Boa noite

     

    Gente eu precisava muito da ajuda de vcs quanto ao script de logon abaixo

     

    sei que para criação de atalho existi essa linha de código:

    atalhoLnk.TargetPath = "notepad" 
    atalhoLnk.Save
    
    porem eu precisa criar no campo "Iniciar em" la nas propriedade do atalho, também uma parte do endereço.
    qual código eu específico na linha do script ???? para incluir também no campo "Iniciar em" no atalho ???
     
    Me ajudem por favor
    quinta-feira, 24 de abril de 2008 03:06
  • Amigos

    como posso verificar se o atalho ja existe antes de cria-lo ?

    Grato
    Almir
    quarta-feira, 10 de junho de 2009 21:55