none
Script para criar atalho RRS feed

  • Pergunta

  • Olá....

    Gostaria de solicitar auxilio para criar um script, pode ser *.cmd ou *.Bat, para que crie no desktop dos usuarios um atalho para uma pasta que esta localizada no servidor.

    Obrigado...
    quarta-feira, 6 de setembro de 2006 19:35

Respostas

  • Olá,

    Você pode utilizar este script vbs:

     set WshShell = WScript.CreateObject("WScript.Shell")
     strDesktop = WshShell.SpecialFolders("Desktop")
     set oShellLink = WshShell.CreateShortcut(strDesktop & "\notepad.lnk")
     oShellLink.TargetPath = WScript.ScriptFullName
     oShellLink.WindowStyle = 1
     oShellLink.Hotkey = "CTRL+SHIFT+F"
     oShellLink.IconLocation = "notepad.exe, 0"
     oShellLink.Description = "Bloco de Notas"
     oShellLink.WorkingDirectory = strDesktop
     oShellLink.Save

    O exemplo cria um atalho para o bloco de notas no desktop.

    Espero que tenha ajudado.

    Um abraço,

    Helio Panissa Jr

    MCP Brasil.com

    quinta-feira, 7 de setembro de 2006 00:06
  • Abaixo o comando caso queira fazer num arquivo .BAT

    Nesse caso ele pega no servidor o atalho para uma pagina da internet.

    @echo off

    if exist "%userprofile%\desktop\atalho.url" goto exit
    copy "\\servidor\share\atalho.url" "%userprofile%\desktop"
    :exit

     

     

    []'s

    segunda-feira, 11 de setembro de 2006 15:54

