MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


5 participantes

    Copiar Linhas do Prompt DOS/Command via VBA

    avatar
    caio_ccs1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Copiar Linhas do Prompt DOS/Command via VBA Empty Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  caio_ccs1 8/4/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!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Copiar Linhas do Prompt DOS/Command via VBA Empty Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  Avelino Sampaio 8/4/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", "www.usandoaccess.com.br")

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    caio_ccs1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Copiar Linhas do Prompt DOS/Command via VBA Empty Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  caio_ccs1 8/4/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..
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Copiar Linhas do Prompt DOS/Command via VBA Empty Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  Avelino Sampaio 8/4/2014, 22:30

    Entre em contato com o meu amigo Felipe Costa do site http://www.ambienteoffice.com.br

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

    Sucesso!




    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    caio_ccs1
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Copiar Linhas do Prompt DOS/Command via VBA Empty Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  caio_ccs1 9/4/2014, 13:52

    Obrigado. Deus abençoe.
    avatar
    fernando.jas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Copiar Linhas do Prompt DOS/Command via VBA Empty Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  fernando.jas 20/12/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.
    avatar
    suporte.eduardo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Copiar Linhas do Prompt DOS/Command via VBA Empty Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  suporte.eduardo 4/8/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
    avatar
    charlehardware
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/01/2011

    Copiar Linhas do Prompt DOS/Command via VBA Empty Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  charlehardware 5/2/2018, 15:54

    passe o comando telnet pra mim ver e aptar o código (porque depende de quantos espaços tem o comando)

    emexplo: telnet 8.8.8.8 21 (aqui tem 2 espaços)

    Public Function ComandoDOS(Comando As String, strParametro1 As String, strParametro2)
    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 & " " & strParametro1 & " " & strParametro2)
    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

    no botão faça assim: Vresultado = ComandoDOS("Telnet", "8.8.8.8", "21")



    Conteúdo patrocinado


    Copiar Linhas do Prompt DOS/Command via VBA Empty Re: Copiar Linhas do Prompt DOS/Command via VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:13