Ping from Visual Foxpro

Door jasperdg opMei 3, 2011 | InProgrammeren

Ping an IP number and return wether it has responded.

Opvolgen:

* Ping function
* (C)2011 Jasper de Graaf for J.A. Software
* Source: http://jasper.degraafonline.com/blog/index.php/2011/05/03/ping-from-visual-foxpro
LPARAMETERS tcIpNumber && IP number to ping

* No parameter, wrong type or empty 
IF PCOUNT()=0 OR !VARTYPE(tcIpNumber)=[C] OR EMPTY(tcIpNumber)
 ? [ping needs character parameter ip number (ie: 192.168.1.254)]
 RETURN []
ENDIF 

* create scripting shell object and test
loShell = CreateObject("WScript.Shell")
IF VARTYPE(loShell)<>[O]
 ? [did not succeed in creating Wscript.Shell object]
 RETURN []
ENDIF 

* perform short single ping and get results
loScriptExec = loShell.Exec("ping -n 1 -w 2 "+tcIpNumber)
lcPing = loScriptExec.StdOut.ReadAll()
llPing = ![time-out]$LOWER(lcPing)

loScriptExec = null
loShell = null 
RETURN llPing
Etiketten: vfp
« Software voor programmeursName lookup in Visual Foxpro using NSlookup »