Lorsqu un poste est en reseau local et que sa connexion se fait via un routeur (FreeBox ou autre), il peut être utilise de connexion l adresse IP du routeur.
Cela doit être possible par les API de Windows, mais voici un code simple qui permet de connaître cette adresse.
Elle s appuie sur l exploitation du resultat de la commande TRACERT.
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 = "debutantwindev.free.fr" // on accède à un site quelconque
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)