none
Script para criar atalhos na area de trabalho do usuário RRS feed

  • Pergunta

  • Boa tarde, onde trabalho, utilizamos um ERP no qual ele possui diversos icones, cada icone tem uma função. Gostaria de colocar um VBscript para um determinado grupo, que irá utilizar esses icones. Por exemplo:

     

    Usuário do televendas irá usar o icone Televendas que fica no seguinte endereço:

    \\servidor\erp\modulos do erp\televendas_icone

     

    Usuário da logistica irá usar o icone Logistica, Cadastro, Consultas, Inventário que fica no seguinte endereço:

    \\servidor\erp\modulos do erp\logistica_icone

    \\servidor\erp\modulos do erp\cadastro_icone

    \\servidor\erp\modulos do erp\consultas_icone

    \\servidor\erp\modulos do erp\inventário_icone

     

    Gostaria de criar esse script para poder minimizar a demanda de ir e colocar os icones a cada computador que o usuário mudar, toda vez q ele for mudar de computador, os icones já estarão lá.

     

    Agradeço pela atenção e fico no aguardo de uma solução, até+.

    segunda-feira, 2 de janeiro de 2012 17:23

Respostas

  • Carlos

    veja se este codigo ajuda vc

     

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

    • Marcado como Resposta Richard Juhasz quarta-feira, 4 de janeiro de 2012 17:20
    segunda-feira, 2 de janeiro de 2012 18:07