Vb script de récupération de l'adresse ip publique de votre livebox 2

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 679 fois - Téléchargée 19 fois

Contenu du snippet

Permet de récupérer l'adresse IP d'une LiveBox 2 sans passer par un serveur externe.
Et en utilisant le BAT ci-dessous copie l'adresse dans un fichier.

@echo off
cscript GetInternetIP.vbs > adrip.txt
for /F %%A in (adrip.txt) do set adrip=%%A
echo L'adresse IP LAN est : %adrip%

Source / Exemple :


Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET", "http://192.168.1.1/", FALSE)
objHTTP.Send
Pos_IP0 = instr(objHTTP.ResponseText,"Adresse IP WAN")
Pos_Ip0 = instr(Pos_IP0,objHTTP.ResponseText,"class=")
Pos_IP0 = instr(Pos_IP0,objHTTP.ResponseText,">")+1
Pos_IP1 = instr(Pos_IP0,objHTTP.ResponseText,"<")
Val_IP = mid(objHTTP.ResponseText,Pos_IP0,Pos_IP1-Pos_IP0)
wscript.echo Val_IP

A voir également

Ajouter un commentaire

Commentaire

cs_gritchefr33
Messages postés
4
Date d'inscription
dimanche 10 octobre 2010
Statut
Membre
Dernière intervention
26 mai 2013
-
merci pour le boulot et le partage.
cela va m'eviter de me connecter sur un site web pour récupérer mon ip wan.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.