[Resolvido]efetuar comando ping pelo access

ola boa tarde to precisando efetuar o comando ping pelo access e obter a resposta do mesmo.
ja pesquisei bastante e ainda nao achei nada, alguem poderia me ajudar

Seria algo assim?

Código:

    Dim objShell As Object, Resultado As String
   
    Resultado = ""
    Set objShell = CreateObject("WScript.Shell").Exec("ping EndereçoASerPingado")

    Do While Not objShell.StdOut.AtEndOfStream
        Resultado = objShell.StdOut.ReadLine()
    Loop

    MsgBox Resultado & "-" & SystemOnLine

cara perfeito este comando so nao to conseguindo me refereir a um campo para obter o endereço pro ping, exemplo ping 192.168.1.1 funciona perfeitamente.

se eu colocar ping txt.endexterno não executa da erro pois se eu deixar o campo dentro das "" nao funciona e sem "" da erro

deve ser burrice minha mas tem algum jeito facil de se referir a um campo.

muito grato deste ja

cara muito obrigado consegui
fiz assim


Dim objShell As Object, Resultado As String

Resultado = ""
endping = "ping " & Me.txtendexterno
Set objShell = CreateObject("WScript.Shell").Exec(endping)

Do While Not objShell.StdOut.AtEndOfStream
Resultado = objShell.StdOut.ReadLine()
Loop

MsgBox Resultado & "-" & SystemOnLine

ai funcionou perfeitamente do jeito que eu precisava...

muito obrigado

Olá luiz teria como voce postar aqui no forum o exemplo de como voce fez?