Le besoin est de connaître l’adresse IP de la passerelle Internet par programmation. Dans mon cas, je dois connaître l’adresse IP d’un client FREE pour lui faire de la télémaintenance.

 

sTraceRT est une chaîne

sFichierBat est une chaîne = "C:\ADRIP.BAT"

sFichierTrace est une chaîne = "C:\ADRIP.TXT"

sSite est une chaîne = "www.codel5g.eu"

sAdresseIP est une chaîne

n est un entier

 

 

fSauveTexte(sFichierBat, "tracert " sSite ">" sFichierTrace)

LanceAppli(sFichierBat, exeActif, exeBloquant)

 

sTraceRT = fChargeTexte(sFichierTrace)

sAdresseIP = ExtraitChaîne(ExtraitChaîne(sTraceRT, 6, RC), 4, "ms")

sAdresseIP = Remplace(Remplace(Remplace(sAdresseIP, "<",""), " ",""), ">","")

 

fSupprime(sFichierBat)

fSupprime(sFichierTrace)

 

Info("Adresse IP de la passerrelle : " sAdresseIP)