MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Copiar Linhas do Prompt DOS/Command via VBA

    Compartilhe

    caio_ccs1
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2013

    Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  caio_ccs1 em Ter 08 Abr 2014, 20:37

    Boa Tarde amigos.

    Preciso de uma ajuda... Rodei a web dois dias e não encontrei uma solução para meu problema.

    Seguinte, tenho que entrar em uns roteadores via Telnet, dá alguns comandos e puxar os IPs de Lan, Wan, Vlan e tal... São mais de 2mil routers.

    Eu fiz um código em VBA que abre o Telnet, coloca o IP do local, usuário e senha e digita o comando do roteador... Nossa, fiquei feliz que funcionou.

    A tela está com o prompt, resultados na tela, tudo que eu preciso fazer agora é copiar desde a primeira linha (comando anterior) até a última linha que contem " # "

    Ai que mora o problema, não consigo selecionar e copiar o resultado do comando no roteador que está no prompt do DOS. Alguém sabe como poderia resolver isso? Tem algum código que possa selecionar determinado ponto da tela do prompt, copiar e colar numa célula do Excel por exemplo, ou em um campo do Access... ou sei lá, jogar num bloco de notas e depois puxar desse bloco... Meu DEUSSSSS

    # Desesperado # bounce bounce 

    Desde já agradecido!
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3385
    Registrado : 04/04/2010

    Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  Avelino Sampaio em Ter 08 Abr 2014, 21:25

    Olá!

    Tenho aqui uma função que executa comandos na linha DOS e então captura o resultado. 

    Public Function ComandoDOS(Comando As String, strParametro As String)
    Dim objShell As Object
    Dim objWshScriptExec As Object
    Dim objStdOut As Object
    Dim strLine As String

    Set objShell = CreateObject("WScript.Shell")
    Set objWshScriptExec = objShell.Exec(Comando & " " & strParametro)
    Set objStdOut = objWshScriptExec.StdOut

    '----------------------------------------
    'Captura o resultado para a variável strLine
    '----------------------------------------
    While Not objStdOut.AtEndOfStream
     strLine = strLine & vbNewLine & objStdOut.ReadLine
    Wend

    ComandoDOS = strLine

    End Function


    Passando o resultado para um campo.

    me!NomeCampo =  ComandoDOS ("Ping", "[Você precisa estar registrado e conectado para ver este link.]

    Aguardamos

    caio_ccs1
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2013

    Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  caio_ccs1 em Ter 08 Abr 2014, 21:49

    Avelino. Boa Tarde.

    Estou tentando aqui, só que adaptando para o Excel, hoje tivemos um imprevisto na Rede e pra minha tristeza o cara do suporte retirou meu pacote office, deve ser porque não estava de acordo com o padrão da empresa.

    Ainda não tive sucesso no Excel, to tentando..
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3385
    Registrado : 04/04/2010

    Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  Avelino Sampaio em Ter 08 Abr 2014, 22:30

    Entre em contato com o meu amigo Felipe Costa do site [Você precisa estar registrado e conectado para ver este link.]

    Ele é um fera no Excel e pode te dar uma força..

    Sucesso!



    caio_ccs1
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/07/2013

    Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  caio_ccs1 em Qua 09 Abr 2014, 13:52

    Obrigado. Deus abençoe.

    fernando.jas
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 15/09/2011

    Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  fernando.jas em Sab 20 Dez 2014, 12:25

    tem como disponibilizar um exemplo?

    goastria de saber se como disparar comando do Prompt de comando com botoes
    e visualizar as ações em um formulario.

    suporte.eduardo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 22/06/2015

    Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  suporte.eduardo em Sex 04 Ago 2017, 20:54

    Avelino,

    Tentei substituir o ping, pelo Telnet e da esse erro:

    O sistema não pode encontrar o arquivo especificado.

    Pelo prompt o Telnet esta funcionando normal

    Obrigado

    Eduardo

      Data/hora atual: Qua 23 Ago 2017, 01:46