Copiar Linhas do Prompt DOS/Command via VBA

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 #   

Desde já agradecido!

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..

Obrigado. Deus abençoe.

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.

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

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")