David Mcafee
dmcafee at pacbell.net
Fri Feb 11 14:01:03 CST 2005
That worked for me. I created a function and called it
from the debug window as Ping("Computer2") and
PING("192.168.0.1"). Both worked for me
Function Ping(IP As String)
Dim IPAddress As String
IPAddress = "ping " & IP
Shell (IPAddress)
End Function
--- John Clark <John.Clark at niagaracounty.com> wrote:
> I want the ability to ping an IP address from
> access, and from there
> I'll see what I can do with it. I figured I could do
> something like:
>
>
> dim IPAddress as String
>
> IPAddress = "ping " & txtIP.value
> Shell(IPAddress)
>
> Am I on the right track?
>
> I am juggling about 20 things, and doing this in
> between, so my brain
> power to project ratio is depleted a bit.
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>