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
| « Software voor programmeurs | Name lookup in Visual Foxpro using NSlookup » |