Todas as Respostas

  • Olá,

    Você pode utilizar este script vbs:

     set WshShell = WScript.CreateObject("WScript.Shell")
     strDesktop = WshShell.SpecialFolders("Desktop")
     set oShellLink = WshShell.CreateShortcut(strDesktop & "\notepad.lnk")
     oShellLink.TargetPath = WScript.ScriptFullName
     oShellLink.WindowStyle = 1
     oShellLink.Hotkey = "CTRL+SHIFT+F"
     oShellLink.IconLocation = "notepad.exe, 0"
     oShellLink.Description = "Bloco de Notas"
     oShellLink.WorkingDirectory = strDesktop
     oShellLink.Save

    O exemplo cria um atalho para o bloco de notas no desktop.

    Espero que tenha ajudado.

    Um abraço,

    Helio Panissa Jr

    MCP Brasil.com

    quinta-feira, 7 de setembro de 2006 00:06
  • Abaixo o comando caso queira fazer num arquivo .BAT

    Nesse caso ele pega no servidor o atalho para uma pagina da internet.

    @echo off

    if exist "%userprofile%\desktop\atalho.url" goto exit
    copy "\\servidor\share\atalho.url" "%userprofile%\desktop"
    :exit

     

     

    []'s

    segunda-feira, 11 de setembro de 2006 15:54
  • E como faço criar o atalho no Desktop de uma unidade de rede mapeada do servidor?
    Exemplo: Tenho já mapeado em "Meu Computador" X:\Compartilhamento e quero colocar o atalho no Desktop

    Desde já agradeço.
    quarta-feira, 4 de julho de 2007 15:13
  • set WshShell = WScript.CreateObject("WScript.Shell")
     strDesktop = WshShell.SpecialFolders("Desktop")
     set oShellLink = WshShell.CreateShortcut(strDesktop & "\notepad.lnk")
     oShellLink.TargetPath = "X:"
     oShellLink.Save

    quinta-feira, 31 de janeiro de 2008 20:13
  • Utilizando est script ele so esta gerando link, ate ai esta tranquilo, o problema que ele nao esta chamando o programa que quero colocar no desktop.

    Sera possivel colocar um função para chamar o prg ?

    Fico no aguardo de uma resposta.

     

     

    set WshShell = WScript.CreateObject("WScript.Shell")
     strDesktop = WshShell.SpecialFolders("Desktop")
     set oShellLink = WshShell.CreateShortcut(strDesktop & "\EXPLORE.LNK")
     oShellLink.TargetPath = WScript.ScriptFullName
     oShellLink.WindowStyle = 1

     oShellLink.Hotkey = "SHIFT+ALT+F"
     oShellLink.IconLocation = "explorer.exe 0"
     oShellLink.Description = "WINDOWS EXOLORE "
     oShellLink.WorkingDirectory = strDesktop
     oShellLink.Save

     

    aTT

    sexta-feira, 7 de março de 2008 19:25
  • E como faço para criar atalhos na area de trabalho de pastas qeu estão dentro do mapeamento?

     

    sábado, 8 de março de 2008 20:26
  • set WshShell = WScript.CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    set oShellLink = WshShell.CreateShortcut(strDesktop & "\NOME DO ATALHO.lnk")
    oShellLink.TargetPath = "\\nome ou ip do servidor\compartilhamento$\nome da pasta que deseja criar o atalho"
    oShellLink.WindowStyle = 3
    oShellLink.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 41"
    oShellLink.Description = "NOME DA DESCRIÇÃO DO ATALHO"
    oShellLink.Save

     

    Com esse script você cria o atalho na área de trabalho e pode até escolher o ícone que será associado a esse atalho, basta verificar a linha oShellLink.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 41" onde o número 41 faz referência a qual ícone será associado.

     

    Espero ter ajudado.

     

     

    quarta-feira, 18 de junho de 2008 16:31
  • Boa tarde

     

    Helio eu tenho uma dúvida eu utilizo um script igual ao que você postou acima, mas eu preciso setar o Star in do Atalho ele fica em branco, você sabe como fazer isso utilizando o script que você passou ?



    Atenciosamente
    Fabrício Castro Maluf
    E-mail: fabricio@metaora.com.br
    terça-feira, 27 de abril de 2010 20:31
  • Olá caro colega, para setar onde o atalho vai iniciar vc adiciona o caminho de rede em "oShellLink.WorkingDirectory", como no exemplo abaixo.

     

    set WshShell =WScript.CreateObject("WScript.Shell")

    strDesktop = WshShell.SpecialFolders("Desktop")

    set oShellLink = WshShell.CreateShortcut(strDesktop & "\NOME DO ATALHO.lnk")

    oShellLink.TargetPath = "\\nome ou ip do servidor\compartilhamento$ \nome da pasta que

    deseja criar o atalho"

    oShellLink.WindowStyle = 3

    oShellLink.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 41"

    oShellLink.Description = "NOME DA DESCRIÇÃO DO ATALHO"

    oShellLink.WorkingDirectory ="NOME DA DESCRIÇÃO DO ATALHO"


    oShellLink.Save

     

    Qualquer duvida é so postar aqui. vlw!!!

    quinta-feira, 10 de junho de 2010 13:43
  • Bom dia

     

    Muito obrigado era exatamente o que eu estava precisando.

    Abraços até.



    Atenciosamente
    Fabrício Castro Maluf
    E-mail: fabricio@metaora.com.br
    quinta-feira, 1 de julho de 2010 14:05
  • Se quiser ir direto sem cria GPO usa o copy:

     

    copy c:\*.lnk \\ip da maquina \diretório

     

    Coloca no c: o atalho e queira copiar e salva como como *.bat

    quinta-feira, 28 de outubro de 2010 11:39
  • Ola boa noite..

    Como eu faço para gerar uma BAT para adcionar icones no menu iniciar do windows 7?


    André Silva Borges Tec. Suporte
    domingo, 5 de dezembro de 2010 23:38
  • Ola boa noite..

    Como eu faço para gerar uma BAT para adcionar icones no menu iniciar do windows 7?


    André Silva Borges Tec. Suporte


    André por favor abra um novo topico específico para o seu tipo de problema.

     


    " Qm tem boca vai a roma, meu fogão tem 6 e não saiu da cozinha ainda"
    segunda-feira, 6 de dezembro de 2010 00:12
  • A sua dica funcionou perfeitamente, só a linha que informa o caminho do ícone, tirei ela e o incone ficou o original do atalho. muito obrigado
    quinta-feira, 6 de fevereiro de 2014 11:19
  • Olá caro colega, para setar onde o atalho vai iniciar vc adiciona o caminho de rede em "oShellLink.WorkingDirectory", como no exemplo abaixo.

    set WshShell =WScript.CreateObject("WScript.Shell")

    strDesktop = WshShell.SpecialFolders("Desktop")

    set oShellLink = WshShell.CreateShortcut(strDesktop & "\NOME DO ATALHO.lnk")

    oShellLink.TargetPath = "\\nome ou ip do servidor\compartilhamento$ \nome da pasta que

    deseja criar o atalho"

    oShellLink.WindowStyle = 3

    oShellLink.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 41"

    oShellLink.Description = "NOME DA DESCRIÇÃO DO ATALHO"

    oShellLink.WorkingDirectory ="NOME DA DESCRIÇÃO DO ATALHO"


    oShellLink.Save

    Qualquer duvida é so postar aqui. vlw!!!

    Oi, minha situação é parecida, eu estou trabalhando em uma migração de servidor e no caso precisaria de um script para identificar os atalhos no computador do usuário e apenas mudar o campo 'Iniciar em', que seria este 'oShellLink.WorkingDirectory', certo? Por exemplo:  Procurar os atalhos que iniciam em  "\\local1\pasta\" e modificá-los para "\\local2\pasta\". Poderia me ajudar? Grato.
    terça-feira, 16 de setembro de 2014 20:13
  • Boa Noite....

    Vc pode criar atalhos e pastas  , unidades mapeadas , home folders também diretamente em preferencias de politicas de grupo, e bem pratico.

    terça-feira, 16 de setembro de 2014 23:03