none
script executavel + sincronismo de horario RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa tarde pessoal, seguinte..

    tenho 2 duvidas..

    1º = fiz um script de Mapeamento endereçando pra letra M:

    agora quero fazer um atalho nas estações, fiz usando esse script..

    strAppPath = "M:\mr1.exe"

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

    objLink.TargetPath = strAppPath
    objLink.WindowStyle = 0
    objLink.Save


    WScript.Quit

    esta funcionando , porem preciso especificar no script a opção "start in" pra dizer ao atalho pra direcionar pra pasta.

    alquem sabe especificar o parametro?

     

    2º - Preciso configurar o AD pra sincronizar a data e hora com as estações.

    alguem pode me indicar como fazer?

     

    obrigado a todos.

    Elias

    • Movido Erick Albuquerque segunda-feira, 16 de maio de 2011 16:35 Fórum Apropriado (De:Windows Server 2003)
    segunda-feira, 16 de maio de 2011 15:44
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Consegui pessoal,

     

    adicionei as seguintes linhas no script..

    strAppPath = "M:\mr1.exe activeplast"

    objLink.WorkingDirectory = strWorkDir

    fico assim o scritp completo...

     

    strAppPath = "M:\mr1.exe"
    strWorkDir ="M:\"

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


    objLink.TargetPath = strAppPath
    objLink.WindowStyle = 0
    objLink.WorkingDirectory = strWorkDir
    objLink.Save


    WScript.Quit

     

    obrigado a todos.

    • Marcado como Resposta Elias Motta segunda-feira, 16 de maio de 2011 19:10
    segunda-feira, 16 de maio de 2011 19:10
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa tarde,

     

    1. Vc quer fazer um atalho do script, ou um atalho para o script?

     

    2. Não é necessário este script o cliente ja sincroniza a data e hora com o Controlador, mas de qualquer forma vc pode usar o comando net time em um "bat" para sincronização, ou o w32tm.

     

    []s

     

    Erick Albuquerque | Moderador Fórum Technet
    Blog: http://erickalbuquerque.com.br |
    Artigos IIS: http://iisbrasil.wordpress.com
    Twitter: @_ealbuquerque
    Linkedin: http://br.linkedin.com/in/easantos
    segunda-feira, 16 de maio de 2011 16:01
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Os atalhos estao funcionando, porem preciso especificar no script a opcao de iniciar em.. clicando com o botao direito do mouse no atalho - Propriedades- atalho ...

    tem a opçao ..

    Destino= M:\mr1.exe

    iniciar em : ( essa opcao eu preciso definir no escript de atalho o caminho)

    atualmente essa opção fica em branco, preciso definir a letra do Mapeamento.no caso, M:\

     

    obrigado,

    Elias

    segunda-feira, 16 de maio de 2011 16:28
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Estou movendo a thread para o forum de scripts.

     

    Abs,

    Erick Albuquerque | Moderador Fórum Technet
    Blog: http://erickalbuquerque.com.br |
    Artigos IIS: http://iisbrasil.wordpress.com
    Twitter: @_ealbuquerque
    Linkedin: http://br.linkedin.com/in/easantos
    segunda-feira, 16 de maio de 2011 16:34
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Consegui pessoal,

     

    adicionei as seguintes linhas no script..

    strAppPath = "M:\mr1.exe activeplast"

    objLink.WorkingDirectory = strWorkDir

    fico assim o scritp completo...

     

    strAppPath = "M:\mr1.exe"
    strWorkDir ="M:\"

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


    objLink.TargetPath = strAppPath
    objLink.WindowStyle = 0
    objLink.WorkingDirectory = strWorkDir
    objLink.Save


    WScript.Quit

     

    obrigado a todos.

    • Marcado como Resposta Elias Motta segunda-feira, 16 de maio de 2011 19:10
    segunda-feira, 16 de maio de 2011 19:10
    |