none
Copiar atalho Para WorkStations RRS feed

  • Pergunta

  • Boas,
    Tenho na minha estrutura o desktop alterado para os users e o Start menu. Nestas pastas tem atalhos pré-definidos e que já vão com a imagem do RIS. Mas agora a direcção quis acrescentar uma nova partilha e para isso preciso colocar nas máquinas em produção os atalhos nas duas pastas.
    O que eu preciso é que o Script possa fazer:
    Ir a uma OU verificar os computadores e copiar os atalhos da source (a indicar) para as pastas (c:\netados\desktop e c:\netdados\startmenu) para os computadores que encontrar nesta OU.
    Alguma ideia?
    Cláudio Gonçalves
    sexta-feira, 5 de fevereiro de 2010 08:42

Respostas

  • Olá,

    Utilize o script abaixo:

    strAppPath = "\\server\pasta"

    Set objShell = CreateObject("WScript.Shell")
    objDesktop = objShell.SpecialFolders("Desktop")
    Set objLink = objShell.CreateShortcut(objDesktop & "\NomedoAtalho.lnk")

    objLink.TargetPath = strAppPath
    objLink.WindowStyle = 3
    objLink.Save

    WScript.Quit


    Salve o script e coloque ele em uma GPO.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 5 de fevereiro de 2010 10:48

Todas as Respostas

  • Olá,

    Utilize o script abaixo:

    strAppPath = "\\server\pasta"

    Set objShell = CreateObject("WScript.Shell")
    objDesktop = objShell.SpecialFolders("Desktop")
    Set objLink = objShell.CreateShortcut(objDesktop & "\NomedoAtalho.lnk")

    objLink.TargetPath = strAppPath
    objLink.WindowStyle = 3
    objLink.Save

    WScript.Quit


    Salve o script e coloque ele em uma GPO.


    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    sexta-feira, 5 de fevereiro de 2010 10:48
  • Olá,

    Alguma posição sobre este script?

    Até mais,

    Jesiel
    terça-feira, 16 de fevereiro de 2010 10:50
  • Desculpa não ter marcado, my  bad...
    funcionou como pretendia.
    Cláudio Gonçalves
    terça-feira, 16 de fevereiro de 2010 12:36