Pinging an IP Address 4

[sheronne]

Is there anyway to PING an IP Address using foxpro?

 

[jryan224]

Hi ramani,
Well I kept playing with it and got it to work.

Your code was:

private strIPCopy
    m.strIPCopy = ''
    m.strIPCopy = "run /N7 ping " + m.computername ;
                  + ">c:\mas\temp\ping.txt"
    STRTOFILE(m.strIPCopy,"myPing.bat")
    RUN /N7 myPing.Bat

I found I did not need the "run /N7" in the string. So code is now:

private strIPCopy
    m.strIPCopy = ''
    m.strIPCopy = "ping " + m.computername ;
                  + ">c:\mas\temp\ping.txt"
    STRTOFILE(m.strIPCopy,"myPing.bat")
    RUN /N7 myPing.Bat

Thanks for all your help.
Jdemmer

 

[rianeiromiron]

Jdemmer

Have you tried WinExec Api Call?

It's worked for me in the past, when I didn't want the D.O.S. window to pop-flash:


#DEFINE SW_HIDE 0
#DEFINE SW_SHOWNORMAL 1
#DEFINE SW_SHOWMINIMIZED 2
#DEFINE SW_SHOWMAXIMIZED 3
#DEFINE SW_SHOWNOACTIVATE 4
#DEFINE SW_SHOW 5
#DEFINE SW_MINIMIZE 6
#DEFINE SW_SHOWMINNOACTIVE 7
#DEFINE SW_SHOWNA 8
#DEFINE SW_RESTORE 9
#DEFINE SW_SHOWDEFAULT 10

DECLARE INTEGER WinExec IN kernel32;
STRING lpCmdLine,;
INTEGER nCmdShow

lpCmdLine="YourCommand.Bat"

** or whatever
? WinExec (lpCmdLine, SW_SHOWMINNOACTIVE)

** Minimized and not activated, runs in the background

This was an example. It worked for me using SW__SHOWMINNOACTIVE



Acknowledgement:

http://www.news2news.com/vfp/?example=2&function=2

By the way, this is site I allways recommend.