none
Script para mapear unidade e executar programa RRS feed

  • Pergunta

  • Bom dia a todos,

    Não domino criar scripts vbs. Preciso de uma ajuda para criar um script que mapeia uma unidade de rede e execute um arquivo dentro desta unidade.

    Eu já consegui fazer o script abaixo. Mas quando executa ele pela segunda vez dá erro pois a unidade já está mapeada.

    Dim WSHNetwork
    Set WSHNetwork = WScript.CreateObject("WScript.Network")
    WSHNetwork.MapNetworkDrive "R:", "\\agrotis\agrotis"

    Dim oShell
    set oShell= Wscript.CreateObject("WScript.Shell")
    oShell.Run "r:\receita\rec32.exe r:\"

    Wscript.Quit

    Eu queria uma ajuda para criar um if / else.

    Se unidade R: existe, executa arquivo.
    Se não
    Mapea unidade R: e executa arquivo

    Desde já, obrigado.

    Luiz N. da Silva Neto

    quarta-feira, 5 de outubro de 2011 12:55

Respostas

  • Luiz,

    Acho que um "on error resume next"(ignora erros) é suficiente para o seu caso

    on error resume next
    Dim WSHNetwork
    Set WSHNetwork = WScript.CreateObject("WScript.Network")
    WSHNetwork.MapNetworkDrive "R:", "\\agrotis\agrotis"
     
    Dim oShell
    set oShell= Wscript.CreateObject("WScript.Shell")
    oShell.Run "r:\receita\rec32.exe r:\"
     
    Wscript.Quit
    
    


    Fábio de Paula Junior
    • Marcado como Resposta Luiz Nascimento quarta-feira, 5 de outubro de 2011 13:00
    quarta-feira, 5 de outubro de 2011 12:58
    Moderador

Todas as Respostas

  • Luiz,

    Acho que um "on error resume next"(ignora erros) é suficiente para o seu caso

    on error resume next
    Dim WSHNetwork
    Set WSHNetwork = WScript.CreateObject("WScript.Network")
    WSHNetwork.MapNetworkDrive "R:", "\\agrotis\agrotis"
     
    Dim oShell
    set oShell= Wscript.CreateObject("WScript.Shell")
    oShell.Run "r:\receita\rec32.exe r:\"
     
    Wscript.Quit
    
    


    Fábio de Paula Junior
    • Marcado como Resposta Luiz Nascimento quarta-feira, 5 de outubro de 2011 13:00
    quarta-feira, 5 de outubro de 2011 12:58
    Moderador
  • Obrigado Fábrio Jr.
    quarta-feira, 5 de outubro de 2011 13:01